Boucle sur boucle

Bonjour le forum,

J'ai ce code (voir si dessous), il me fait presque le travail demandé. Ce que je cherche à faire en plus,c 'est que tant que de "L7" jusqu'à "L" est dernière ligne non vide une date est inférieur ou égale à aujourd’hui, il recommence la boucle. Merci

Dim DernLigne As Long
DernLigne = Sheets("Echéance").Range("B7").End(xlDown).Row
Dim DernLigne2 As Long
DernLigne2 = Sheets("Mouvement").Range("A1").End(xlDown).Row + 1
Dim i As Integer
Dim LaDate, echeance
Dim Calcul As Long

For i = 7 To DernLigne
If Sheets("Echéance").Range("G" & i).Value = "Mensuel" Then
    If Sheets("Echéance").Range("L" & i).Value <= Now() Then
      Sheets("Mouvement").Range("A" & DernLigne2).Value = Range("F" & i).Value
      Sheets("Mouvement").Range("B" & DernLigne2).Value = Range("H" & i).Value
      Sheets("Mouvement").Range("C" & DernLigne2).Value = Range("E" & i).Value
        If Sheets("Echéance").Range("H" & i).Value = "Compte Chèque" Then
        Calcul = Sheets("Echéance").Range("E" & i).Value
        Sheets("Mouvement").Range("G2").Value = Sheets("Mouvement").Range("G2").Value + Calcul
        Else: Sheets("Echéance").Range("H" & i).Value = "LEP Tatiana"
        Calcul = Sheets("Echéance").Range("E" & i).Value
        Sheets("Mouvement").Range("H2").Value = Sheets("Mouvement").Range("H2").Value + Calcul
        End If
      Sheets("Mouvement").Range("D" & DernLigne2).Value = Range("B" & i).Value
      Sheets("Mouvement").Range("E" & DernLigne2).Value = Range("C" & i).Value

      LaDate = Sheets("Echéance").Range("F" & i).Value
      echeance = DateAdd("m", 1, CDate(LaDate))
      Sheets("Echéance").Range("F" & i).Value = echeance

      DernLigne2 = DernLigne2 + 1
    End If
    End If
Next

bonjour vu le code, tu gères des factures et des dates

joins ton fichier

Voici le fichier:

J'ai fait ceci , pas très jolie mais fonctionne sur 12 mois. J'ai essayé avec une boucle "While" mais ça bugger à chaque fois.

Si quelqu'un à une meilleur solution .Merci

Aprés quelques améliorations ça fonctionne

salut Benoist

si un jour tu veux faire pareil sans macro, reviens sur le forum

bonne semaine à toi et à tous.

Pas de soucis, merci jmd.

Rechercher des sujets similaires à "boucle"