Recherche sur 2 colonnes
Bonsoir,
Dans une ListBox, j'ai deux colonnes l'une avec des noms, l'autre avec des prénoms qui correspondent aux colonnes A et B d'une feuille excel.
A partir de la ListBox, Je désire supprimer la ligne correspondant à un nom et prénom que je choisi. La procédure que j'ai rédigée fait une recherche sur la première colonne. Si j'ai un nom avec plusieurs prénoms (frères ou soeur par exemple), le premier de la liste est supprimé (classement alphabétique).
Existe-t-il une procédure pour faire une recherche sur deux colonnes?
Sub Effacement()
'Activation de la feuille Liste Clients
Worksheets("Liste Clients").Activate
'Selection du nom
Nom = FormulaireGestionClient.NomClients.List(FormulaireGestionClient.NomClients.ListIndex, 0)
'recherche de la celllule
With Range("A4:A500")
Set c = .Find(Nom)
c.Select
Selection.EntireRow.Delete
End With
End Sub
Bonjour
Avec un fichier de test cela sera plus facile de trouver la méthode pour rechercher sur deux colonnes (c'est possible)
Bonjour,
J'ai trouvé. Il suffisait d'utiliser les procédures offset et do..loop et de comparer avec la deuxième colonne de la listbox (listindex, 1)
'Activation de la feuille Liste Clients
Worksheets("Liste Clients").Activate
'Selection du nom
Nom = FormulaireGestionClient.NomClients.List(FormulaireGestionClient.NomClients.ListIndex, 0)
'recherche de la celllule
With Range("A4:A500")
Set c = .Find(Nom)
c.Select
End With
ActiveCell.Offset(0, 1).Activate
Prenom = FormulaireGestionClient.NomClients.List(FormulaireGestionClient.NomClients.ListIndex, 1)
If Prenom <> ActiveCell.Value Then
Do
ActiveCell.Offset(1, 0).Activate
Loop While Not Prenom = ActiveCell.Value
End If
Selection.EntireRow.Delete
End Sub