Créer une boucle

Utiliser plutot
Range Sheets("Mail FKG1").Cells(num_ligne,num_colonne)
qui permettra de boucler sur num_ligne
et pourquoi pas aussi sur num_colonne

bonjour

hormis le fait de passer en cells comme te propose fort justement CCM1

tu peux réduire le nombre de ligne de ta macro par:

With Sheets("Point Ordo-Montage FKG1")   
    Application.ScreenUpdating = False   
    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")   
    bloc = .Range("H3:R3").Value   
    Sheets("Mail FKG1").Range("D3:N3") = bloc   
End With

à passer en cells au lieu de range, bien entendu

pour ta boucle

Sub Image4_Click()   
Dim derlig As Byte, lig As Byte   
With Sheets("Point Ordo-Montage FKG1")   
    Application.ScreenUpdating = False   
    derlig = .Range("A250").End(xlUp).Row   
    For lig=3 to derlig   
       'ton code (avec par exemple cells(lig,"A")   
    next   
end with

A toi de jouer et de gagner
évite les "i", "j" comme nom de variable (au moins 3 caractères) malgré qu'on le voit hélas trop souvent (maintenance du logiciel)
Michel

Merci Michel pour ta réponse,

Par contre la ligne suivante : bloc = .Range("H3:R3").Value
ne marche pas et est signalé une erreur de syntaxe.
J'ai essayé de faire la modif selon la boucle: bloc = .Range(lig,"H":lig,"R").value
mais cela ne marche pas non plus!!

Peux tu m'expliquer ça et me dire par la même occasion si le code ci dessous conviens pour éviter que je te redemande ça plus tard:
________________________

Private Sub Image4_Click()

Dim derlig As Byte, lig As Byte
Dim bloc As Byte

With Sheets("Point Ordo-Montage FKG1")
Application.ScreenUpdating = False

derlig = .Range("A250").End(xlUp).Row
For lig = 3 To derlig

Sheets("Mail FKG1").Cells(lig, "B") = .Range("B3") & vbLf & .Range("C3") & vbLf & .Range("E3") & vbLf & .Range("F3")
Sheets("Mail FKG1").Cells(lig, "C") = .Range("A3") & vbLf & .Range("D3") & vbLf & .Range("G3")
bloc = .Range("H3":"R3").Value
Sheets("Mail FKG1").Range("D3:N3") = bloc

Next

End With

End Sub

______________________
Merci de ton aide

Re Michel,

Petite pause en formation et je reprends mon problème. Pour t'expliquer l'objectif de mon programme en quelques mots:
- J'ai créé sans boucle un programme qui copie des lignes d'une feuille pour les mettre sur une autre feuille sous un format différent.
- Mon premier message posté (voir ci-dessus) représente le code exécuté pour la ligne 3 et celui-ci recopié 18 fois pour 18 lignes maxi acceptée par le programme VBA.
- Donc l'objectif de ma demande est de reproduire le code de mon premier message sur un nombre de ligne "remplies" indéfinies.

pour info, la modif que tu me conseil crée toujours un BUG!!!

____________________________
Private Sub Image4_Click()

Dim derlig As Byte, lig As Byte
Dim bloc As Byte

With Sheets("Point Ordo-Montage FKG1")
Application.ScreenUpdating = False

derlig = .Range("A250").End(xlUp).Row
For lig = 3 To derlig

Sheets("Mail FKG1").Cells(lig, "B") = .Range("B3") & vbLf & .Range("C3") & vbLf & .Range("E3") & vbLf & .Range("F3")
Sheets("Mail FKG1").Cells(lig, "C") = .Range("A3") & vbLf & .Range("D3") & vbLf & .Range("G3")
bloc = .Range(Cells(lig, "H"), Cells(lig, "R")).Value
Sheets("Mail FKG1").Range(Cells(lig, "H"), Cells(lig, "R")) = bloc

Next

End With

End Sub
___________________________
Arrivez tu à me dire où est le souci???
Merci Michel

Bonjour,
Suite à échanges matinaux...

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, en suivant la méthode décrite ci dessus par michel_m, que je re-salue au passage.

ps : je vais faire fermer l'autre sujet, inutile à présent...