XL 2021 Menu deroulant

[naudar]

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

 

[Eric KERGRESSE]

Bonjour,

- Pas de cellules fusionnées.
- Des tableaux structurés pour vos tables.

 

[naudar]

Bonjour,

- Pas de cellules fusionnées.
- Des tableaux structurés pour vos tables.

bonjour eric kergresse

merci pour le retour mais j'aurais voulu une sélection a choix multiple dans les colonnes. du style tech1 et tech4 et mns1 et mns6.
merci

 

[Eric KERGRESSE]

Correction faite.

 

[naudar]

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

 

[Eric KERGRESSE]

Oui, c’est tout à fait cela.
Attention à la syntaxe : Accueil au lieu d’Acceuil au moins pour faire référence à la table dans BD.
Il faut également supprimer les listes de validation dans les cellules.

 

[naudar]

Merci
Mais quand je fais un copier coller il me met une erreur car je ne sais pas créé la listbox3.

 

[Eric KERGRESSE]

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.

 

[naudar]

j ai réussi avec votre aide a faire le listbox3. non sans mal maintenant j ai bug déblocage qui apparait. et la liste que j ai crée reste tjs apparente. quelle est mon erreur

 

[naudar]

Re bonjour eric

je suis désoler je viens de trouve je suis nul j'ai fais une faute d'orthographe dans le nom acceuil a la place accueil

Encore mille merci pour ton aide précieuse

 

[jcf6464]

Bonjour naudar , eric et le forum,
Attention à la grammaire des noms accueil et non Acceuil

("t_Acceuil[Acceuil]")

le classeur en fonction

bonne continuation

jean claude

 

[naudar]

Je tien a remercie tous personne qui on pu m'aider dans mon tableau.
je suis heureux d'avoir trouvé un vrai forum, et je n'hésiterais pas a revenir vous voir et même vous redemandé des conseilles .
merci Excel-downloads

 

[naudar]

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.


Regarde la pièce jointe 1183121

ton aide a était précieuse

 

[naudar]

Bonsoir tout le monde

j'aurais une dernière question pour mon tableau. j'aurais voulu que la liste ce situe en dessous de la case sélectionné cela est t'il possible????a la place de la droite

 

[Eric KERGRESSE]

Bonjour,

Il faut modifier le code pour la ListBox de cette façon :

    With Me.ListBox1
         .Height = 80
         .Width = Target.Width
         .Top = Target.Top + Target.Height
         .Left = Target.Left '+ Target.Width
         .Visible = True
    End With
  Else
      Me.ListBox1.Visible = False
  End If