OVH Cloud OVH Cloud

Filtre ou tri aléatoire

2 réponses
Avatar
Souris
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!

2 réponses

Avatar
...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!




Avatar
...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!