Discussion :

[mirmoleboss]

Bonjour,
Voilà je chercher à "cocher" une cellule.

Je m'explique, je souhaite pouvoir faire en sorte que l'utilisateur ne puisse faire que cocher ou décocher une cellule (mettre un "X" ou l'enlever)

J'ai ce code pour le faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A2:D2")) Is Nothing Then 'modifie ton tableau
If Target.Value = "" Then
Target.Value ="X"
Else
Target.Value = ""
End If
End If
End Sub

Cependant la façon dont est construit mon fichier rend la chose un plus difficile.(cf PJ)

C'est sur le range de selection que je me casse la tête. Est-il possible que l'un d'entre vous m'aide? (Je pense qu'il faut créer des "noms")

PJ:
la partie A est crée par copie de la zone A (ajouter activité => bouton non visible)
la partie B est crée par copie de la zone B (ajouter application)

Merci