Listbox2 = .cells(lig1,"F")?

Fermé
ordinateur! - 12 mars 2016 à 19:51
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 13 mars 2016 à 10:36
Bonjour,


merci de m aider a résoudre le problème
mot = nom
une fois trouve le nom
ex D3
lis
listbox1 = .cells(lig1,"E")?
listbox2 = .cells(lig1,"F")?


UserForm.ListBox1.Value = .Cells(Lig1, "E")

Private Sub CommandButton1_Click()
Dim Mot, Nbre As Byte, cptr As Byte, Lig1 As Long, lig2 As Integer
Application.ScreenUpdating = False
With Sheets("feuil1")
On Error GoTo saisie
Mot = InputBox("Mot à rechercher ?")
Nbre = Application.CountIf(.Range("D2:D500"), Mot)
If Nbre = 0 Then GoTo vide
Lig1 = Cells.Rows.Count
lig2 = 1
For cptr = 1 To Nbre
Lig1 = .Columns("D").Find(Mot, .Cells(Lig1, "D"), xlValues).Row
UserForm.ListBox1.Value = .Cells(Lig1, "E")

Next
End With
UserForm1.Hide
Exit Sub
A voir également:

2 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 714
12 mars 2016 à 21:41
Bonjour,

merci de m aider a résoudre le problème
Quel est le problème ?
0
ordinateur!
13 mars 2016 à 09:57
Bonjour,
j'ai un fichier excel
celllule A1=>tata
cellule B1 ==>toto
je lance macro
Lig1 = .Columns("D").Find(Mot, .Cells(Lig1, "D"), xlValues).Row
pour chercher un nom dans la colonne D une fois trouvé
selectionne la ligne
ex D1=popo
dans userform1
ListBox1 = tata
ListBox2 = toto
ListBox13= popo
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
Modifié par michel_m le 13/03/2016 à 10:36
bonjour
For cptr = 1 To Nbre
Lig1 = .Columns("D").Find(Mot, .Cells(Lig1, "D"), xlValues).Row
Me.ListBox1.AddItem = .Cells(Lig1, "E")
Me.ListBox2.AddItem = .Cells(Lig1, "F")
Next--
 Michel

Mot non défini
dim Mot as ...
  • a quoi sert lig2 (non défini aussi)
0