casper62110
XLDnaute Nouveau
Bonjour a vous tous
et meilleur voeux
volia mon probleme
j'ai ce code ci-dessous qui est cense me mettre des croix dans les case indiquer cela marche impécaple
mais moi je souhaite augmenter le nombre de cologne par exemple
ici il met une croix pour les cologne compris entre > 2 et < 8 mai moi je veux qui fasse pareil pour > 12 et < 18 ,,,, > 22 et < 28 ,,,, > 32 et <38
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 6 And Target.Row < 38 And Target.Column > 2 And Target.Column < 8 Then
If Target = "X" Then
Target = ""
Else
Target = "X"
End If
Target.EntireRow.Range("A1").Select
End If
End Sub
Merci d'avance pour votre aide
et meilleur voeux
volia mon probleme
j'ai ce code ci-dessous qui est cense me mettre des croix dans les case indiquer cela marche impécaple
mais moi je souhaite augmenter le nombre de cologne par exemple
ici il met une croix pour les cologne compris entre > 2 et < 8 mai moi je veux qui fasse pareil pour > 12 et < 18 ,,,, > 22 et < 28 ,,,, > 32 et <38
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 6 And Target.Row < 38 And Target.Column > 2 And Target.Column < 8 Then
If Target = "X" Then
Target = ""
Else
Target = "X"
End If
Target.EntireRow.Range("A1").Select
End If
End Sub
Merci d'avance pour votre aide