majuscule de cellules

[lamho27]

bonsoir a tous
je voudrais faire majuscules de cellules avec macro VBA suivant, mais il y a erreur

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B5,C6,C8,C10,C16,D18")) Is Nothing Then
Target = UCase(Left(Target, 1)) & Mid(Target, 2)
End If
End Sub

Pouvez-vous m'aider
merci d'avance

 

[david84]

Re : majuscule de cellules

Bonsoir,
je ne vois pas ton code dans le fichier joint...
A+

 

[lamho27]

Re : majuscule de cellules

bonsoir david84
j’ajoute mon fiche joint

 

[lamho27]

Re : majuscule de cellules

bonsoir jean-marcel
ne marche pas ton code " erreur de compilation : nom ambigu détecté :worksheet_change "

 

[lamho27]

Re : majuscule de cellules

Re
macro dans ma feuille , j'ai besoin , parce que c'est macro enregistré

 

[lamho27]

Re : majuscule de cellules

Re
marche pas non plus

 

[lamho27]

Re : majuscule de cellules

si tout en majuscule

 

[lamho27]

Re : majuscule de cellules

Re
marche pas

 

[lamho27]

Re : majuscule de cellules

tres bien , merci Jean-Marcel
bonne soirée