Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1
de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de
faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le
code qui ne fonctionne pas bien. :
Sub CopierColler()
Worksheets("Feuil1").Select
Range("A7:L7").Select
Range("A7:L7").Copy
Worksheets("Feuil2").Select
Range("A7").Activate
Range("A7").PasteSpecial xlPasteAll
End Sub
Par contre, le range de la Feuil1 reste dans le presse-papier en fin de procédure... mais il y a bien quelqu'un qui te dira comment le vider ;-) -- Bonne continuation
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1 de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le code qui ne fonctionne pas bien. :
Sub CopierColler() Worksheets("Feuil1").Select Range("A7:L7").Select Range("A7:L7").Copy Worksheets("Feuil2").Select Range("A7").Activate Range("A7").PasteSpecial xlPasteAll End Sub
Merci de votre aide
Meilleures salutations.
Jean-Marc
Bonjour, Jean-Marc
Sans Select, ceci fonctionne bien:
Par contre, le range de la Feuil1 reste dans le presse-papier en fin de
procédure... mais il y a bien quelqu'un qui te dira comment le vider ;-)
--
Bonne continuation
Bonjour, je désire savoir comment je peux avec VBA copier la cellule
B1:BL1
de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de
faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous
le
code qui ne fonctionne pas bien. :
Sub CopierColler()
Worksheets("Feuil1").Select
Range("A7:L7").Select
Range("A7:L7").Copy
Worksheets("Feuil2").Select
Range("A7").Activate
Range("A7").PasteSpecial xlPasteAll
End Sub
Par contre, le range de la Feuil1 reste dans le presse-papier en fin de procédure... mais il y a bien quelqu'un qui te dira comment le vider ;-) -- Bonne continuation
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1 de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le code qui ne fonctionne pas bien. :
Sub CopierColler() Worksheets("Feuil1").Select Range("A7:L7").Select Range("A7:L7").Copy Worksheets("Feuil2").Select Range("A7").Activate Range("A7").PasteSpecial xlPasteAll End Sub
Merci de votre aide
Meilleures salutations.
Jean-Marc
FFO
Salut Jean-Marc Ceci fonctionne chez moi : Worksheets("feuil1").Select Range("B1:BL1").Copy For i = 1 To Sheets.Count Worksheets("Feuil" & i).Select Range("B1").PasteSpecial xlPasteAll Next Et chez toi ???
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1 de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le code qui ne fonctionne pas bien. :
Sub CopierColler() Worksheets("Feuil1").Select Range("A7:L7").Select Range("A7:L7").Copy Worksheets("Feuil2").Select Range("A7").Activate Range("A7").PasteSpecial xlPasteAll End Sub
Merci de votre aide
Meilleures salutations.
Jean-Marc
Salut Jean-Marc
Ceci fonctionne chez moi :
Worksheets("feuil1").Select
Range("B1:BL1").Copy
For i = 1 To Sheets.Count
Worksheets("Feuil" & i).Select
Range("B1").PasteSpecial xlPasteAll
Next
Et chez toi ???
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1
de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de
faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le
code qui ne fonctionne pas bien. :
Sub CopierColler()
Worksheets("Feuil1").Select
Range("A7:L7").Select
Range("A7:L7").Copy
Worksheets("Feuil2").Select
Range("A7").Activate
Range("A7").PasteSpecial xlPasteAll
End Sub
Salut Jean-Marc Ceci fonctionne chez moi : Worksheets("feuil1").Select Range("B1:BL1").Copy For i = 1 To Sheets.Count Worksheets("Feuil" & i).Select Range("B1").PasteSpecial xlPasteAll Next Et chez toi ???
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1 de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le code qui ne fonctionne pas bien. :
Sub CopierColler() Worksheets("Feuil1").Select Range("A7:L7").Select Range("A7:L7").Copy Worksheets("Feuil2").Select Range("A7").Activate Range("A7").PasteSpecial xlPasteAll End Sub
Merci de votre aide
Meilleures salutations.
Jean-Marc
Jacky
Bonjour, '---------- Ceci peut-être '----------- Sub jj() For i = 2 To 5 Feuil1.Range("b1:bl1").Copy Sheets(i).Range("b1") Next Application.CutCopyMode = False End Sub '--------- Ps :les feuilles doivent exister
-- Salutations JJ
"Jean-Marc moana" a écrit dans le message de news:
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1 de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le code qui ne fonctionne pas bien. :
Sub CopierColler() Worksheets("Feuil1").Select Range("A7:L7").Select Range("A7:L7").Copy Worksheets("Feuil2").Select Range("A7").Activate Range("A7").PasteSpecial xlPasteAll End Sub
Merci de votre aide
Meilleures salutations.
Jean-Marc
Bonjour,
'----------
Ceci peut-être
'-----------
Sub jj()
For i = 2 To 5
Feuil1.Range("b1:bl1").Copy Sheets(i).Range("b1")
Next
Application.CutCopyMode = False
End Sub
'---------
Ps :les feuilles doivent exister
--
Salutations
JJ
"Jean-Marc moana" <JeanMarcmoana@discussions.microsoft.com> a écrit dans le
message de news: 478CEB34-3BE6-4A5C-8425-79E8537303CD@microsoft.com...
Bonjour, je désire savoir comment je peux avec VBA copier la cellule
B1:BL1
de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de
faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous
le
code qui ne fonctionne pas bien. :
Sub CopierColler()
Worksheets("Feuil1").Select
Range("A7:L7").Select
Range("A7:L7").Copy
Worksheets("Feuil2").Select
Range("A7").Activate
Range("A7").PasteSpecial xlPasteAll
End Sub
Bonjour, '---------- Ceci peut-être '----------- Sub jj() For i = 2 To 5 Feuil1.Range("b1:bl1").Copy Sheets(i).Range("b1") Next Application.CutCopyMode = False End Sub '--------- Ps :les feuilles doivent exister
-- Salutations JJ
"Jean-Marc moana" a écrit dans le message de news:
Bonjour, je désire savoir comment je peux avec VBA copier la cellule B1:BL1 de la feuille 1 à la feuille 2, 3, 4 et 5 de la même plage. J'ai essayé de faire sur d'une feuille à une feuille, mais ça ne marche pas. Ci-dessous le code qui ne fonctionne pas bien. :
Sub CopierColler() Worksheets("Feuil1").Select Range("A7:L7").Select Range("A7:L7").Copy Worksheets("Feuil2").Select Range("A7").Activate Range("A7").PasteSpecial xlPasteAll End Sub