Si ta boucle s'arrête pas, c'est que t'as dû looper un truc :whistle: Bon ok, ->[]
gplr3
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.$
pvclunacy
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
crom29
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
gplr3
Merci.
après Essai, c'est la boucle principale (Do until) et je ne comprends pas pourquoi. Est-ce ma condition?
crom29
Essaye de mettre des Console.WriteLine("test0/1/2/3/..." ) dans tes boucles afin de repérer laquelle tourne à l'infini ;)
Wolfman
Ce sujet a été déplacé de la catégorie Windows & Software vers la categorie Programmation par Wolfman
gplr3
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
