Discussion :

[saber 3615]

Bonsoir
j'ai un code qui fonctionne super bien,
au double clic sur n'importe quelle cellule de la colonne D l'userform2 se lance

voici le code qui marche bien

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
        Cancel = True
        UserForm2.Show
 
    End If
    End Sub

Je souhaite ajouter une autres condition : au double clic sur n'importe quelle cellule de la colonne E l'userform3 se lance également

Alors j'ai fais comme ça

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.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
        Cancel = True
        UserForm2.Show
        If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
        Cancel = True
        UserForm3.Show
    End If
    End Sub

Malheureusement ça bloque
quelqu'un peut m'aider svp ?

[Pierre Fauconnier]

Salut.


Dans ton code, il manque un End If à la fin du bloc qui teste que tu es en colonne D. Le test Target.Count est inutile, un double-clic recevra toujours un Target monocellule. Dès lors, l'Exit Sub (Beurk ) devient inutile

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("d:d")) Is Nothing Then
    Cancel = True
    UserForm2.Show
  End If
  If Not Intersect(Target, Range("e:e")) Is Nothing Then
    Cancel = True
    UserForm3.Show
  End If
End Sub

[BENNASR]

Bonjour Pièrre, la forum , SALAM SABER
je crois que Application.Union fait l'affaire

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Application.Union(Range("D:D"), Range("E:E"))) Is Nothing Then
        Cancel = True
        UserForm2.Show
    End If
    End Sub

[saber 3615]

...

merci beacoup vous m 'avez sauvé la vie

[Pierre Fauconnier]

Bonjour BENNASR

Si j'ai bien lu, il s'agit de lancer un autre userform (le 3 au lieu du 2). Sinon, une autre méthode que UNION () serait d'adresser directement les colonnes:
If Not Intersect(Target, Range("d:e")) Is Nothing Then pour des colonnes contiguës

If Not Intersect(Target, Range("d:d,F:F,K:N")) Is Nothing Then pour des colonnes discontiguës

[Pierre Fauconnier]

merci beacoup vous m 'avez sauvé la vie

Wouah, rien que ça... Heureux je suis

Bonne journée

[BENNASR]

rebonjour Pièrre
t'as raison ... j'ai pas bien lu la demande ... manque un café et tout de suite pour bien ouvrir les yeux
Bonne journée à vous et à toutes et tous

[Pierre Fauconnier]

[...]
t'as raison ... j'ai pas bien lu la demande ... [...]

Pas de soucis, ça donne l'idée de UNION, et ça m'a donnée envie d'un café...