Extraction données d'une listbox

Bonjour.

n'étant pas un expert, j'ai récupéré un code, qui fonctionne partiellement et je voudrais si possible, l'adapter à mes besoins.

Il s'agit d'extraire les données sélectionnées dans une listbox (année, nom et prénom) pour rechercher dans la feuil INSCRIPTIONS_ & année, le nom avec le prénom correspondant.

J'arrive avec ce code à ouvrire la feuil en question, sélectionner le nom voulu mais sans tenir compte du prénom.

Comment faire pour que le prénom soit pris en compte dans la recherche. Merci

Public Sub CommandButton1_Click()
Dim row_number As Integer
Dim An
Dim Nom
Dim PreNom
Dim DerLi As Integer
For row_number = 0 To ListBox1.ListCount
If (ListBox1.Selected(row_number) = True) Then
An = ListBox1.List(row_number, 1)
Nom = ListBox1.List(row_number, 2)
PreNom = ListBox1.List(row_number, 3)
Unload UserForm9
Sheets("INSCRIPTIONS_" & An).Visible = True
Sheets("INSCRIPTIONS_" & An).Activate
DerLi = Sheets("INSCRIPTIONS_" & An).Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
With Worksheets("INSCRIPTIONS_" & An).Columns(1)
Set c = .Find(Nom, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "Personne non trouvée", vbOKOnly
Sheets("INSCRIPTIONS_" & An).Visible = False
Exit Sub
End If
Next row_number
End Sub

Bonjour,

Merci de :

- bien vouloir utiliser les balises de code lorsque vous postez un code (click sur l'icone </> et coller le code dans la fenetre). J'ai corrigé dans votre demande
- penser à cloturer vos fils lorsque vous en avez terminé --> https://forum.excel-pratique.com/excel/recherche-etendue-sur-plusieur-feuilles-180318

Pour votre demande, essayez en remplaçant

c.EntireRow.Select

par

If c.Offset(0, 1) = PreNom Then c.EntireRow.Select: Exit Sub

NB :
- la ligne derlig..... ne vous sert à rien, vous pouvez la supprimer
- ligne Sheets("inscription").... Activate pourrait être placée dans la boucle Do juste après le THEN

si ok -->

cordialement

Merci beaucoup, ça marche super.

Cordialement