Discussion :

[manuseverine]

Bonjour,

J'ai un code :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
UserForm1.Show
End If
End Sub

il marque mais j'essaie de l'appliquer à une cellule en praticulier.

Au lieu de cliquer dans la colonne B, je veux la cellule B20, uniquement celle là.
J'ai essayé plein de code mais je n'arrive pas.

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range = (B20) Then
UserForm1.Show
End If
End Sub

[Chipss]

Tu peut utiliser une petite astuce qui consistera à faire

Code :

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

1
2
3
4
 
If Target.column=2 And Target.Row=20 Then
 'instructions
End if

Chipss

[patricktoulon]

bonjour

ou dans le meme sens que chipss

Code :

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

1
2
3
4
5
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 2 And ActiveCell.Row = 20 Then UserForm1.Show 0
End Sub

au plaisir

[mercatog]

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.address = "$B$20" Then UserForm1.Show
End Sub

[manuseverine]

3 solutions, c'est trop beau.

Ne vous vexez pas mais je vais suivre Mercatog, c'est vraiment ce que je cherchais et je vais m'en servir à plusieurs endroits.

Merci à tous les 3 en tout cas

Bonne soirée