RoadRunner
XLDnaute Nouveau
Bonjour
Voici ce que je veux faire :
Copier la cellule A25 de toutes les feuilles du classeur pour la mettre dans la feuille 'RECAP_MOIS'
en cellule C1 pour la feuille 01
en cellule D1 pour la feuille 02
en cellule E1 pour la feuille 03
etc... le nombre de feuille peut varier suivant le classeur
Voici ce que j'ai fait :
Dim WS As Worksheet
Dim n As Integer
i = 3
For Each WS In Worksheets
cel = Cells(1, i)
WS.Select
Range('A25').Select
Selection.Copy
If WS.Name <> 'RECAP_MOIS' Then Sheets('RECAP_MOIS').Select , cel.Select, ActiveSheet.Paste
i = i + 1
Next
J'ai une erreur (en bleu), une histoire d'objet je crois
je n'y connais rien donc si vous m'expliquez quelque chose, n'oubliez pas que je suis un grand novice !
merci d'avance
Message édité par: RoadRunner, à: 26/08/2005 16:46
Voici ce que je veux faire :
Copier la cellule A25 de toutes les feuilles du classeur pour la mettre dans la feuille 'RECAP_MOIS'
en cellule C1 pour la feuille 01
en cellule D1 pour la feuille 02
en cellule E1 pour la feuille 03
etc... le nombre de feuille peut varier suivant le classeur
Voici ce que j'ai fait :
Dim WS As Worksheet
Dim n As Integer
i = 3
For Each WS In Worksheets
cel = Cells(1, i)
WS.Select
Range('A25').Select
Selection.Copy
If WS.Name <> 'RECAP_MOIS' Then Sheets('RECAP_MOIS').Select , cel.Select, ActiveSheet.Paste
i = i + 1
Next
J'ai une erreur (en bleu), une histoire d'objet je crois
je n'y connais rien donc si vous m'expliquez quelque chose, n'oubliez pas que je suis un grand novice !
merci d'avance
Message édité par: RoadRunner, à: 26/08/2005 16:46