Bonjour Luc, bonjour le forum,
1. Cette méthode :
With ListBox1
.AddItem F.Name
For x = 2 To 10
.List(.ListCount - 1, x - 1) = F.Cells(C.Row, x).Text
Next x
.List(.ListCount - 1, 9) = C.Address(False, False)
End With
ne permet que 10 colonnes maximum. En plus, la dernière donnée stockée en colonne 9 de la ListBox1 via la boucle (quand x=10) : F.Cells(C.Row, 10).Text, est écrasée par .List(.ListCount - 1, 9) = C.Address(False, False)...
2. J'imagine que tu as allégé le classeur puisqu'il y a une boucle sur tous les onglets. Paradoxalement même sur l'onglet Rechercher ?
For Each F In Worksheets
3. La manière extravagante de définir la plage de données semble indiquer que les tableaux ne sont pas tous au même endroit dans les différents onglets :
With F
Set Plage = Application.Intersect(.UsedRange.Cells, .Range(.Cells(8, 1), .Cells(.Rows.Count)))
End With
Je te conseille donc de revoir ton classeur en harmonisant l'emplacement des données au même endroit (pour la première cellule) et je pourrait te proposer un code qui fonctionne...