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.
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.
VB:
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