Patrick.75019
XLDnaute Occasionnel
Bonjour à tous,
Bonjour , j’aurai besoin d’aide pour modifier cette macro
Je voudrais que ma macro fonctionne dans les 2 sens (minuscule _majuscule)
-Je remplis une ou des cellules avec un nom entiérement avec des lettres majuscules , je voudrais que cette macro modifie le nom _1ere lettre en Majuscule et le reste en minuscules
Je remplis une cellule avec un nom entiérement avec des lettres minuscules je voudrais que cette macro modifie le nom -1ere lettre en Majuscule et le reste reste en minuscules
à l'avance je vous remercie pour votre aide ,
Bonne fin de journée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value >= "a" And Target.Value <= "z" Then
Target.Value = Chr(-32 + Asc(Left$(Target.Value, 1))) & Right$(Target.Value, Len(Target.Value) - 1)
End If
If Not Application.Intersect(Target, Range("C12")) Is Nothing Then
ActiveSheet.Name = Range("C12")
End If
End Sub
Bonjour , j’aurai besoin d’aide pour modifier cette macro
Je voudrais que ma macro fonctionne dans les 2 sens (minuscule _majuscule)
-Je remplis une ou des cellules avec un nom entiérement avec des lettres majuscules , je voudrais que cette macro modifie le nom _1ere lettre en Majuscule et le reste en minuscules
Je remplis une cellule avec un nom entiérement avec des lettres minuscules je voudrais que cette macro modifie le nom -1ere lettre en Majuscule et le reste reste en minuscules
à l'avance je vous remercie pour votre aide ,
Bonne fin de journée
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value >= "a" And Target.Value <= "z" Then
Target.Value = Chr(-32 + Asc(Left$(Target.Value, 1))) & Right$(Target.Value, Len(Target.Value) - 1)
End If
If Not Application.Intersect(Target, Range("C12")) Is Nothing Then
ActiveSheet.Name = Range("C12")
End If
End Sub