macro :incrémenter la cellule de reception de copie

[axelle la débutante]

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

 

[dut-dut]

Essaie de remplacer

Range("b7").Select

par

ligne = 1 (incrémenteur)
[...]
Range(Cells(7,ligne)).Select
[...]
ligne = ligne +1

Solution non testée. Bonne journée !

 

[axelle la débutante]

re le forum, re les forumeux,

bonjour dut-dut,

merci pour ta solution mais
primo je me suis gourée dans mon explication: il fallait lire a7,a8,a9 etc pour mes cellules de reception de copie
et secondo, la macro ne fonctionne pas (meme en remplacant le 7 par ligne).

Si tu pouvait me détailler un peu plus ton raisonnement ?! j'essaierais de suivre

Merci
A+
Axelle

 

[dut-dut]

Tape le code comme suit :

Dim feuille As Object
Set feuille = Worksheets
ligne = 7

For Each feuille In Worksheets

feuille.Select
Range("dy10:em10").Select
Selection.Copy
Sheets("totaux").Select
Range("A" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ligne = ligne + 1
Next feuille


En fait "ligne" désigne le numéro de ta ligne. Quand tu appelles ta cellule de réception, tu demandes la case d'abscisse A et d'ordonnée "ligne"

 

[axelle la débutante]

re le forum, re les forumeux

re dut-dut

super, j'avais du mal à comprendre mais ca fonctionne.
merci beaucoup et bon courage à tous

A+
Axelle

 

[dut-dut]

De rien, grâce à ton post j'ai pu rédiger ma 1ère boucle "For Each Next"...

Cool..................!

 

[CHti160]

Salut" axelle la débutante"et "dut-dut"
voilà pour ne pas avoir de problème avec la feuille"totaux"
si j'ai bien compri la fin de ton post
question subsidiaire : ne va t il pas y avoir un pb quand "totaux" va se copier sur lui meme ?


Dim ligne As Integer
Dim feuille As Worksheet
ligne = 7
For Each feuille In Worksheets
If feuille.Name <> "totaux" Then
feuille.Select
Range("dy10:em10").Select
Selection.copy
Sheets("totaux").Select
Range("A" & ligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ligne = ligne + 1
End If
Next feuille

A+++
Jean Marie

 

[CHti160]

re re à tous
pour que ce soit un peu plus "Fluide
rajouter les 2 morceaux en gras(et non pas de gras

Dim feuille As Worksheet
Application.ScreenUpdating = False
-----
----
Next feuille
Application.ScreenUpdating = True
End Sub
A+++
Jean Marie

 

[dut-dut]

Salut !

>> CHtil60 : ça sert à quoi de mettre ces deux lignes ?