Bonjour j'ai un tableau de A5: N4107. Je dois choisir à tous les 15 lignes
les données présentes pour former un autre tableau sur une autre feuille.
Est-ce possible? Je ne suis pas très habile en VBA mais si vous m'aider je
peux sûrement y arriver!
Bonjour j'ai un tableau de A5: N4107. Je dois choisir à tous les 15 lignes
les données présentes pour former un autre tableau sur une autre feuille. Est-ce possible? Je ne suis pas très habile en VBA mais si vous m'aider je peux sûrement y arriver!
Merci mille fois!
Merci les maites! À bientôt!
"Souris" <souris@hotmail.com> a écrit dans le message de
news:uok6IPzQEHA.3052@TK2MSFTNGP12.phx.gbl...
Bonjour j'ai un tableau de A5: N4107. Je dois choisir à tous les 15
lignes
les données présentes pour former un autre tableau sur une autre feuille.
Est-ce possible? Je ne suis pas très habile en VBA mais si vous m'aider je
peux sûrement y arriver!
Bonjour j'ai un tableau de A5: N4107. Je dois choisir à tous les 15 lignes
les données présentes pour former un autre tableau sur une autre feuille. Est-ce possible? Je ne suis pas très habile en VBA mais si vous m'aider je peux sûrement y arriver!
Merci mille fois!
Gloops
Salut,
Oh, ben elle a du mal, la souris.
On essaie une autre syntaxe, comme ça, pour voir ? Bien entendu, il faut que le classeur ait une feuille de calcul qui s'appelle Feuil1, et une autre qui s'appelle Feuil2. Et en plus un module, bien sûr, pour mettre les macros dedans.
Si ça coince il faudrait qu'on sache sur quelle instruction. Avec la touche F8 sur le module on lance la macro active pas à pas. La macro active c'est celle sur laquelle on a cliqué pour la sélectionner.
Sub zz2() x = 1 Set F1 = Worksheets("Feuil1") Set F2 = Worksheets("Feuil2") For i = 5 To 4107 Step 15 F2.Range(F2.Cells(x, 1), F2.Cells(x, 14)) = _ F1.Range(F1.Cells(i, 1), F1.Cells(i, 14)) x = x + 1 Next End Sub
Allez, encore une autre ? Cette fois en passant par le presse-papier
Sub zz3() x = 1 For i = 5 To 4107 Step 15 Range("Feuil1!A" & i & ":N" & i).Copy Worksheets("Feuil2").Activate Range("Feuil2!A" & x & ":N" & x).Select Worksheets("Feuil2").Paste Worksheets("Feuil1").Activate x = x + 1 Next End Sub
================ DEBUT ====================== Sub TransfertTableau() x = 1 For i = 5 to 4107 step 15 With WorkSheets("Feuil2") .Range(.Cells(x, 1), .Cells(x, 14)).Value AV a écrit, le 26/05/2004 17:34 :
Essaye si ce qui so=iut te convient Les données sont en "Feuil1" et l'extraction se fait en "Feuil2"
Sub zzzz() x = 1 For i = 5 To 4107 Step 15 Range("Feuil2!A" & x & ":N" & x).Value = Range("Feuil1!A" & i & ":N" & i).Value x = x + 1 Next End Sub
AV
Salut,
Oh, ben elle a du mal, la souris.
On essaie une autre syntaxe, comme ça, pour voir ?
Bien entendu, il faut que le classeur ait une feuille de calcul qui
s'appelle Feuil1, et une autre qui s'appelle Feuil2. Et en plus un
module, bien sûr, pour mettre les macros dedans.
Si ça coince il faudrait qu'on sache sur quelle instruction. Avec la
touche F8 sur le module on lance la macro active pas à pas. La macro
active c'est celle sur laquelle on a cliqué pour la sélectionner.
Sub zz2()
x = 1
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil2")
For i = 5 To 4107 Step 15
F2.Range(F2.Cells(x, 1), F2.Cells(x, 14)) = _
F1.Range(F1.Cells(i, 1), F1.Cells(i, 14))
x = x + 1
Next
End Sub
Allez, encore une autre ?
Cette fois en passant par le presse-papier
Sub zz3()
x = 1
For i = 5 To 4107 Step 15
Range("Feuil1!A" & i & ":N" & i).Copy
Worksheets("Feuil2").Activate
Range("Feuil2!A" & x & ":N" & x).Select
Worksheets("Feuil2").Paste
Worksheets("Feuil1").Activate
x = x + 1
Next
End Sub
================ DEBUT ====================== Sub TransfertTableau()
x = 1
For i = 5 to 4107 step 15
With WorkSheets("Feuil2")
.Range(.Cells(x, 1), .Cells(x, 14)).Value
AV a écrit, le 26/05/2004 17:34 :
Essaye si ce qui so=iut te convient
Les données sont en "Feuil1" et l'extraction se fait en "Feuil2"
Sub zzzz()
x = 1
For i = 5 To 4107 Step 15
Range("Feuil2!A" & x & ":N" & x).Value = Range("Feuil1!A" & i & ":N" &
i).Value
x = x + 1
Next
End Sub
On essaie une autre syntaxe, comme ça, pour voir ? Bien entendu, il faut que le classeur ait une feuille de calcul qui s'appelle Feuil1, et une autre qui s'appelle Feuil2. Et en plus un module, bien sûr, pour mettre les macros dedans.
Si ça coince il faudrait qu'on sache sur quelle instruction. Avec la touche F8 sur le module on lance la macro active pas à pas. La macro active c'est celle sur laquelle on a cliqué pour la sélectionner.
Sub zz2() x = 1 Set F1 = Worksheets("Feuil1") Set F2 = Worksheets("Feuil2") For i = 5 To 4107 Step 15 F2.Range(F2.Cells(x, 1), F2.Cells(x, 14)) = _ F1.Range(F1.Cells(i, 1), F1.Cells(i, 14)) x = x + 1 Next End Sub
Allez, encore une autre ? Cette fois en passant par le presse-papier
Sub zz3() x = 1 For i = 5 To 4107 Step 15 Range("Feuil1!A" & i & ":N" & i).Copy Worksheets("Feuil2").Activate Range("Feuil2!A" & x & ":N" & x).Select Worksheets("Feuil2").Paste Worksheets("Feuil1").Activate x = x + 1 Next End Sub
================ DEBUT ====================== Sub TransfertTableau() x = 1 For i = 5 to 4107 step 15 With WorkSheets("Feuil2") .Range(.Cells(x, 1), .Cells(x, 14)).Value AV a écrit, le 26/05/2004 17:34 :
Essaye si ce qui so=iut te convient Les données sont en "Feuil1" et l'extraction se fait en "Feuil2"
Sub zzzz() x = 1 For i = 5 To 4107 Step 15 Range("Feuil2!A" & x & ":N" & x).Value = Range("Feuil1!A" & i & ":N" & i).Value x = x + 1 Next End Sub
AV
Gloops
Ah oui, et je propose de démarrer depuis le module pour lancer en pas à pas. Eh bien avec celle-ci, à mon avis, ça ne va pas marcher, c't'affaire.
Il faut soit démarrer depuis Feuil1, soit ajouter
WorkSheets("Feuil1").Activate
au début.
(logiquement pour zz2 il n'y a pas de souci de ce style) _____________________________________ Gloops a écrit, le 26/05/2004 22:38 :
Sub zz3()
'à savoir ici
x = 1 For i = 5 To 4107 Step 15 Range("Feuil1!A" & i & ":N" & i).Copy Worksheets("Feuil2").Activate Range("Feuil2!A" & x & ":N" & x).Select Worksheets("Feuil2").Paste Worksheets("Feuil1").Activate x = x + 1 Next End Sub
Ah oui, et je propose de démarrer depuis le module pour lancer en pas à
pas. Eh bien avec celle-ci, à mon avis, ça ne va pas marcher, c't'affaire.
Il faut soit démarrer depuis Feuil1, soit ajouter
WorkSheets("Feuil1").Activate
au début.
(logiquement pour zz2 il n'y a pas de souci de ce style)
_____________________________________
Gloops a écrit, le 26/05/2004 22:38 :
Sub zz3()
'à savoir ici
x = 1
For i = 5 To 4107 Step 15
Range("Feuil1!A" & i & ":N" & i).Copy
Worksheets("Feuil2").Activate
Range("Feuil2!A" & x & ":N" & x).Select
Worksheets("Feuil2").Paste
Worksheets("Feuil1").Activate
x = x + 1
Next
End Sub
Ah oui, et je propose de démarrer depuis le module pour lancer en pas à pas. Eh bien avec celle-ci, à mon avis, ça ne va pas marcher, c't'affaire.
Il faut soit démarrer depuis Feuil1, soit ajouter
WorkSheets("Feuil1").Activate
au début.
(logiquement pour zz2 il n'y a pas de souci de ce style) _____________________________________ Gloops a écrit, le 26/05/2004 22:38 :
Sub zz3()
'à savoir ici
x = 1 For i = 5 To 4107 Step 15 Range("Feuil1!A" & i & ":N" & i).Copy Worksheets("Feuil2").Activate Range("Feuil2!A" & x & ":N" & x).Select Worksheets("Feuil2").Paste Worksheets("Feuil1").Activate x = x + 1 Next End Sub
