Croix dans colonne par click

[guitou77]

Bonjour le Forum,

J'ai trouvé ce petit dossier fait par Barbara Schütte, et j'y ai apporté
une macro pour cocher d'une croix par un simple click les cellules OK correspondantes aux actes faits.
Celà fonctionne très bien, mais je ne parviens pas à éviter la sélection des
cellules marquées OK, comme expliqué dans le fichier joint.

Avec tous mes remerciements anticipés.

 

[mromain]

Re : Croix dans colonne par click

bonjour Guitou77,

essaye avec ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
If Not Intersect(Target, Application.Union(Range("C5:C15"), Range("C18:C24"), Range("C26:C31"), Range("F5:F15"), Range("F18:F24"), Range("F26:CF31"))) Is Nothing Then
    If IsEmpty(Target.Value) Then
        Target.Value = "X"
    Else
        Target.Value = ""
    End If
End If
End Sub

a+

 

[JNP]

Re : Croix dans colonne par click

Bonjour Guitou77 ,
Quelque part, la réponse est dans la question !

If Not Intersect(Target, Range("C5:C15, C18:C24, C26:C31")) Is Nothing Then

Bonne soirée
Ajout : Bonjour Mromain - Guitou, j'ai oublié de préciser, quand tu postes du Mac, pense à rajouter l'extension (.xls pour du 2001), sinon,beaucoup ne regarderons même pas ton fichier, pensant qu'il est vérolé...

 

[guitou77]

Re : Croix dans colonne par click

Bonsoir le Forum,

Merci beaucoup mromain celà fonctionne très bien.
Merci aussi JNP celà fonctionne aussi très bien, je m'obstinais à placer des
points virgules au lieu des virgules.
Oui je présente mes excuses, j'ai omis de placer l'extension .xls avant de zipper le fichier.

Encore tous mes remerciements à vous deux et à +.