[Résolu] [Calc] Majuscule dans cellule sélectionnée

[Malauc]

Bonjour,
j'ai un problème avec ce code. Je voudrais qu'il me mette automatiquement dans les cellules sélectionnées en majuscule.
Merci pour votre aide.

Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Range("C5:C200,G5:G200")) Is Nothing Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Else
End If
End Sub

[Dolev]

Bonjour,

Ton code, c'est du VBA de Microsoft.
Forcément ça ne marchera pas sous Calc.

Et pense à mettre le balisage obligatoire à ton titre (lire le bandeau rouge en haut).
Sinon les modos vont sévir.

[Malauc]

Je l'ai modifié, mais j'ai toujours un problème.
Voici le code:

Private Sub Worksheet_Change(ByVal Target As Dim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1))
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Dim oSheet as Object[n]oSheet = ThisComponent.CurrentController.ActiveSheet[n]oSheet.getCellRangeByName($1)("C5:C200,G5:G200")) Is Nothing Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Else
End If
End Sub

[Dolev]

Je l'ai modifié, mais j'ai toujours un problème.

Un problème à quel niveau ?
Si tu ne fournis pas un document, comment crois-tu que tu vas être aidé ?

Et tu n'as toujours pas mis le balisage obligatoire à ta question.

[Malauc]

Bonjour,
j'ai un problème avec ce code. Je voudrais qu'il me mette automatiquement dans les cellules sélectionnées en majuscule.
Merci pour votre aide.

[VB]
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Range("C5:C200,G5:G200")) Is Nothing Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Else
End If
End Sub

[Oukcha]

Bonjour,

Merci de créer un nouveau fil conforme à nos règles :

• Concernant le balisage, relire https://forum.openoffice.org/fr/forum/v ... 295#p27295
• Concernant le code publié :
  • publiez votre macro entre balises [ code] et [/code].
    
    
    
    Exemple :
    [ code]echo "Ceci est un fragment de code"[/code]
    affichera :

    Code : Tout sélectionner

    echo "Ceci est un fragment de code"

Cordialement