Discussion :

[jonathanoudelet]

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.
Ps; Fring ? j'abuse un peu mais vous m'avez bien aidé aujourd'hui...

[JackOuYA]

bonsoir,

john ..

à mettre dans le code de ta feuille 4 :

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)
  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

[YannLaure]

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 :

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)
  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