Excel - Plusieurs listes déroulantes à choix multiples

Question

Je sollicite votre aide car j'ai crée un fichier excel avec une colonne à choix multiples. Je m'explique : 1. Je souhaite pouvoir sélectionner plusieurs choix dans une liste déroulante 2. J'ai réussi à le faire grâce au code suivant : Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim ValSaisie Dim P As Integer If Not Intersect(Columns("G"), Target) Is Nothing And Target.Count = 1 And Target.Row &gt; 1 Then Application.EnableEvents = False ValSaisie = Target Application.Undo P = InStr(Target, ValSaisie) If P &gt; 0 Then Target = Left(Target, P - 1) & Mid(Target, P + Len(ValSaisie) + 1) If Right(Target, 1) = "," Then Target = Left(Target, Len(Target) - 1) End If Else If Target = "" Then Target = ValSaisie Else Target = Target & "," & ValSaisie End If End If Application.EnableEvents = True End If End Sub 3. Cependant j'aimerais avoir une autre colonne avec un choix multiple et je ne sais pas quoi changer dans le code pour pouvoir y arriver &gt; la colonne architecture et la colonne restaurants Pourriez vous m'aider ? Bien à vous, Margot...

boss_68 · Accepted Answer

Essai un truc comme ça.... Remplace ton code par celui-ci Slts Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim ValSaisie Dim P As Integer If Not Intersect(Columns("G"), Target) Is Nothing And Target.Count = 1 And Target.Row &gt; 1 Then Application.EnableEvents = False ValSaisie = Target Application.Undo P = InStr(Target, ValSaisie) If P &gt; 0 Then Target = Left(Target, P - 1) &amp; Mid(Target, P + Len(ValSaisie) + 1) If Right(Target, 1) = "," Then Target = Left(Target, Len(Target) - 1) End If Else If Target = "" Then Target = ValSaisie Else Target = Target &amp; "," &amp; ValSaisie End If End If Application.EnableEvents = True End If If Not Intersect(Columns("H"), Target) Is Nothing And Target.Count = 1 And Target.Row &gt; 1 Then Application.EnableEvents = False ValSaisie = Target Application.Undo P = InStr(Target, ValSaisie) If P &gt; 0 Then Target = Left(Target, P - 1) &amp; Mid(Target, P + Len(ValSaisie) + 1) If Right(Target, 1) = "," Then Target = Left(Target, Len(Target) - 1) End If Else If Target = "" Then Target = ValSaisie Else Target = Target &amp; "," &amp; ValSaisie End If End If Application.EnableEvents = True End If End Sub...

boss_68 · Answer

Re bonsoir

Oui effectivement mais je pense que tu as omis de mettre ceci à la suite

End If
    Else
      If Target = "" Then
        Target = ValSaisie
      Else
        Target = Target & "," & ValSaisie
      End If
    End If
    Application.EnableEvents = True
  End If

Par contre à la place de l'ancien code tu peux tester celui-là en-dessous......... et et rajouter tes colonnes supplémentaire ici à l'ocasion

If Not Intersect(Range(""G2:G100", "H2:H100""), Target) Is Nothing And Target.Count = 1 Then

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("G2:G100", "H2:H100"), Target) Is Nothing And Target.Count = 1 Then
    If Target = "" Then Exit Sub
     Application.EnableEvents = False
     ValSaisie = Target
     Application.Undo
     p = InStr(Target, ValSaisie)
     If p > 0 Then
       Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 4)
       If Right(Target, 4) = ", " Then
          Target = Left(Target, Len(Target) - 4)
       End If
     Else
       If Target = "" Then
         Target = ValSaisie
       Else
        Target = Target & ", " & ValSaisie
       End If
     End If
     Application.EnableEvents = True
  End If
End Sub

Sub ret()
  Application.EnableEvents = True
End Sub

boss_68 · Answer

Un nouveau code est placé dans ThisWorkbook à la place de l'ancien, il est valable pour toute la plage G2:Y Dans le gestionnaire des noms j'ai créer des plages nommées pour chaque listes déroulantes avec une formule décaler, qui permet d'ajouter ou de supprimer des noms dans les colonnes A,B,C,D,E,F,G,H,I,J,K sans modifier les valeurs des plages Voir Pj Slts...

boss_68 · Answer

En admettant que tu rajoutes une colonne Z alors dans le code qui ce trouve dans ThisWorbook recherche cette ligne et modifie la dernière lettre Y par Z https://nsa40.casimages.com/img/2020/06/17/200617075610515779.jpg Quand tu clics sur la cellule ou ce trouve la liste déroulante tu prends la poignée de recopie "c'est le petit carré noir en bas de la cellule à droite et tu la fais glisser jusqu'à la ligne 5000 Normalement vu que chaque items à sa plage nommées avec une formule décaler, tu peux écrire directement 30 à la suite du dernier mot de la colonne Architecture dans la feuil2, il le prendra directement en compte dans ta liste déroulante au cas ou fait le moi savoir Slts...