Bonjour,
 
J'ai un soucis avec ma boucle qui n'arrête pas de tourner.
 
Merci par avance pour votre aide.
 
GPLR3
 
 
Sub CreerFicheInstal
'
'
'Macro CreerFicheInstal()
'
 
 
Sheets("Temp" ).Select
        Range("A11" ).Select
    Do Until Cells(ActiveCell.Row + 2, 1) = "" & Cells(ActiveCell.Row + 3, 1) = ""
        Range(ActiveCell, Cells(ActiveCell.Row, 4)).Select
        Selection.Copy
        Sheets("Impression Installateur" ).Select
            Dim i As Integer
                i = 7
                While (Cells(i, 1).Value <> "" )
                i = i + 1
            Wend
        Cells(i, 1).Select
        ActiveSheet.Paste
     
        Sheets("Temp" ).Select
        Cells(ActiveCell.Row, 7).Select
        Selection.Copy
        Sheets("Impression Installateur" ).Select
            Dim j As Integer
                j = 7
                While (Cells(j, 6).Value <> "" )
                j = j + 1
            Wend
        Cells(j, 6).Select
        ActiveSheet.Paste
 
        Sheets("Temp" ).Select
        Cells(ActiveCell.Row + 1, 1).Select
 
     
    Loop
     
End Sub

Ce sujet a été déplacé de la catégorie Windows & Software vers la categorie Programmation par Wolfman

Essaye de mettre des Console.WriteLine("test0/1/2/3/..." ) dans tes boucles afin de repérer laquelle tourne à l'infini

Merci.
 
après Essai, c'est la boucle principale (Do until) et je ne comprends pas pourquoi. Est-ce ma condition?

essaye d'afficher les valeurs de Cells(ActiveCell.Row + 2, 1) et Cells(ActiveCell.Row + 3, 1), tu comprendras sans doute mieux pourquoi ça boucle

Bonsoir,
 
 Do Until Cells(ActiveCell.Row + 2, 1) = "" & Cells(ActiveCell.Row + 3, 1) = ""  
 
Comme ça je dirais qu'il manque un .Value a tes Cells
 

En effet, il manque le . value.
Et comme je n'arrivais pas à comrprendre, j'ai délimté mes zones à copier autrement. En tout cas, merci pour votre aide.$

Si ta boucle s'arrête pas, c'est que t'as dû looper un truc    Bon ok, ->[]