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 Submerci
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