VBA arrêter une boucle for suivi de if

[radivert]

Pour avoir écumé l'ensemble du forum sans avoir trouver de réponse je me permet de poser directement ma question... je bloque dessus depuis ce matin!

Alors en gros:
Je lance une boucle pour que la macro effectue un certain nombre d'opérations pour chaque utilisateur (B11 étant le premier d'une liste à taille variable). Cela fonctionne à merveille jusqu'à qu'il n'y ai plus d'utilisateurs: VBA continue à réaliser les opérations mais dans le vent.. J'essaye donc d'arrêter ma macro quand il n'y a plus d'utilisateurs (d'où le ""). Mais il ne prend pas en compte le else et continue quand même à réaliser les opérations...

J'ai essayé avec else if et cela n'à pas marché non plus...
Si vous avez une idée merci de me tenir au courant, ça doit être ultra simple mais je ne sais vraiment plus comment m'y prendre!!

'paramètres de la boucle
Dim i As Integer
Dim NbreUtilisateursSP As Integer
Dim Cel As Range
Set Cel = Range("B11")
Utilisateurs = Cel.End(xlDown).Row


'lancement de la boucle
For i = 0 To Utilisateurs

'option d'arrêt de la boucle une fois qu'il n'y a plus d'utilisateurs

If Cel.Offset(i) <> " " Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "fonctionne"

Else
Call fin_boucle

End If

Next i

End Sub

 

[Spitnolan08]

Re : VBA arrêter une boucle for suivi de if

Bonjour,

Je ne comprends pas trop ta question : Une boucle débute à un endroit et finit à celui que tu as désigné sauf si tu crée une sorte de référence circulaire. Essaies, mais je ne sais pas ce qu'est fin_boucle... :

'paramètres de la boucle
Dim i As Integer
Dim NbreUtilisateursSP As Integer
Dim Cel As Range
Set Cel = Range("B11")
Utilisateurs = Cel.End(xlDown).Row
'lancement de la boucle
For i = 0 To Utilisateurs
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "fonctionne" 
Next i
Call fin_boucle
End Sub

Cordialement

Edit : ceci étant je n'ai rien compris à ce que tu veux faire avec ta macro....ni l'intérêt de la boucle.