Code VBA Excel

Bonjour,

j'ai besoin d'un coup de main. J'aimerai ajouter un élément à ce code source: la colonne 5 se met automatiquement en majuscule, j'aimerai que ce soit aussi le cas pour la colonne 17 et 18. Comment faire?

Merci!

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules

If Target.Column = 5 Then

Target.Value = StrConv(Target.Value, 1)

ElseIf Target.Column = 4 Then

Target.Value = StrConv(Target.Value, 3)

End If

End Sub

bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
i%=Target.Column
If i = 5 or i = 17 or i = 18 Then
Target.Value = StrConv(Target.Value, 1)
ElseIf Target.Column = 4 Then
Target.Value = StrConv(Target.Value, 3)
End If
End Sub

A+

Merci !!

Bonjour,

Merci de cloturer tes demandes si l'on t'a apporté une solution.

Explications ici -> https://forum.excel-pratique.com/excel/explications-et-regles-a-respecter-t13.html

A bientôt

Dan