Listbox

Re,

Je truste en ce moment mais bon tant que vous ne me dites rien j'en profite et je progresse ...

J'ai donc réussi à faire mes userform, mais checkbox,et j'ai rempli ma listbox1 avec des mots clés dont je veux me servir pour une boucle

mais je ne sais pas comment faire (pas encore) dans ma listbox j'ai du texte ou des nombres

ma listbox peut contenir 9 mots différents

For Each Nom in ListBox1

''''''je fais mon traitement

Next

et je continue

en espérant avoir été suffisamment clair

Bonjour,

Tu veux extraire la valeur sélectionnée dans ta listbox c'est ça ?

Un petit fichier serais le bienvenue

je veux me servir des mots de ma listbox pour les chercher dans une feuille excel j'aurais aimé dans la mesure du possible juste la commande pour rechercher chacune des expressions contenues dans la listbox

Application.ScreenUpdating = False

Set oShSource = Worksheets("DFI")

Set oShDest = Worksheets("Synthèse")

For Each Nom In ListBox1.Value

iLue = 2

iEcr = oShDest.Range("A" & Rows.Count).End(xlUp).Row + 1

bFin = False

While Not bFin

If oShSource.Range("A" & iLue).Value = "" Then

bFin = True

Else

If Left(UCase(oShSource.Range("G" & iLue).Text), Len(obj)) = Nom Then

oShSource.Rows(iLue).Copy

oShDest.Range("A" & iEcr).PasteSpecial xlPasteAll

Application.CutCopyMode = False

With oShDest

.Hyperlinks.Add .Range("A" & iEcr), "", "'DFI'!G" & iLue

End With

iEcr = iEcr + 1

iLue = iLue + 1

Else

'ligne suivante

iLue = iLue + 1

End If

End If

Wend

Next

voila le fichier en question avec les macros et les userform qui lui sont associées

c'est la boucle qui me pose problème.

Merci d'avance