XL 2010 regroupement feuilles

[danval]

bonjour,

j'ai un fichier qui possède plusieurs feuilles (noms dans la macro).
je voudrais pouvoir mettre dans une même feuille nommée "GLOBAL PROD" tout ce qui se trouve dans ces feuilles.
les feuilles sont toutes faites de la même façon pour les données donc :
premiére ligne la "2" et colonne de "A" à "R" (ce sont les données à rapatrier de chaque feuille).

le fait d'avoir intégré les noms dans la macro est volontaire car j'ai d'autres feuilles non concernées par la macro.

j'ai déclaré mes variables, fait la sélection de ma feuille par rapport à la liste et calculé le nombre de lignes mais là je suis bloqué pour faire la copie des données.
juste une précision les données sont à copier comme pour les feuilles à partir de la ligne 2 et colonnes B à R
à l'avance merci pour votre aide tjrs aussi précieuse.

Sub global_prod()
Dim dlig As Integer
Dim mesfeuilles
Dim n As Integer
Dim mafeuille As Worksheet

mesfeuilles = Array("ATTENTE PRISE EN MAIN", "ATTENTE CONVOCATION", "EN COURS", "ATTENTE PIECES", "ATTENTE MO", "CONTROLE FINAL", "PRESTATION EXTERNE")
For n = LBound(mesfeuilles) To UBound(mesfeuilles)
   Set mafeuille = Sheets(mesfeuilles(n))
  
   With mafeuille
               dlig = .Cells(Rows.Count, "B").End(xlUp).Row     
  
End Sub

 

[Hasco]

Re,

Hello @mapomme, merci, j'étais sûr qu'il y avait quelque chose comme ça, soit tableau vide, soit aucune valeur en B2:B...
@danval la prochaine fois, joignez un classeur, ça nous évitera de tourner bourrique.

Bonne journée

 

[danval]

ok promis je serais plus clean.