lamho27
XLDnaute Occasionnel
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
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