Une colonne de plusieurs feuilles rassembler sur une feuille
Bonjour,
Voila mon soucis, je bosse en tant que stagiaire dans un abattoir de volailles je fais des contrôles qualité.
Je compte les défauts d'un stock de volailles.
Chaque jour je créer dans un fichier une nouvelle feuille (nommée à la date du jour) ou les résultats des contages sont indiqués.
Ils sont ensuite transformés en pourcentages.
J'aimerais, à chaque fois que j'ajoute une nouvelle feuille, que la colonne pourcentage se copie automatiquement dans une feuille récapitulative (nommée Récap) -> 1 colonne = 1 jour
Comment puis-je faire ?
Bonjour et bienvenue
A tester :
- La feuille Récap doit se trouver en 1ère position
Sub RegroupeFeuilles()
Dim i As Integer
Dim col As Integer
col = 1
For i = 2 To ThisWorkbook.Sheets.Count
Sheets(i).Range("A:A").Copy Sheets("Récap").Cells(1, col)
col = col + 1
Next i
End SubSi pas bon, merci de joindre ton fichier
Amicalement
Nad
Merci beaucoup pou ta réponse Nad
Je vois à ton code que c'est ce que je veux faire seulement il faut que je le modifie pour que ça corresponde à la bonne colonne et là je suis pas super doué !
Voila un morceau du fichier
Il est pas top mais bon ... ^^
C'est parfait !
Merci beaucoup Nad, tu m'as fait avancé d'un bon ^^