Macro toute simple fait planter Excel systématiquement

Bonjour,

J'essaye de créer une boucle, mais à chaque fois que je la lance cela fais planter excel ( ne répond pas ) indéfiniment jusqu'à ce que je ferme le processus via le gestionnaire de taches. quelqu'un saurait pourquoi ? J'ai pas l'impression qu'elle soit compliqué, d'ou mon interrogation.

Merci d'avance ! :)

Voici la macro :

sub test()

Dim nrow as Integer
Dim buom as Integer
Dim suom as Integer
buom = 2
suom = 3
nrow = 2

line1:

If Cells(nrow, suom) = "" Then

Cells(nrow, buom).Copy Destination:=Cells(nrow, suom)

nrow = nrow +1

End If

If nrow <= 10 then

GoTo line1

End If

End Sub

Bonjour

peu etre

Sub test()

Dim nrow As Integer
Dim buom As Integer
Dim suom As Integer
buom = 2
suom = 3
nrow = 2

line1:

If Cells(nrow, suom) = "" Then

Cells(nrow, buom).Copy Destination:=Cells(nrow, suom)

nrow = nrow + 1

If nrow <= 10 Then

GoTo line1
End If
End If

End Sub

merci

Ca fonctionne parfaitement, merci beaucoup !

Par contre, je n'ai pas compris tes changement, en quoi ce que tu as fais fait que ça fonctionne mieux ?

Merci encore !

Bonjour

changement de la position du 1ier "End If"

la boucle ne se fermais pas......et ca plante

merci

Rechercher des sujets similaires à "macro toute simple fait planter systematiquement"