Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel COPIE AVEC MACRO

COPIE AVEC MACRO

7 réponses
Avatar
Jean luc
Bonjour,

Sub Macro1()
For c = 3 To 17 Step 1
Range(Cells(5, c), Cells(45, c)).Copy
Range(Cells(5, c + 1), Cells(5, c + 1)).Select
ActiveSheet.Paste
Next
End Sub

Avec cette macro je copie toutes les colonnes en 1 seule fois alors qu'il
faudrait
copier C5:C45 en D5:D45
si besoin D5:D45 en E5:E45
si besoin E5:E45 en F5: F45
Etc...

Une solution?

MERCI
JEAN LUC
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Tu peux essayer avec une méthode comme celle-ci :
Range("B1:B5").Value = Range("A1:A5").Value

A adapter bien sûr !

Cordialement
Pascal

"Jean luc" a écrit dans le message de news:

Bonjour,

Sub Macro1()
For c = 3 To 17 Step 1
Range(Cells(5, c), Cells(45, c)).Copy
Range(Cells(5, c + 1), Cells(5, c + 1)).Select
ActiveSheet.Paste
Next
End Sub

Avec cette macro je copie toutes les colonnes en 1 seule fois alors qu'il
faudrait
copier C5:C45 en D5:D45
si besoin D5:D45 en E5:E45
si besoin E5:E45 en F5: F45
Etc...

Une solution?

MERCI
JEAN LUC






Avatar
michdenis
Bonjour Jean-Luc,

As-tu essayé ceci :
'------------------------
For A = 3 To 17
Range(Cells(5, A), Cells(45, A)).Copy Cells(5, A + 1)
Next
'------------------------


Salutations!


"Jean luc" a écrit dans le message de news:
Bonjour,

Sub Macro1()
For c = 3 To 17 Step 1
Range(Cells(5, c), Cells(45, c)).Copy
Range(Cells(5, c + 1), Cells(5, c + 1)).Select
ActiveSheet.Paste
Next
End Sub

Avec cette macro je copie toutes les colonnes en 1 seule fois alors qu'il
faudrait
copier C5:C45 en D5:D45
si besoin D5:D45 en E5:E45
si besoin E5:E45 en F5: F45
Etc...

Une solution?

MERCI
JEAN LUC
Avatar
Jean luc
Merci pour ta réponse,
ça fonctionne mais la copie se fait en une fois (les 14 colonnes)
alors que jecherche à copier 1 colonne à la fois si j'en ai besoin avec la
même macro
D'avance merci
Avatar
michdenis
Bonjour Jean-Luc,

| mais la copie se fait en une fois (les 14 colonnes)

Es-tu vraiment sûr de cela ?

La copie se fait une colonne à la fois. Mais comme cette ligne de code est inséré dans une boucle, tu as l'impression que tout se
fait en même temps compte tenu du temps requis pour l'exécution de la macro.

Sinon, enlève la boucle ! ou explicite davantage ce que tu désires.


Salutations!



"Jean luc" a écrit dans le message de news: %
Merci pour ta réponse,
ça fonctionne mais la copie se fait en une fois (les 14 colonnes)
alors que jecherche à copier 1 colonne à la fois si j'en ai besoin avec la
même macro
D'avance merci
Avatar
JLuc
*Bonjour Jean luc*,
fait ta boucle avant la copie :

Sub Copie_suite()
For x = 3 to 17
If Cells(5, x) = "" Then
Exit For
End if
Next x
Range(Cells(5, 2), Cells(45, 2)).Copy Cells(5, x)
End Sub

Je pense que ca devrait faire ton bonheur

Merci pour ta réponse,
ça fonctionne mais la copie se fait en une fois (les 14 colonnes)
alors que jecherche à copier 1 colonne à la fois si j'en ai besoin avec la
même macro
D'avance merci



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
Jean Luc
Je reprend depuis le début du fil,

J'ai une feuille de calcul, dans la colonne C5:C45 j'ai des cellules dans
lesquelles je rentre des données, et des cellules avec formules.
Suivant le cas soi je n'utilise qu'une colonne (pas de problème) dans la
majorité des cas je suis amené à copier C5:C45 en d5:D45
puis D5:D45 en E5:E45.Soit je stoppe ou je continue.
J'avais créé 14 macros associées à 14 boutons; pas très pratique.
Je pensais utiliser une seule macro 1 clic copie C5:C45 en D5:D45
2 EME clic copie D5 en
D45 en E5:E45
3 EME clic copie E45enE45 en
F5:F45
Je continue ou j'arrête et
j'enregistre ma feuille
Avatar
Jean Luc
Bonsoir,
C'est OK parfait et merci beaucoup
Bonne soirée
JEAN LUC
"JLuc" a écrit dans le message de
news:
*Bonjour Jean luc*,
fait ta boucle avant la copie :

Sub Copie_suite()
For x = 3 to 17
If Cells(5, x) = "" Then
Exit For
End if
Next x
Range(Cells(5, 2), Cells(45, 2)).Copy Cells(5, x)
End Sub

Je pense que ca devrait faire ton bonheur

Merci pour ta réponse,
ça fonctionne mais la copie se fait en une fois (les 14 colonnes)
alors que jecherche à copier 1 colonne à la fois si j'en ai besoin avec
la


même macro
D'avance merci



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS