mauvaise info textBOX

Papou-net

XLDnaute Barbatruc

• 18 Octobre 2015

• #2

Re : créer listbox auto

Bonsoir Herve62,

C'est tout-à-fait possible.

Voici un exemple en PJ.

Cordialement.

 

Pièces jointes

• Exemple Herve62.xlsm

  21.2 KB · Affichages: 52
• Exemple Herve62.xlsm

  21.2 KB · Affichages: 49

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 18 Octobre 2015

• #3

Re : créer listbox auto

Bonsoir
Merci de la réponse , mais rien ne marche ??
je suis en VBA ( list ,combo c'est du VBA) et en USF
là j'ai entré "LEBLANC" pour tester et.... ca fait rien ?
Merci pour la suite

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Octobre 2015

• #4

Re : créer listbox auto

Bonsoir à tous

hervé62
Je confirme que cela fonctionne très bien 😉
(je parle du fichier de Papou-net)
(testé sur XL 2013)

La preuve en image

 

Dernière édition: 18 Octobre 2015

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 18 Octobre 2015

• #5

Re : créer listbox auto

Salut JM
Heureusement que je connais EXCEL et ....
car si on respecte pas la "casse" ça marche pas , donc quand on laisse une appli à Mr UNTEL ( ou Untel )
Y te DIT : Ca va pas ton truc !!!
sinon je regarde pour adapter dans mon USF !
Bonne soirée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Octobre 2015

• #6

Re : créer listbox auto

Re

Moi aussi je connais Excel (lol)
Pour la casse, il suffit d'une toute petit modif
Donc le code de Papou-net est loin de ne pas marcher 😉

Code:

Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
With ComboBox1
  .Clear
  For Each cel In Columns(1).SpecialCells(xlCellTypeConstants)
    If UCase(cel) = UCase(TextBox1) Then .AddItem cel.Offset(0, 1)
  Next
  If .ListCount < 1 Then
    .ShowDropButtonWhen = 0
    Else
    .ShowDropButtonWhen = 2
  End If
  If .ListCount > 0 Then .ListIndex = 0
End With
End Sub

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 18 Octobre 2015

• #7

Re : créer listbox auto

quand je dis que je connais Excel ... c'est pas pour moi mais le ZOZO qui utilise !!!

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 18 Octobre 2015

• #8

Re : créer listbox auto

Re:

Je ne voudrais pas "cristalliser" sur le sujet, mais comme le dit JM (que je salue amicalement), un fichier comme base de travail aurait été plus parlant.

Sinon, le mieux serait peut-être de prévoir également une ComboBox pour l'affichage des noms d'où plus de problème pour la casse de caractères. A défaut, la proposition de JM est pertinente, j'aurais d'ailleurs dû y penser puisque je connais cette syntaxe.

Cordialement.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 18 Octobre 2015

• #9

Re : créer listbox auto

RE:

Petit raffinement sur la version modifiée en PJ: si la liste ne contient qu'un seul prénom, la flèche de défilement est masquée.

Cordialement.

 

Pièces jointes

• Exemple Herve62.xlsm

  20 KB · Affichages: 45
• Exemple Herve62.xlsm

  20 KB · Affichages: 43

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 18 Octobre 2015

• #10

Re : créer listbox auto

Justement voilà le fichier ( le reste est que du perso non diffusable ici )

 

Pièces jointes

• Classeur2.xlsm

  28.4 KB · Affichages: 43
• Classeur2.xlsm

  28.4 KB · Affichages: 43

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 19 Octobre 2015

• #11

Re : créer listbox auto

Bonjour
J'ai inséré le bout de code de Papou , j'ai mis où dans le VBA
le HIC ! , j'ai jamais utilisé cette méthode et je sais pas ENLEVER le "bouton ascenseur" de la Combo2 ?
comme dans l'exemple ( j'ai insérer "Liste Modifiable")
je pense qu'il y a confusion entre l'exemple et ce que j'ai pu refaire ! ( là ça plante)
Merci

 

Pièces jointes

• Classeur2.xlsm

  26 KB · Affichages: 44
• Classeur2.xlsm

  26 KB · Affichages: 44

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Octobre 2015

• #12

Re : créer listbox auto

Bonjour,

Pas sûr que tu observes bien ton code.

Déjà, à vue de nez, deux erreurs:

Commence par remplacer CombBox2 par Box2 (et une erreur de moins!)

Puis crées les ComboBox4 à 13 (et deux erreurs de moins!)

Puis reviens ici si tu as d'autres soucis.

Cordialement.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 19 Octobre 2015

• #13

Re : créer listbox auto

re

Commence par remplacer CombBox2 par Box2 (et une erreur de moins!)

Puis crées les ComboBox4 à 13 (et deux erreurs de moins!)

Cliquez pour agrandir...

je ne vais pas créer dans ce fichier c'est un exemple donc j'ai mis en com.
et ma ComboBox2 s'appelle BIEN : Box2 ( dans USF)
sinon ça plante toujours à .LISTCOUNT et je ne sais toujours pas comment Supprimer le bouton "flèche"
car dans ton fichier la BOX2 est bien une COMBOBOX mais sans fléche , non ?
(dans le vrai fichier toutes les box existent )

 

Pièces jointes

• Classeur2.xlsm

  26 KB · Affichages: 36
• Classeur2.xlsm

  26 KB · Affichages: 38

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 19 Octobre 2015

• #14

Re : créer listbox auto

RE:

Pas facile de te suivre dans ton raisonnement, mais je vais y arriver!

Voici une copie avec les deux listes opérationnelles. La flèche de Box2 ne s'affiche que s'il y a plus d'une ligne de prénom.

Par ailleurs, j'ai modifié l'Initialize de Userform1 afin de supprimer les doublons dans Box1.

Nota: j'ai mis en commentaire tout ce qui n'est pas utile à la gestion des listes déroulantes

Il ne te reste plus qu'à retranscrire ces modifications dans ton application, ce qui ne devrait pas être trop difficile.

Cordialement.

 

Pièces jointes

• Copie de Classeur2.xlsm

  26.3 KB · Affichages: 38
• Copie de Classeur2.xlsm

  26.3 KB · Affichages: 40

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 19 Octobre 2015

• #15

Re : créer listbox auto

Bon j'ai avancé :
Le bouton , Trouvé > j'ai mis dropdown = never dans propriétés ;( puis se met à 0 ou 2 )
cà plantait car tout était en style .list ...etc ( ajout Box2.)
Voilà ou j'en suis ( fichier) reste pourquoi dropdown reste si on passe par un multiple en 1 et que l'on repasse en Nom unique ??

 

Pièces jointes

• Classeur2.xlsm

  21.7 KB · Affichages: 33
• Classeur2.xlsm

  21.7 KB · Affichages: 34

Vote positif 0 Vote négatif