XL 2016 comment afficher nombre de ligne de mes resultats de recherche

Ernesta

XLDnaute Nouveau
j'ai mon formulaire de recherche dont les résultats apparaissent dans une "listbox1" et je voudrais avoir le nombre des lignes de ces résultats dans une "textbox2"
 

Ernesta

XLDnaute Nouveau
voici mon code VBA

Private Sub Afficher_Click()
Sheets("BD").Select
Range("U1").Select
Sheets("BD").Range("U2") = ComboBox1.Value ' j'affecte le critere de recherche ? la celulle U2
Sheets("BD").Range("U3") = CStr("*" & TextBox3.Value & "*") ' et j'affecte le contenu de recherche ? la cellule U3
Call Marecherche 'je lance un filtre sp?cial
ListBox1.RowSource = Feuil1.Range("X2:AK1000").Address(external:=True) 'et j'alimente la listbox1 avec le resultat du filtre special
End Sub
Public Sub Marecherche()
Sheets("BD").Select
Range("D2:Q1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2:U3"), CopyToRange:=Range("X2:AK2"), Unique:=False
End Sub
Private Sub Fermer_Click()
Unload Me 'Je ferme mon formulaire
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = WorksheetFunction.Transpose(Feuil1.Range("D2:Q2")) ' on alimente en colonne la combobox1 avec les valeurs des intitul?s de colonne _
du tableau de la feuille
End Sub
 

Discussions similaires

Réponses
8
Affichages
312