Boucle copier/coller Résolu/Fermé

Question

Bonjour, 

J'ai déjà posté une intervention pour le même sujet mais je n'ai pas réussi à avoir les indications nécessaires pour réaliser mon programme: 
Explication: Le programme rédigé ci-dessous exécute une copier/coller de la ligne 3 d'une feuille à une autre.
Mon souhait est de réaliser ce même copier/coller de plusieurs lignes (un nombre variable de ligne à partir de la 3). Je voudrais donc créer une boucle sachant que la colonne D de la feuille où les données sont copiées est toujours renseignées (afin d'incrémenter).
______________________
Private Sub Image4_Click() 

With Sheets("Point Ordo-Montage FKG1") 

Sheets("Mail FKG1").Range("B3") = .Range("B3") & vbLf & .Range("C3") & vbLf & .Range("E3") & vbLf & .Range("F3") 
Sheets("Mail FKG1").Range("C3") = .Range("A3") & vbLf & .Range("D3") & vbLf & .Range("G3") 
Sheets("Mail FKG1").Range("D3") = .Range("H3") 
Sheets("Mail FKG1").Range("E3") = .Range("I3") 
Sheets("Mail FKG1").Range("F3") = .Range("J3") 
Sheets("Mail FKG1").Range("G3") = .Range("K3") 
Sheets("Mail FKG1").Range("H3") = .Range("L3") 
Sheets("Mail FKG1").Range("I3") = .Range("M3") 
Sheets("Mail FKG1").Range("J3") = .Range("N3") 
Sheets("Mail FKG1").Range("K3") = .Range("O3") 
Sheets("Mail FKG1").Range("L3") = .Range("P3") 
Sheets("Mail FKG1").Range("M3") = .Range("Q3") 
Sheets("Mail FKG1").Range("N3") = .Range("R3") 

End With 

End Sub 
____________________
Merci à celui ou celle qui répondra
J'attends vos suggestions

Configuration: Windows XP / Internet Explorer 6.0

michel_m · Answer

La première demande était:
https://forums.commentcamarche.net/forum/affich-19558505-creer-une-boucle

pijaku · Answer

Bonjour,
Une boucle qui va débuter en 3ème ligne et terminer en dernière ligne (colonne D) :

Private Sub Image4_Click() 
Dim DernLign As Integer, Lign As Integer
With Sheets("Point Ordo-Montage FKG1") 
    DernLign = .Cells(65536, 4).End(xlUp).Row
        For Lign = 3 To DernLign
            Sheets("Mail FKG1").Cells(Lign, 2) = .Cells(Lign, 2) & vbLf & .Cells(Lign, 3) & vbLf & .Cells(Lign, 5) & vbLf & ..Cells(Lign, 6)  
            Sheets("Mail FKG1").Cells(Lign, 3)  = .Cells(Lign, 1) & vbLf & .Cells(Lign, 4) & vbLf & .Cells(Lign, 7) 
            Sheets("Mail FKG1").Cells(Lign, 4)  = .Cells(Lign, 8) 
            Sheets("Mail FKG1").Cells(Lign, 5)  = .Cells(Lign, 9) 
            Sheets("Mail FKG1").Cells(Lign, 6)  = .Cells(Lign, 10) 
            Sheets("Mail FKG1").Cells(Lign, 7)  = .Cells(Lign, 11) 
            Sheets("Mail FKG1").Cells(Lign, 8)  = .Cells(Lign, 12) 
            Sheets("Mail FKG1").Cells(Lign, 9)  = .Cells(Lign, 13) 
            Sheets("Mail FKG1").Cells(Lign, 10)  = .Cells(Lign, 14) 
            Sheets("Mail FKG1").Cells(Lign, 11)  = .Cells(Lign, 15) 
            Sheets("Mail FKG1").Cells(Lign, 12)  = .Cells(Lign, 16) 
            Sheets("Mail FKG1").Cells(Lign, 13)  = .Cells(Lign, 17) 
            Sheets("Mail FKG1").Cells(Lign, 14)  = .Cells(Lign, 18) 
    Next Lign
End With 
End Sub 

Pour une meilleure compréhension, je t'ai laissé le "schéma" de code initial. Sache qu'il est possible de le raccourcir.

gunbafo · Answer

Merci Pijaku pour ta réponse. 

C'est exactement ce que je voulais. 
Michel_m, maintenant que je comprends un peu plus le système de boucle, je vais pouvoir tester ton "schéma" raccourci que tu m'as conseillé dans ma première demande.

Pijaku, Que me propose tu pour raccourcir mon code??

Boucle copier/coller

3 réponses

Discussions similaires

Newsletters