Discussion :

[moilou2]

Bonjour à tous, pour le moment, je fais apparaître des formulaire, par clic dans une cellule. Je voudrais savoir si c'était possible de le faire sur double clic?

Voila le code que j'ai actuelement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Column = 9 Then
        UserForm4.Show
    End If
 
    If Target.Column = 8 Then
        UserForm5.Show
    End If
 
End Sub

Merci

[casefayere]

Code :

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

[moilou2]

Nikel merci

Par contre, si je veux par exemple que cela commence après la ligne 3?

Je fais comment

[David2304]

tu rajoutes simplement en condition

Code :

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

target.row >= 3

[casefayere]

a mon avis meme principe que pour to selection_change avec if target.row

[Didier Gonard]

bonjour,

Ok pour David 2304 avec > seulement,

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 Then
    MsgBox Target.Row
End If
End Sub

cordialement,

Didier

[moilou2]

Je ne peut pas ajouter une condition a mon if?

J'ai essayé comme sa mais je ne pense pas que se soit la bonne syntaxe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
   If Target.Column = 8 & Target.Row > 3 Then
        UserForm5.Show
    End If
 
    If Target.Column = 9 & Target.Row > 3 Then
        UserForm4.Show
    End If
 
End Sub

[David2304]

Autant pour moi j'aurais du relire la question

utilises "and" plutot que "&"

[moilou2]

Sa marche merci