XL 2021 Menu deroulant

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 !

naudar

XLDnaute Nouveau
bonjour a tous

je débute dans Excel et je n 'arrive pas a faire ce que je veux.
j 'aurais voulu avoir une liste déroulant dans le colonne C,D,E,F a choix multiple.
j 'ai réussi a trouver un model de fichier que j'ai refait.
je doit organiser une vidange de piscine avec des équipes.
pourriez vous m'aider a réaliser mon projet.

merci Arnaud
 

Pièces jointes

un gd merci Eric KERGRESSE
pour la correction. et si je veux le faire sur les autres colonnes qu'elle est la manip.
avec acceuil et direction. car je voudrais comprendre pour mes futurs fichier.
je doit rajoute sa???

If Not Intersect(Range("t_Planning[acceuil]"), Target) Is Nothing And Target.Count = 1 Then
Me.ListBox3.MultiSelect = fmMultiSelectMulti
Me.ListBox3.List = Sheets("BD").Range("t_acceuil[technicien]").Value
A = Split(Target, ", ")
If UBound(A) >= 0 Then
For I = 0 To Me.ListBox3.ListCount - 1
If Not IsError(Application.Match(Me.ListBox3.List(I), A, 0)) Then Me.ListBox3.Selected(I) = True
Next I
End If
With Me.ListBox3
.Height = 80
.Width = 100
.Top = Target.Top
.Left = Target.Left + Target.Width
.Visible = True
End With
Else
Me.ListBox3.Visible = False
End If

et apres je rajoute



Private Sub ListBox3_Change()

Dim I As Integer
Dim Temp As Variant

With Me.ListBox3
For I = 0 To .ListCount - 1
If .Selected(I) = True Then Temp = Temp & .List(I) & ", "
Next I
End With

ActiveCell = Trim(Temp)

End Sub

je doit mettre cette formule si je comprend bien???
je suis desole mais je commence sur excel 🙂

merci arnaud
 
Dans le menu Développeur d’Excel, cliquer sur Mode création. Sélectionner une des ListBox qui sont maintenant apparentes, et copier-coller. Par défaut le nom sera ListBox3, en profiter pour faire la ListBox4.

Une fois fait, recliquer sur Mode création.


Capture.JPG
 
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

Réponses
7
Affichages
735
Retour