liste de validation à choix multiple

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pascal21

XLDnaute Barbatruc
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
 
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
Code:
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
 
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
 
Re : liste de validation à choix multiple

Code:
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
 
Dernière édition:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Liste de choix...
Réponses
8
Affichages
163
Réponses
11
Affichages
266
Réponses
6
Affichages
165
Retour