Bonjour tout le monde,
J'ai actuellement un bout de code qui fonctionne bien :
Private Sub CommandButton4_Click()
Dim sh As Worksheet, c As Range
If Trim(TextBox1) = "" Then Exit Sub
For Each sh In ThisWorkbook.Worksheets
Set c = sh.UsedRange.Find(Trim(TextBox1.Text), sh.Cells(1, 1), xlValues, xlWhole)
If Not c Is Nothing Then Me.ListBox2.AddItem sh.Range("E12").Value
Set c = Nothing
Next
End Sub
Le but est de rechercher une valeur (TextBox1) dans tout un classeur et de lister (ListBox2) les valeurs trouvées en "E12", jusque là OK ça marche.
J'aimerai pouvoir lister non pas la "E12" mais la zone "E12 à E25".
J'ai essayé diverses syntaxe, mais impossible...
Pas de fichier joint, désolé.
Merci pour votre aide.
J'ai actuellement un bout de code qui fonctionne bien :
Private Sub CommandButton4_Click()
Dim sh As Worksheet, c As Range
If Trim(TextBox1) = "" Then Exit Sub
For Each sh In ThisWorkbook.Worksheets
Set c = sh.UsedRange.Find(Trim(TextBox1.Text), sh.Cells(1, 1), xlValues, xlWhole)
If Not c Is Nothing Then Me.ListBox2.AddItem sh.Range("E12").Value
Set c = Nothing
Next
End Sub
Le but est de rechercher une valeur (TextBox1) dans tout un classeur et de lister (ListBox2) les valeurs trouvées en "E12", jusque là OK ça marche.
J'aimerai pouvoir lister non pas la "E12" mais la zone "E12 à E25".
J'ai essayé diverses syntaxe, mais impossible...
Pas de fichier joint, désolé.
Merci pour votre aide.
Dernière édition: