ListBox Clique mettre l'élément sélectionné en tête

Bonjour,

Dans le fichier exemple ci-joint, il y a un TextBox et un ListBox.

Lorsque j'entre des caractères dans le TextBox, dans le ListBox s'affiche les différents mots présents dans une plage de donnée spécifique.

Ce que je souhaiterais faire :

- Lorsque je clique sur un élément du ListBox, j'aimerais que la valeurs présente dans le tableau s'affiche en dessous de la ligne 8 (les volets seront figés).

J'ai cherché sur différent forum et essayer d'adapter à mon cas mais rien ne marche

Bonjour,

Ci-joint une proposition, en n'affichant que les lignes correspondant à la recherche, les autres sont masquées.

A tester.

Bonne journée

Bouben

Très bonne alternative ! je te remercie.

Cependant je souhaiterais que, lorsque le TextBox est vide, que toutes les lignes soit démasquée automatiquement. Est ce possible ?

Merci d'avance !

Ci-joint une nouvelle version à tester

Bouben

J'ai trouver seul

j'ai rajouter ceci a la fin de mon code

If TextBox1 = "" Then
             Rows("9:9000").Hidden = Enabled

Edit : Je garde la V02 sous le coude si jamais mon code plante mais il font le même taff

Merci de ton aide !

Super !

Par contre, je te conseille de remplacer Enabled par False.

Explication :

> Enabled n'existe pas !!!!

Alors pourquoi cela fonctionne quand même ?

> Enabled ne vaut rien, VBA lui affecte la valeur 0 (qui est la valeur de False aussi)

Pour le vérifier :

> remplacer

Rows("9:9000").Hidden = Enabled

> par

Rows("9:9000").Hidden = Turlututu

> même résultat

Par la même occasion, je t'invite à ajouter "Option Explicit" en début du module, et cela mettra en évidence les variables non déclarées qui sont utilisées.

Les joies de la programmation

Bouben

Bonjour,

je déterre mon sujet car ce code, sur les pc les moins puissants de mon service rame comme pas possible (2GB de RAM contre 16 pour moi).

Y a t'il un moyen autre que supprimer :

Range("A9:N1000").Interior.ColorIndex = 2

Cells(ligne, 14).EntireRow.Interior.ColorIndex = 43

Application.Goto Range("A8"), True

j'ai réduit le nombre de ligne a analyser de 9000 à 1000 et désactiver

Application.ScreenUpdating = False

Je sèche ...

Par avance merci de votre aide !