kaki31
XLDnaute Occasionnel
Bonsoir;
je viens de trouver ce code pour le tri a la saisie qui est super,et je voudrais savoir s'il est possible d'incorporer quelques lignes pour la majuscule sauf pour la colonne D et la colonne G.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
nom = Target
[A2:C1000].Sort key1:=[A2]
[A:A].Find(what:=nom).Select
End If
End Sub
Merci
je viens de trouver ce code pour le tri a la saisie qui est super,et je voudrais savoir s'il est possible d'incorporer quelques lignes pour la majuscule sauf pour la colonne D et la colonne G.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
nom = Target
[A2:C1000].Sort key1:=[A2]
[A:A].Find(what:=nom).Select
End If
End Sub
Merci