modifier une macro

[klorane]

Bonsoir à tous ,


j'ai cette macro (qui fonctionne très bien):

For Each x In Sheets("Feuil2").Range("B7:B51")
Sheets("Feuil2").Range("B1").Value = x.Value

ici ligne de macro

next x


je voudrais avoir plusieurs cellules qui se copient en meme temps
l idée de la macro serait :

For Each x In Sheets("Feuil2").Range("B7:B51")
Sheets("Feuil2").Range("B1").Value = x.Value
For Each y In Sheets("Feuil2").Range("F7:F51")
Sheets("Feuil2").Range("F1").Value = y.Value
For Each a In Sheets("Feuil2").Range("G7:G51")
Sheets("Feuil2").Range("G1").Value = a.Value
For Each b In Sheets("Feuil2").Range("H7:H51")
Sheets("Feuil2").Range("H1").Value = b.Value
For Each c In Sheets("Feuil2").Range("I7:I51")
Sheets("Feuil2").Range("I1").Value = c.Value
For Each D In Sheets("Feuil2").Range("J7:J51")
Sheets("Feuil2").Range("J1").Value = D.Value
next x
next y
next z
next a
next b
next c

j ai testé ça mais fallait se douter que ça ne fonctionnerai pas...mais qui ne tente rien n'à rien et des fois en testant ça évite de vous soliciter 🙂

qui saurais me remplacer le code ci dessus par la bonne macro?

Merci

Klorane

 

[Gardien de phare]

Re : modifier une macro

Bonsoir,

For each x ....
next X

For each y ...
next y

etc.

Edit : Bonjour Robert... effectivement, remarque très juste, pourquoi boucler ?

 

[Robert]

Re : modifier une macro

Bonjour Klorane, bonjour le forum,

Je ne comprends pas ce code... De quel type est la variable x ? Range ? Tu boucles sur 45 cellules pour finalement attribuer à Sheets("Feuil2").Range("B1").Value la dernière valeur. Pourquoi une boucle alors ?

[Édition]
Bonjour Gardien de phare on s'est croisé...

 

[klorane]

Re : modifier une macro

Bonsoir,

avant les next il est prevu qu il y ai des lignes de code pour analyser les cellules B1 à J1

En gros :

Transfert ligne 7 dans B1 à J1

Analyse

transfert ligne suivante
etc..

Klorane

 

[Staple1600]

Re : modifier une macro

Bonsoir à tous


klorane
Un fichier exemple démêlerai les noeuds de ce fil 😉
et on y verrait alors plus clair pour tenter de t'aider

 

[klorane]

Re : modifier une macro

si tu regardes les next ne sont pas placés juste apres mais tout à la fin car avant je place du code qui analyse les cellule B1 à J1.

Le code que j 'ai donné est juste là pour expliquer se que je souhaiterais.

Klorane

 

[Gardien de phare]

Re : modifier une macro

Bonsoir Robert, l'Agraffe et klorane,

Au risque de faire un plagiat, je plussoye vivement à la remarque de Stapple

 

[klorane]

Re : modifier une macro

Je joins un fichier demo...Après vous allez dire : Ha oui c'est tout. ^^

Pour l'exemple me suis arrété à Ligne 25. mais ont doit aller jusqu à ligne 51.

Klorane

 

[Staple1600]

Re : modifier une macro

Re

Voici un code qui recopie (mais dans cette version on aura forcément la dernière valeur de la boucle à la fin de la macro)

Sub Bouton1_Cliquer()
Dim c As Range
For Each c In Range("B7:B25")
With Range("B1")
    .Value = c
    .Offset(, 1).Resize(, 5).Value = Cells(c.Row, "F").Resize(, 5).Value
End With
Next c
End Sub

 

[klorane]

Re : modifier une macro

Merci Staple!! ca fonctionne ! il ne me reste juste avant le next c à appeler une macro qui va s occuper des valeurs transférées et c'est bon.

Je te remercie de ton aide et ceux qui sont passés pour m aider aussi.

Klorane