J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2,
ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite
copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'à ce
qu'il n'y ait plus rien à copier.
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
Joël GARBE
Bonjour
sub CopyCeQueTuPeux() dim i as long i=2 do until range("A" & i) = "" range("C" & i+3).value=range("A" & i) i=i+32 loop
comme tu peux le voir, non testé ;-)
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Michel" a écrit dans le message de news:
Bonjour,
J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2, ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'à ce qu'il n'y ait plus rien à copier.
Merci de votre aide
Bonjour
sub CopyCeQueTuPeux()
dim i as long
i=2
do until range("A" & i) = ""
range("C" & i+3).value=range("A" & i)
i=i+32
loop
comme tu peux le voir, non testé ;-)
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Michel" <Michel@discussions.microsoft.com> a écrit dans le message de news:
D70B9421-69A1-4E8C-8093-F42DE04F9D4F@microsoft.com...
Bonjour,
J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2,
ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite
copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'à ce
qu'il n'y ait plus rien à copier.
sub CopyCeQueTuPeux() dim i as long i=2 do until range("A" & i) = "" range("C" & i+3).value=range("A" & i) i=i+32 loop
comme tu peux le voir, non testé ;-)
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Michel" a écrit dans le message de news:
Bonjour,
J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2, ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'à ce qu'il n'y ait plus rien à copier.
Merci de votre aide
isabelle
bonjour Michel,
Sub Macro1() Dim fin As Integer, i As Integer fin = Range("A65536").End(xlUp).Row + 1 For i = 2 To fin Step 32 Range("A" & i).Copy Range("c" & i + 3) Next End Sub
isabelle
Bonjour,
J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2, ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'à ce qu'il n'y ait plus rien à copier.
Merci de votre aide
bonjour Michel,
Sub Macro1()
Dim fin As Integer, i As Integer
fin = Range("A65536").End(xlUp).Row + 1
For i = 2 To fin Step 32
Range("A" & i).Copy Range("c" & i + 3)
Next
End Sub
isabelle
Bonjour,
J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2,
ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite
copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'Ã ce
qu'il n'y ait plus rien à copier.
Sub Macro1() Dim fin As Integer, i As Integer fin = Range("A65536").End(xlUp).Row + 1 For i = 2 To fin Step 32 Range("A" & i).Copy Range("c" & i + 3) Next End Sub
isabelle
Bonjour,
J'aimerais pouvoir copier dans la cellule C5 le contenu de la cellule A2, ensuite copier dans la cellule C37 le contenu de la cellule A34, ensuite copier dans la cellule C69 le contenu de la cellule A66, etc... jusqu'à ce qu'il n'y ait plus rien à copier.
