Discussion :

[momoju]

Bonsoir à toutes et à tous,

Voici mon souci : J'ai créé plusieurs listes à choix multiple dans une même feuille. J'ai entré le code pour la 1ère liste qui se trouve en colonne J mais pour les listes qui se trouvent en colonne AJ et AL j'ai un problème. J'ai essayé avec ElseIf mais ce la ne fonctionne pas. Je vous joins le code. Un grand merci si vous pouviez m'éclairer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'au double-clic dans une cellule
    If Target.Column <> 10 Or Target.Row < 4 Then Exit Sub
        'si double clic autre que dans la colonne J ou dans une ligne inf?rieure ? 4, sortir de la proc?dure
        Cancel = True 'annule le mode [?dition] li? au double-clic
        ListeIntervenants.Show 'lance l'UserForm1
 
    If Target.Column <> 36 Or Target.Row < 4 Then Exit Sub
 
        Cancel = True 'annule le mode [?dition] li? au double-clic
        ListeFonctions.Show 'lance l'UserForm1
 
End Sub

[Thautheme]

Bonjour Momoju, bonjour le forum,

Peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'au double-clic dans une cellule
Select Case Target.Column
    Case 10
        'si double clic autre que dans la colonne J ou dans une ligne inf?rieure ? 4, sortir de la proc?dure
        Cancel = True 'annule le mode [?dition] li? au double-clic
        ListeIntervenants.Show 'lance l'UserForm1
    Case 36
        Cancel = True 'annule le mode [?dition] li? au double-clic
        ListeFonctions.Show 'lance l'UserForm1
End Select
End Sub

[momoju]

Bonjour à toutes et à tous,

Mille mercis Thautheme, cela fonctionne à merveille !!!

Bonne journée !