mauvaise info textBOX

herve62

XLDnaute Barbatruc

• 19 Octobre 2015

• #16

Re : créer listbox auto

Yups !! on s'est croisé
Le tien fonctionne bien faut que je compare dans mon Appli
merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Octobre 2015

• #17

Re : créer listbox auto

Voici une version commentée et améliorée.

La hauteur des ComboBox s'adapte automatiquement au nombre de lignes qu'elles contiennent.

A +

Cordialement.

 

Pièces jointes

• Copie 01 de Classeur2.xlsm

  29 KB · Affichages: 42

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Octobre 2015

• #18

Re : créer listbox auto

RE:

J'ai oublié de te préciser qu'il faut mieux intégrer le code dans l'événement Change plutôt que dans AfterUpdate.

Cordialement.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 19 Octobre 2015

• #19

Re : créer listbox auto

Bonsoir
Apparemment j'ai pu adapter sauf que :
Il faudrait que SI multiple prénoms la box n'affiche RIEN temps que le Prénom n'est pas selectionné
car avec Change ma routine se poursuit et remplit plein d'autres box qui vont me donner la fiche et enregistrer dans une feuille
Donc si je change le Prenom ça change pas les autres .... modif ?? : ca va me compliquer à tout changer
Comme ça je fais juste le reste avec : IF Nom ET Prenom = ... ; avant d'afficher les infos dans les box
Merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Octobre 2015

• #20

Re : créer listbox auto

RE:

Normalement, on ne devrait pas être loin d'en finir (enfin).

L'expérience n'en sera que plus grande!

Cordialement.

 

Pièces jointes

• Copie 02 de Classeur2.xlsm

  29.9 KB · Affichages: 32

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 20 Octobre 2015

• #21

Re : créer listbox auto

Bonjour
Bin voilà !! impec
dommage que l'on peut pas mettre de couleurs en VBE pour voir ou sont les modif car j'ai déjà tout adapté dans l'appli
donc je vais pas refaire un copier/coller de ton nouveau code , mais je m'en sortirai
Encore Merci l'ancien !!

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 20 Octobre 2015

• #22

Re : créer listbox auto

Bonsoir
Sorry PAPOU , mais obligé de revenir !
Ca marche sans erreur dans mon appli , mais pas comme il faut
en effet j'ai encore une dizaine de box que j'alimente directe selon nom et prénom ( j'ai remis les 2 en CHANGE)
Le soucis c'est que DèS QUE BOX1 a une valeur .... TOUT s'affiche et donc si il y a un Prenom à choisir c'est Déjà les infos du 1er qui s'affichent !!

un extrait :

Code:

'nom_P = Box1.Value
'============
' Nouvelle METHODE ICI
'==================
Set nom_P = Feuil10.Columns(1).Find(Box1.Value)
  With Box2
  .Clear ' Efface Box2
  .AddItem nom_P.Offset(0, 1).Value ' Ajoute le prénom à Box2, situé en colonne B
  ' Vérifie si la cellule de la ligne inférieure contient le même nom
  While nom_P = nom_P.Offset(1, 0)
    ' Si oui, descend d'une ligne et ajoute le prénom
    Set nom_P = nom_P.Offset(1, 0)
    .AddItem nom_P.Offset(0, 1).Value
  Wend
  .ListRows = Box2.ListCount ' Ajuste la taille de Box2 au nombre de lignes
  If Box2.ListCount = 1 Then
    .ShowDropButtonWhen = 0
    .ListIndex = 0
    Else
    .ShowDropButtonWhen = 2
    .ListIndex = -1
  End If
End With
 '======================
  With Worksheets("SIGNALETIQUE")
ligF = .Range("A500").End(xlUp).Row
For lig_HE = 2 To ligF
 If nom_P = .Cells(lig_HE, 1).Value Then
 Box2.Value = .Cells(lig_HE, 2).Value
 Box3.Value = .Cells(lig_HE, 3).Value
 Box4.Value = .Cells(lig_HE, 4).Value
 Box5.Value = .Cells(lig_HE, 5).Value
 Box6.Value = .Cells(lig_HE, 6).Value
 box7.Value = .Cells(lig_HE, 7).Value ' ERREUR c'était une LABEL BOX avant ??

Donc il faudrait Que le reste ne se remplisse QUE lorsque BOX1 ET 2 soient correctement complétées ?
parce que j'ajoute aussi une image ....
Merci ; Bonne soirée

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 20 Octobre 2015

• #23

Re : créer listbox auto

J'ajoute le squelette de la suite de ton fichier : supposons que l'on doive afficher le Service & Mat . dans les 2 box

 

Pièces jointes

• Classeur2_fini.xlsm

  21.5 KB · Affichages: 22
• Classeur2_fini.xlsm

  21.5 KB · Affichages: 23

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 20 Octobre 2015

• #24

Re : créer listbox auto

RE:

Vois si ça te convient.

Cordialement.

 

Pièces jointes

• Copie de Classeur2_fini.xlsm

  24.5 KB · Affichages: 29

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 20 Octobre 2015

• #25

Re : créer listbox auto

J'ai regardé vite fait : ça fonctionne
Mais fatigué , j'analyse tout ça demain ... à tête reposée
Merci bien de ton suivi .... et bonne nuit

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 20 Octobre 2015

• #26

Re : créer listbox auto

Juste pour savoir demain :
Apparemment tout mon code (BOX1) au niveau du remplissage des autres Box doit être transféré dans BOX2 ?
selon ce que j'ai aperçu vite fait (serv et mat > dans box2)

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 20 Octobre 2015

• #27

Re : créer listbox auto

herve62 à dit:

Juste pour savoir demain :
Apparemment tout mon code (BOX1) au niveau du remplissage des autres Box doit être transféré dans BOX2 ?
selon ce que j'ai aperçu vite fait (serv et mat > dans box2)

Cliquez pour agrandir...

RE:

Effectivement, puisque les autres box ne doivent être renseignées que si nom et prénom sont indiqués. La box 2 ne se remplit automatiquement que si box 1 contient un nom unique. Dans le cas contraire, c'est à l'opérateur d'indiquer le prénom. Une fois box 2 renseigné, les deux dernières suivent en cascade. C'est bien ce que j'ai compris que tu voulais, non?

Bonne nuit et bon repos.

A +

Cordialement.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 21 Octobre 2015

• #28

Re : créer listbox auto

Bonjour
Voilà je m'en suis sorti sans trop de mal , tout mixé avec le reste de mon code
Donc étant aussi pédagogue , je dis : "quand tu as été aidé et que tu as réussi c'est que le Prof était bon ...!!"
Encore merci et Bonne journée

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 21 Octobre 2015

• #29

Re : créer listbox auto

salut

j'avais commencé à préparer une réponse qui m'a servi à traiter une demande similaire - tout comme Papou-net 😉.
Je l'ai complétée (ici le choix du nom sans doublon ne dépend pas du tri et la suite dépend de l'unicité du nom...).
J'ai choisi une suite plausible mais il ne sera pas difficle d'y intégrer la recherche des images voulues comme le code donné le laisse prévoir.

 

Pièces jointes

• Combo List (Usf).xlsm

  30.7 KB · Affichages: 31

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 21 Octobre 2015

• #30

Re : créer listbox auto

MerSi au Si .. SI
d'avoir étudié mon Pb , ton code me parait simple !! mais fonctionne
je l'empile dans mon grenier . car je poursuis l'appli

 

Vote positif 0 Vote négatif