Bonjour le forum,
Je vous remercie du temps que vous passerez a lire mon message.
J'ai actuellement une macro :
http://www.listebebe.com/exemple3.zip
J'aimerai que dans la celulle "RECHERCHE" (ident.text), on saisisse un début de numéro et il apparait dans la listbox les premiers numeros qui commence par le nuùero saisies.
J'ai un exemple de bout de code mais je n'arrive pas a l'adapter :
Private Sub ident_Change()
Dim Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object
Dim data As New Collection
Dim i As Byte
ListBox2.Clear
Recherche = ident.Value
' j'ai tenté de modifier a partir d'ici mais ça bug
Range("C1").Select
Ligne = Range("C" & "65536").End(xlUp).Row
Set Plage = Range("C2:C" & Ligne)
'----------
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
On Error Resume Next
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
data.Add C, CStr(C)
End If
On Error GoTo 0
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
For i = 1 To data.Count
ListBox2.AddItem data(i)
Next i
End sub
merci ENORMEMENT pour toute votre aide.
Je vais essayer de comprendre d'ici la ce code.
Bonne journée a tous les membres du FORUM
Je vous remercie du temps que vous passerez a lire mon message.
J'ai actuellement une macro :
http://www.listebebe.com/exemple3.zip
J'aimerai que dans la celulle "RECHERCHE" (ident.text), on saisisse un début de numéro et il apparait dans la listbox les premiers numeros qui commence par le nuùero saisies.
J'ai un exemple de bout de code mais je n'arrive pas a l'adapter :
Private Sub ident_Change()
Dim Cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Variant
Dim C As Object
Dim data As New Collection
Dim i As Byte
ListBox2.Clear
Recherche = ident.Value
' j'ai tenté de modifier a partir d'ici mais ça bug
Range("C1").Select
Ligne = Range("C" & "65536").End(xlUp).Row
Set Plage = Range("C2:C" & Ligne)
'----------
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
On Error Resume Next
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
data.Add C, CStr(C)
End If
On Error GoTo 0
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
For i = 1 To data.Count
ListBox2.AddItem data(i)
Next i
End sub
merci ENORMEMENT pour toute votre aide.
Je vais essayer de comprendre d'ici la ce code.
Bonne journée a tous les membres du FORUM