Bonjour,
Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas
passé selon mon outlook...
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!
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
...Patrick
Salut "Souris",
Une copie des tes lignes par pas de 15...
Sub les15() Dim i Sheets(1).Activate For i = 3 To 4200 Step 15 Cells(i, 1).EntireRow.Copy Sheets(2).Range("A65000").End(xlUp)(2) Next i End Sub Toujours essayer un fichier de test !!! ...Patrick
"Souris" a écrit dans le message de news:
Bonjour, Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas passé selon mon outlook...
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!
Salut "Souris",
Une copie des tes lignes par pas de 15...
Sub les15()
Dim i
Sheets(1).Activate
For i = 3 To 4200 Step 15
Cells(i, 1).EntireRow.Copy Sheets(2).Range("A65000").End(xlUp)(2)
Next i
End Sub
Toujours essayer un fichier de test !!!
...Patrick
"Souris" <souris@hotmail.com> a écrit dans le message de
news:OOMvbjzQEHA.2132@TK2MSFTNGP11.phx.gbl...
Bonjour,
Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas
passé selon mon outlook...
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!
Sub les15() Dim i Sheets(1).Activate For i = 3 To 4200 Step 15 Cells(i, 1).EntireRow.Copy Sheets(2).Range("A65000").End(xlUp)(2) Next i End Sub Toujours essayer un fichier de test !!! ...Patrick
"Souris" a écrit dans le message de news:
Bonjour, Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas passé selon mon outlook...
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!
...Patrick
sorry pas vu la réponse de maitre AV :-((
"...Patrick" a écrit dans le message de news:
Salut "Souris",
Une copie des tes lignes par pas de 15...
Sub les15() Dim i Sheets(1).Activate For i = 3 To 4200 Step 15 Cells(i, 1).EntireRow.Copy Sheets(2).Range("A65000").End(xlUp)(2) Next i End Sub Toujours essayer un fichier de test !!! ...Patrick
"Souris" a écrit dans le message de news:
Bonjour, Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas passé selon mon outlook...
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!
sorry pas vu la réponse de maitre AV :-((
"...Patrick" <Nonpasdespam...P.mackay@skynet.be> a écrit dans le message de
news:uu2xaQ1QEHA.4000@TK2MSFTNGP10.phx.gbl...
Salut "Souris",
Une copie des tes lignes par pas de 15...
Sub les15()
Dim i
Sheets(1).Activate
For i = 3 To 4200 Step 15
Cells(i, 1).EntireRow.Copy Sheets(2).Range("A65000").End(xlUp)(2)
Next i
End Sub
Toujours essayer un fichier de test !!!
...Patrick
"Souris" <souris@hotmail.com> a écrit dans le message de
news:OOMvbjzQEHA.2132@TK2MSFTNGP11.phx.gbl...
Bonjour,
Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas
passé selon mon outlook...
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
Sub les15() Dim i Sheets(1).Activate For i = 3 To 4200 Step 15 Cells(i, 1).EntireRow.Copy Sheets(2).Range("A65000").End(xlUp)(2) Next i End Sub Toujours essayer un fichier de test !!! ...Patrick
"Souris" a écrit dans le message de news:
Bonjour, Désolée si vous voyez ce post 2 fois... mais on dirait qu'il n'avait pas passé selon mon outlook...
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