A
axelle la débutante
Guest
bonjour le forum, bonjour les forumeux
je me retrouve de nouveau devant un pb dans ma macro, j'ai testé plusieurs solutions mais je ne trouve pas. je m'explique:
par ma macro, je copie une certaine plage de cellules de chaque feuille de mon classeur sur un feuille nommée totaux. ces plages de cellules je les mets (copie juste en valeurs) en a7 et je souhaite que la recopie de la feuille suivante soit sur b7, puis sur c7...
j'ai trouvé pour copié toutes les feuilles les unes aprés les autres mais pas pour incrémenter ma cellule de réception.
Ci joint ma macro:
Dim feuille As Object
Set feuille = Worksheets
For Each feuille In Worksheets
feuille.Select
Range("dy10:em10").Select
Selection.Copy
Sheets("totaux").Select
Range("b7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next feuille
question subsidiaire : ne va t il pas y avoir un pb quand "totaux" va se copier sur lui meme ?
Comme d'habitude, merci à ceux qui ont pris le temps de lire mon message et un plus grand merci à ceux qui essaieront de m'aider.
Merci
A ++
Axelle
je me retrouve de nouveau devant un pb dans ma macro, j'ai testé plusieurs solutions mais je ne trouve pas. je m'explique:
par ma macro, je copie une certaine plage de cellules de chaque feuille de mon classeur sur un feuille nommée totaux. ces plages de cellules je les mets (copie juste en valeurs) en a7 et je souhaite que la recopie de la feuille suivante soit sur b7, puis sur c7...
j'ai trouvé pour copié toutes les feuilles les unes aprés les autres mais pas pour incrémenter ma cellule de réception.
Ci joint ma macro:
Dim feuille As Object
Set feuille = Worksheets
For Each feuille In Worksheets
feuille.Select
Range("dy10:em10").Select
Selection.Copy
Sheets("totaux").Select
Range("b7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next feuille
question subsidiaire : ne va t il pas y avoir un pb quand "totaux" va se copier sur lui meme ?
Comme d'habitude, merci à ceux qui ont pris le temps de lire mon message et un plus grand merci à ceux qui essaieront de m'aider.
Merci
A ++
Axelle