target.row et target .col...

[casper62110]

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

 

[Pierrot93]

Re : target.row et target .col...

Bonjour Casper

essaye comme ci dessous, si j'ai bien compris :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 6 And Target.Row < 38 And (Target.Column > 2 And Target.Column < 8 Or _
     Target.Column > 12 And Target.Column < 18 Or Target.Column > 22 And Target.Column < 28) Then
If Target = "X" Then
Target = ""
Else
Target = "X"
End If
Target.EntireRow.Range("A1").Select
End If
End Sub

bon après midi
@+

 

[casper62110]

Re : target.row et target .col...

Je sai pas cela ne marche pas les case 18 a 22 par exemple lorsque je clique ne fait pas apparaitre de croix

 

[Pierrot93]

Re : target.row et target .col...

Bonjour Casper

normal, les colonnes 18 à 22 ne sont pas prises en compte dans le code, donnes peut être la liste exhaustives des colonnes que tu veux voir concernées.

@+