Utilisation de deux listebox sur une même feuille

Bonjour,

Je me permets de me tourner vers vous car mes compétences en bricolage excel sont largement dépassées.

Dans un tableau excel, je dois créer des listes déroulantes dans lesquelles avoir la possibilité de faire plusieurs choix.

En tâtonnant sur le web, j'ai trouvé une solution avec les listboxes.

Je suis parvenu à en faire une qui fonctionne.

J'ai essayé d'en faire une seconde dans une autre colonne, mais là, je suis incapable de la faire fonctionner.

Dans le fichier joint, la listbox qui fonctionne est dans la colonne U (sur toute la colonne).

J'ai essayé d'en mettre une seconde dans la colonne I, mais là, ça ne marche pas. J'ai été incapable de trouver une solution.

Merci d'avance et bonne journée

Bonjour,

Essayer :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("U2:U288")) Is Nothing Then
        Target.Value = ""
        Load UserForm1
        UserForm1.Show
        Cancel = True
    ElseIf Not Intersect(Target, Range("I2:I288")) Is Nothing Then
        Target.Value = ""
        Load UserForm2
        UserForm2.Show
        Cancel = True
    End If
End Sub

Cordialement.

Bonjour,

C'est parfait, merci beaucoup pour la solution et la rapidité.

Cordialement