liste de validation à choix multiple

[pascal21]

bonjour le forum
j'ai regardé sur le site mais je n'ai pas trouvé de réponse à cette question
Cherchant à ameliorer mon classeur
je me pose la question suivante
est-il possible dans une zone de validation d'avoir un choix multiple
je m'explique
j'ai une liste nommée "liste" (par exemple)
j'aimerais inscrire plusieurs éléments de cette liste dans la même cellule
je l'ai réalisé (avec votre aide) avec une zone de liste dans un usf
mais j'aimerais à terme supprimer cet usf
donc je cherche des solutions de remplacement
merci de votre aide

 

[fhoest]

Re : liste de validation à choix multiple

bonjour pascal21
regarde ce poste: Selection multiple dans menu déroulant
A bientot et je salut au passage les gens du poste

 

[pascal21]

Re : liste de validation à choix multiple

bonjour
j'ai trouvé ce code qui fonctionne avec une zone de liste
à la limite ça pourrais aller
mais le problème est que ça met les mots les une en dessous des autres au lieu d'être sur une même ligne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static clic As Boolean
    Dim i%, s%
    clic = Not clic
    If clic Then
        With Me.Shapes("Zone de liste 1")
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left
        End With
    Else
        With Me.ListBoxes(1)
            For i = 1 To 8
                If .Selected(i) Then
                    s = s + 1
                    Target(s, 1).Value = Me.Cells(i, 1).Value
                    .Selected(i) = False
                End If
            Next i
            .Visible = False
        End With
    End If
End Sub
est-ce modifiable
merci

 

[BOISGONTIER]

Re : liste de validation à choix multiple

Bonjour,

Listes en cascade

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVChoixSuccessifs.xls

JB

 

[pascal21]

Re : liste de validation à choix multiple

bonjour boisgontier
j'ai vu dans différents posts que ça menait vers des listes encascades
mais sans trop y prêter attention
mais si le excelent boisgontier (dont je suis devenu un fan de son site) le dit alors c'est que ça doit être ça qu'il faut chercher

 

[pascal21]

Re : liste de validation à choix multiple

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$2" And Target.Count = 1 Then
    Application.EnableEvents = False
    p = InStr(Target.Offset(0, -1), Target.Value)
    If p > 0 Then
      Target.Offset(0, -1) = Left(Target.Offset(0, -1), p - 1) & _
        Mid(Target.Offset(0, -1), p + Len(Target.Value) + 1)
      If Right(Target.Offset(0, -1), 1) = ":" Then
        Target.Offset(0, -1) = Left(Target.Offset(0, -1), Len(Target.Offset(0, -1)) - 1)
      End If
    Else
      If Target.Offset(0, -1) = "" Then
        Target.Offset(0, -1) = Target
      Else
        Target.Offset(0, -1) = Target.Offset(0, -1) & ":" & Target.Value
      End If
    End If
    Target.Value = Target.Offset(0, -1)
    Application.EnableEvents = True
 End If
End Sub

j'ai trouvé ça qui fonctionne et qui ressemble assez à ce que je cherche
mais que modifié pour le faire fonctionner sur toute la colonne C

 

[BOISGONTIER]

Re : liste de validation à choix multiple

Voir PJ

JB

 

[pascal21]

Re : liste de validation à choix multiple

re
on doit pas être loin de ce que je désire
j'adapte et je reviens dire 'quoi'
et bien c'est parfait
moi je dis boisgontier, c'est un MONSIEUR!!!!
merci et bonne fêtes