Liste de choix multiselectionavec saisie automatique

[zazie123]

Bonjour,

Je voudrais créer une liste de choix avec la possibilité d'avoir une saisie semi automatique afin d'éviter de rechercher dans la liste le bon nom et pouvoir sélection plusieurs noms différents dans cette liste et tout ça dans la même cellule. J'ai essayé avec données validation, j'arrive pour la liste de choix et saisie semi automatique grace à une formule dans la case source par contre je ne sais pas comment mettre plusieurs données de cette liste dans la meme cellule, soit séparée par un point virgule ou mettre à la ligne. Peut-etre avec le VBA et la listbox mais là je ne sais pas faire si vous aviez une idée, si je ne suis pas claire dite le moi. Merci à tous pour votre aide.

 

[jeanpierre]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour zazie123,

Une petite Recherche, en haut à droite, sur LISTE CASCADE,

Plein de réponse de nos amis Jocelyn et BOISGONTIER, entre autres.

Ensuite, il sera possible d'affiner si besoin.

Voilà.

 

[BOISGONTIER]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour,

Voir PJ (non testé)

JB

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

bonjour Boisgontier,

voir PJ mais laquelle, où? merci de ta réponse, je peux mettre en fichier en PJ pour etre plus clair dans ma demande, comment fait-on?

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

coucou boisgontier,

j'ai ouvert ton fichier, ça à l'air correspondre à ce que je recherche, je teste demain car la il est tard. Je te remercie vivement et te tien au courant pour ma base. Mille merci

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

excuse mais le code que tu as mis je le mets dans une macro et où ? pour validation ça c'est ok, j'ai pigé. bonne soirée

 

[BOISGONTIER]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour,


-Clic-Droit sur le nom d'onglet
-Visualiser le code

JB

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

Bonsoir,
J'ai bien trouvé le code mais comment fonctionne t-il ? il se lance automatiquement. Bon je joins mon fichier base, si tu vous pouvez m'aider à réaliser ma demande. Un grand merci par avance.

 

[BOISGONTIER]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour,


Voir PJ

JB

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

Merci mille BOISGONTIER, vous êtes un pro, j'essaie de mettre en application vos manip dans ma base et espère que je vais aboutir au résultat que je souhaite. BRAVO

ZAZIE

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

Bon, je vais encore vous embêter, j'essaie de reproduire sur une autre cellule la procédure décrite, je sais comment mettre le code avec les bonnes cellules mais cela ne se reporte pas dans la cellule d'a coté comme vous l'avez fait. Pourquoi ? le code devrait le faire automatiquement ? Votre procédure est exactement ce que je cherchais, si vous pouviez m'aider encore... Bonne journée

 

[BOISGONTIER]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour,


Voir PJ

If Not Intersect([B13:B20], Target) Is Nothing And Target.Count = 1 Then

JB

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

Merci beaucoup , mais je vais faire la casse pied, j'aimerais comprendre la procédure du code.j'aimerais bien mettre en place le code décrit dans le fichier basex (que tu m'as envoyé), dans un autre fichier et que la procédure qui permet de choisir mes données dans ma liste de choix se reportent dans une autre cellule. Pouvez-vous me dire comment créer ce code (j'ai bien compris qu'il faut faire un clic droit et visualiser le code) mais comment le report dans la cellule se fait, car j'ai reproduis le code dans un autre fichier et cela ne marche pas. Pourtant quand j'ouvre le fichier il exécute la macro a priori. Merci pour le temps passé à élucider mon problème.

 

[zazie123]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour, j'ai réussi à mettre le code et à faire la procédure que vous aviez indiqué c'est génial. J'ai une autre question, j'aimerais faire la même chose mais avec d'autres données d'une autre liste de choix dans une autre cellule. Problème avec le code. Pouvez-vous encore m'aider ? Merci de votre réponse. Ci-join le fichier pour exemple

 

[BOISGONTIER]

Re : Liste de choix multiselectionavec saisie automatique

Bonjour,

Voir PJ

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$B$13" And Target.Count = 1 Then
    On Error Resume Next
    Set temp = Sheets("listes").Range("LesNoms").Find(what:=Target.Value, LookAt:=xlWhole)
    If Err = 0 Then
        On Error GoTo 0
        Set temp = Sheets("listes").Range("LesNoms").Find(what:=Target.Value, LookAt:=xlWhole)
        If temp Is Nothing Then Exit Sub
        p = InStr(Target.Offset(0, 2), Target.Value & ":")
        If p > 0 Then
         Target.Offset(0, 2) = Left(Target.Offset(0, 2), p - 1) & _
            Mid(Target.Offset(0, 2), p + Len(Target.Value) + 1)
        Else
            Target.Offset(0, 2) = Target.Offset(0, 2) & Target.Value & ":"
        End If
        Application.EnableEvents = False
        Target = Empty
        Application.EnableEvents = True
     End If
 End If
  If Target.Address = "$B$14" And Target.Count = 1 Then
    On Error Resume Next
    Set temp = Sheets("listes").Range("Autres").Find(what:=Target.Value, LookAt:=xlWhole)
    If Err = 0 Then
        On Error GoTo 0
        Set temp = Sheets("listes").Range("Autres").Find(what:=Target.Value, LookAt:=xlWhole)
        If temp Is Nothing Then Exit Sub
        p = InStr(Target.Offset(0, 2), Target.Value & ":")
        If p > 0 Then
         Target.Offset(0, 2) = Left(Target.Offset(0, 2), p - 1) & _
            Mid(Target.Offset(0, 2), p + Len(Target.Value) + 1)
        Else
            Target.Offset(0, 2) = Target.Offset(0, 2) & Target.Value & ":"
        End If
        Application.EnableEvents = False
        Target = Empty
        Application.EnableEvents = True
     End If
 End If
End Sub

JB