Problème de code vba

[jennypher]

Bonjour,

Alorss voila j'ai un code VBA pour mettre en majuscule mais je ne sais pas es ce qu'il faut que je la place quand on fait visual basic.

De plus, je voudrais mettre les cellules : B11, B13 et B21 en majuscule mais je ne sais pas ou les placer non plus dans le code VBA.

Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Sheets("Feuil2").Range("A1") = Sheets("Feuil1").Range("A1").Value
Sheets("Feuil2").Range("A1") = UCase(Sheets("Feuil2").Range("A1"))
End If
Range("A1").Select
End Sub

je vous mets en pièce jointe mon fichier.

Merci d'avance pour votre aide🙂

Cordialement.

 

[phlaurent55]

Re : Problème de code vba

Bonjour jennypher,

ce code devrait le faire

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B11,B13,B21")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
End If
Application.EnableEvents = True
End Sub

à+
Philippe