Re : Créer une liste à partir de plusieurs feuilles
En cherchant dans le forum j'ai essayé d'écrire le code suivant : cela a bien fonctionné une fois lorsque j'avais une seule ligne à construire, mais depuis que j'ai testé avec 2 onglets, cela ne fonctionne plus.
J'ai mis ce code dans un module, cela peut-il expliquer le pb ?
Help ....
Sub Transfert_2()
Dim Derlgn As Integer
Dim Ws As Worksheet
For Each Ws In Worksheets
If Left(Ws.Name, 8) = "Famille_" And Ws.Name <> "Famille_0" Then 'on recherche "Famille_" dans le nom de la feuille
With Ws
Nom = Range("A2").Value
Prenom = Range("B2").Value
Ville = Range("C2").Value
Pays = Range("A6").Value
Worksheets("Liste").Select
Derlgn = .Range("A65536").End(xlUp).Row
Range("A" & Derlgn + 1).Value = "xx"
Range("B" & Derlgn + 1).Value = Nom
Range("C" & Derlgn + 1).Value = Prenom
Range("D" & Derlgn + 1).Value = Ville
Range("E" & Derlgn + 1).Value = Pays
End With
End If
Next 'feuille suivante
End Sub
===========================================
Merci de votre réponse