XL 2021 Menu deroulant

E

Eric KERGRESSE

XLDnaute Occasionnel

• 7 Novembre 2023

• #2

Bonjour,

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

 

Pièces jointes

• Naudar VIDANGE.xlsm

  134.4 KB · Affichages: 3

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 7 Novembre 2023

• #3

Eric KERGRESSE à dit:

Bonjour,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

E

Eric KERGRESSE

XLDnaute Occasionnel

• 7 Novembre 2023

• #4

Correction faite.

 

Pièces jointes

• Naudar Vidange V2.xlsm

  145.4 KB · Affichages: 6

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 7 Novembre 2023

• #5

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

 

Vote positif 0 Vote négatif

E

Eric KERGRESSE

XLDnaute Occasionnel

• 8 Novembre 2023

• #6

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.

 

Dernière édition: 8 Novembre 2023

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 8 Novembre 2023

• #7

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

 

Vote positif 0 Vote négatif

E

Eric KERGRESSE

XLDnaute Occasionnel

• 8 Novembre 2023

• #8

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.

 

Dernière édition: 8 Novembre 2023

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 8 Novembre 2023

• #9

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

 

Pièces jointes

• capture erreur2.jpg

  243.6 KB · Affichages: 5
• Naudar Vidange V2.xlsm

  159.1 KB · Affichages: 1

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 8 Novembre 2023

• #10

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

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 8 Novembre 2023

• #11

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

VB:

("t_Acceuil[Acceuil]")

le classeur en fonction

bonne continuation

jean claude

 

Pièces jointes

• Naudar Vidange V2-1.xlsm

  159.6 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

N

naudar

XLDnaute Nouveau

• 8 Novembre 2023

• #12

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

 

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 8 Novembre 2023

• #13

Eric KERGRESSE à dit:

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

Cliquez pour agrandir...

ton aide a était précieuse

 

Vote positif 0 Vote négatif

N

naudar

XLDnaute Nouveau

• 14 Novembre 2023

• #14

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

 

Vote positif 0 Vote négatif

E

Eric KERGRESSE

XLDnaute Occasionnel

• 15 Novembre 2023

• #15

Bonjour,

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

VB:

    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

 

Vote positif 0 Vote négatif