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