J
JEAN MICHEL
Guest
bonjour a tous
j'ai applique la procedure" Sub Worksheet_Change"dans une feuille,je souhaiterais que ce code s'effectue uniquement lorsque" C1 =1" et que la cellule selectionne retrouve sa valeur d' avant le clic si C1different de 1
MERCI A TOUS ET BON DIMANCHE
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:B17")) Is Nothing Then
Range("A1:B17").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
End If
End Sub
j'ai applique la procedure" Sub Worksheet_Change"dans une feuille,je souhaiterais que ce code s'effectue uniquement lorsque" C1 =1" et que la cellule selectionne retrouve sa valeur d' avant le clic si C1different de 1
MERCI A TOUS ET BON DIMANCHE
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:B17")) Is Nothing Then
Range("A1:B17").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
End If
End Sub