Discussion :

[swiMa]

Bonjour,


comme l'indique mon titre, je souhaiterai faire fonctionner deux boucles parallèlement, ou bien deux variables dans une même boucle.

J'ai joint un fichier simplifié à mon message : http://cjoint.com/?DEwo3Jz9cmx


Comme vous pouvez le voir, je souhaite coller la colonne B2, dans la colonne B18. Puis C2 dans la colonne D18...ainsi de suite.

Ce problème est simplifié, la difficulté principale étant de faire fonctionner deux variables dans une même boucle et non pas deux boucles imbriquées.



En espérant que j'ai été assez clair dans mon explication.

N'hésitez pas à me demander tout autre information supplémentaire.


Cordialement.

[letudiant68]

Bonjour, voici un simple algorithme répondant au problème dans ton exemple, il ne te reste plus qu'à adapter.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TEST_JB()
 
    Dim i As Long, j As Long
    j = 2
    For i = 2 To 7
        Cells(18, j) = Cells(2, i)
        j = j + 2
    Next i
 
End Sub

[GoFio]

Bonjour,

Normalement ceci devrais fonctionné pour la fichier que tu as joint.
Ensuite tu devras sans doute adapter pour ton plus gros fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub CopierColler()
    Dim i As Integer, c As Integer
 
    c = 0
    For i = 1 To 6 ' 6 = ton nombre de pays/villes
        Cells(18, i + 1 + c).Value = Cells(2, i + 1).Value
        c = c + 1
    Next
 
End Sub

Cordialement


EDIT : Désoler letudiant68 j'étais en train de répondre également ^^. Par contre je suis content de voir que j'arrive à la même chose que toi . Du coup swiMa tu as le choix

[swiMa]

Merci pour votre efficacité et rapidité.

Je vais voir ça, mais ça devrait marcher.


William.

[Marc-L]

Bonjour, bonjour,

c'est dommage d'avoir espacé les colonnes car il n'y aurait pas eu besoin de boucle …

Sinon dans l'état actuel, inutile la seconde variable !

For C& = 2 To 7: Cells(18, C + C - 2).Value = Cells(2, C).Value: Next …


Et :
__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé …