Discussion :

[azertym]

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

[Patnel]

bonjour,
ce que je fais pour copier une zone

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[azertym]

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

[Daniel.C]

Au temps pour moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[azertym]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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