Colonnes masqué dans ma ListBox
Résolu
kadiski
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour j'ai réussi a faire une code pour qu'une recherche dans une colonne me fasse apparaitre le résultat de 3 colonnes dans ma list box ,
le problème c'est que ça me masque une partie de mon résultat a moins que j’élargisse la listBox de façon a ce que ça prenne toute la largeur de la page , ce que je ne veux pas et j'aimerai également pouvoir mettre une belle police et des couleurs pour mettre en valeur mes résultat .
merci d'avance pour toute aide que vous pourriez m'apportez .
voici le code que j'ai fait :
Option Compare Text
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A5:E40").Interior.ColorIndex = 2
ListBox1.Clear
ListBox1.ColumnCount = 3
If TextBox1 <> "" Then
For ligne = 5 To 40
If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
Cells(ligne, 2).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 2) & " - " & Cells(ligne, 3) & " - " & Cells(ligne, 4)
End If
Next
End If
End Sub
source : https://www.excel-pratique.com/fr/astuces_vba/champ-de-recherche-vba/#comment-130677
le problème c'est que ça me masque une partie de mon résultat a moins que j’élargisse la listBox de façon a ce que ça prenne toute la largeur de la page , ce que je ne veux pas et j'aimerai également pouvoir mettre une belle police et des couleurs pour mettre en valeur mes résultat .
merci d'avance pour toute aide que vous pourriez m'apportez .
voici le code que j'ai fait :
Option Compare Text
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("A5:E40").Interior.ColorIndex = 2
ListBox1.Clear
ListBox1.ColumnCount = 3
If TextBox1 <> "" Then
For ligne = 5 To 40
If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
Cells(ligne, 2).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 2) & " - " & Cells(ligne, 3) & " - " & Cells(ligne, 4)
End If
Next
End If
End Sub
source : https://www.excel-pratique.com/fr/astuces_vba/champ-de-recherche-vba/#comment-130677
3 réponses
-
Bonjour,
Que voulez-vous faire de ce que vous affichez dans la listebox, simple presentation ou .......??? -
Je souhaite afficher dans ma listBox 3 colonnes avec une recherche de une colonne .
Et non ça ne sera pas juste pour une simple présentation , c'est un classeur qui sera utilisé quotidiennement et mis à jour à chaque intervention ,
afin d'avoir à la fois une vue global et faire des recherche affiné rapide selon le n°
je vous joint le fichier , la feuille concerné est la dernière .
https://www.cjoint.com/c/FCkoP58LmVi -
merci beaucoup , c'est exactement ça , maintenant faut que je trouve comment embellir la liste mais je pense pouvoir trouver sur le net .
encore merci et bonne continuation
