Fonction recherche

[winieloursonaub]

Bonjour,

Je veux faire une fonction recherche, mais j'ai un problème je ne veux pas que dans la listbox apparaissent la première ligne. Comment faire ?

Je joins un fichier modèle.

Winnie

 

[ERIC S]

Re : Fonction recherche

Bonjour

modifie ton initialize

Public Sub initlistbox()
With ListBox1
.Clear
.List = tablo
.RemoveItem (0)
End With
End Sub

tu supprimes le premier enregistrement

 

[CBernardT]

Re : Fonction recherche

Bonjour Winieloursonaub, Eric S et le forum,

Une autre solution :

La macro a été mise en haut du module pour montrer les variables.

Option Explicit
Dim tablo As Variant, Lig As Integer

Private Sub UserForm_Initialize()

Lig = Range("A65536").End(xlUp).Row
tablo = Range("A2😀" & Lig)
ListBox1.ColumnCount = 4
initlistbox
End Sub

Cordialement

Bernard

 

[pierrejean]

Re : Fonction recherche

bonjour tous

et une solution supplementaire une !

Private Sub UserForm_Initialize()
[I]'tablo = Range("a2").CurrentRegion
[/I][B]tablo = Range("A2:D" & Range("D65536").End(xlUp).Row)
[/B]ListBox1.ColumnCount = 4
initlistbox
End Sub

 

[winieloursonaub]

Re : Fonction recherche

Merci à tous,

Je viens d'essayer la première solution cela marche impec sur mon programme.

Je vous remercie tous.

Winie