clic sur cellule et ouverture userform

Bonsoir à tous,

Voila, j'aimerai réussir à produire un code qui, en cliquant sur une cellule de la colonne 4 de ma feuille 4, le code check une autre cellule de la même ligne (colonne E) et, si il y a un "X" dans celle-ci, ouvre une userform (userform1).

Pouvez-vous me donner quelques pistes de reflexions ? ;)

merci par avance à tous.:D
Ps; Fring ? j'abuse un peu mais vous m'avez bien aidé aujourd'hui...:king:

bonsoir,

john ..

à mettre dans le code de ta feuille 4 :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then ' Si seulement une seule cellule selectionnée If Target.Column = 4 Then 'Si colonne 4 If Target.Offset(0, 1) = "X" Then ' Colonne 4 = D, 5 =E MsgBox "Mettre Ici le code d'ouverture de l'userform" End If End If End If End Sub

---

Précision: à la fin de la macro selectionner une cellule en dehors de la colonne 4 pour éviter de cliquer sur la sélection en cours ce qui ne changerait pas la sélection donc ne déclencherait pas l'évènement. Par exemple ActiveSheet.Cells(1,1).Select

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then ' Si seulement une seule cellule selectionnée If Target.Column = 4 Then 'Si colonne 4 If Target.Offset(0, 1) = "X" Then ' Colonne 4 = D, 5 =E MsgBox "Mettre Ici le code d'ouverture de l'userform" End If ActiveSheet.Cells(1,1).Select End If End If End Sub

---

Merci à vous, c'est génial !
C'est exactement ce que je cherchais à faire :king:
J'ai juste rajouté des If afin qu'il cherche si c'est un "X", un "O"...

Merci encore. :D