Boucle for et condition

Bonjour à tous,

J'ai un code fonctionnel avec une boucle for qui me renvoi l'ensemble des données demandées jusqu'ici

Ceci étant dit j'ai besoin de l'améliorer et d'ajouter une condition afin d'alléger mon tableau de sortie

seulement voila cela me ressort les lignes complétés mais aussi les lignes vide ne correspondant pas à cette condition.

comment procéder afin que si cette condition n'est pas respecté alors le i en question soit ignorée afin que même des lignes vides ne se reportent pas?

merci par avance,

 For i = 2 To UBound(Prj) + 1
 j = i - 1

       If (Prj(j, 13) = "Active" Or Prj(j, 13) = "Negociation" Or Prj(j, 13) = "Submitted" Or Prj(j, 13) = "Drafting") Then

      Sheets("Lacks").Range("Y" & i) = (Prj(j, 3))
     ...
End if
Next

Bonjour,

Un essai ...

Il faut dissocier i de la ligne suivante sur Sheets("Lacks") ...

 For i = 2 To UBound(Prj) + 1
 j = i - 1
 k = 2  ' i commence à 2, l'on commence donc k à 2
       If (Prj(j, 13) = "Active" Or Prj(j, 13) = "Negociation" Or Prj(j, 13) = "Submitted" Or Prj(j, 13) = "Drafting") Then

      Sheets("Lacks").Range("Y" & k) = (Prj(j, 3))
      k = k + 1  ' k n'est incrémenté que si la condition s'avère, évitant ainsi les lignes vides
     ...
End If
Next

ric

Merci pour l’astuce Ric

Je vais tenter

merci à vous RIC cela fonctionne

il fallait toutefois sortir le k=2 de la boucle :)

Bonjour,

Tu as raison > je n'ai pas fait attention > désolé ...

Je suis un mauvais théoricien > j'ai besoin de tester sur un fichier ...

ric

Pas de soucis.

Déjà très sympa de m’avoir apporté ton aide!