[XL-2003] Boucle de sélection

Boucle de sélection

Bonjour à tous !

Je souhaiterai réaliser une macro qui sélectionne en boucle 12 lignes en colonne C et 12 lignes en colonne E soit :
Range 1 ("C2:C13") et range 2 ("E2:E13") pour qu'elle copie et colle ailleurs pour passer automatiquement en ("C14:C25"), ("E14:E25") et ainsi de suite tant que les colonnes C et E ne sont pas vides.

J'ai donc pensé à faire 3 variables R1, R2 As range et S As Integer avec S =12 comme ca il suffit d'incrémenter les 2 ranges. Mais je ne sais pas trop comment faire ceci :(. Je suis un peu perdu avec les variables :s

bonjour,
ce que je fais pour copier une zone
Code:

1 2 3 4 5 6 7 'définir une zone set zone = range(cells(debut_ligne,debut_colonne),cells(fin_ligne,fin_colonne)) 'copier coller zone.copy cells(ligne_cible,colonne_cible).PasteSpecial
l'aide te donne les options de pastespecial

Bonjour,

Pour la colonne C, fais la m^me chose pour la colonne E :

Code:

1
2
3
4
5
6
7
8
Sub test3()
    Dim i As Integer
    Do Until c.Value = ""
        [C2:C13].Offset(i).Copy
        'colle où tu veux
        i = i + 12
    Loop
End Sub

Super merci à vous 2 ! Je vais essayer avec ce que vous m'avez donné. Je vous tiens au courant !

Au temps pour moi :

Code:

1
2
3
4
5
6
7
8
Sub test3()
    Dim i As Integer
    Do Until [C2].Offset(i).Value = ""
        [C2:C13].Offset(i).Copy
        'colle où tu veux
        i = i + 12
    Loop
End Sub

Ton code fonctionne parfaitement Daniel.c. Le soucis c'est que j'aimerai combiner les 2 colonnes.

Il me prends les 12 premiers de la colonne C, il me les colle. Copie les 12 premiers de la colonne E, il les colle, et ensuite ca passe au 12 suivants.

Mais j'ai un peu du mal à faire correspondre les 2 codes.

EDIT : En fait c'est bon j'ai trouvé, je cherchais midi a 14 heures :
Il suffisait de faire un AND :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Creation_Nomenclature() Dim S As Integer 'S pour Selection Do Until [C2].Offset(S).Value = "" And [E2].Offset(S).Value = "" [C2:C13].Offset(S).Copy SendKeys "^v", True 'Coller les 12 codes JDE [E2:E13].Offset(S).Copy SendKeys "^v", True 'Coller les 12 codes JDE S = S + 12 Loop MsgBox "Création des articles terminée." End Sub