Créer une boucle conditionnel (for i = 1 to 5 if...)

[bloomby]

Bonjour Forum,

Je cherche a créer une boucle dans le code ci-dessous.
Dans mon tableur excel j'ai 5 lignes dans lequels il peut y avoir des tâches à faire ou pas.
De la sorte, je cherche a reproduire la macro avec un "i"

for i = 1 to 5
et de changer le .cells( "i",1).Value

mais la boucle doit continuer à avancer seulement s'il y a quelque chose d'inscrit dans la cellule

Sub Send_Tache_Outlook()
 Dim MyOut As New Outlook.Application
 Dim MyTask As TaskItem
 Set MyTask = MyOut.CreateItem(olTaskItem)
 'Affectation d'un Objet Tâche à myTask
  
 With MyTask
     .Subject = Sheets("to.do").Cells(1,1).Value
     .DueDate = Sheets("to.do").Cells(1,2).Value
     .Body = Sheets("to.do").Cells(1,3).Value
 End With
  
 MyTask.Save
 End Sub

merci pour votre aide

 

[Paf]

Re : Créer une boucle conditionnel (for i = 1 to 5 if...)

Bonjour,

a priori
for i = 1 to 5
if .cells( i,1).Value <>"" then
' code
end if
next

A+

Edit :

ou plutôt
for i = 1 to 5
if .cells( i,1).Value <>"" then
' code
else
exit sub
end if
next