Bonjour à tous,
J'ai un problème dans mon code de macro pour terminer une boucle. Le code bloque à la ligne en rouge. Lorsqu'il relance le balayage de la base client pour générer une seconde feuille, il bloque surement sur le nom de la feuille.
Pouvez-vous m'aider svp?
Ci-dessous le code ma macro.
Sub Factures_ITP()
'Edition de factures en fonction du fichier mensuel des locations'
'Numérotation automatique des factures avec ITP15 suivi de trois chiffres (utilisation du menu format de la cellule) donc hors du code'
Dim num As Integer
num = Sheets("Facture").Range("B13").Value
num = num + 1
Dim dlg As Integer
dlg = Sheets("Mensuel").Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To dlg
With Sheets("Facture")
.Range("B13") = num
.Range("D7") = Sheets("Mensuel").Range("A" & i)
.Range("D8") = Sheets("Mensuel").Range("G" & i)
.Range("D9") = Sheets("Mensuel").Range("J" & i)
.Range("D10") = Sheets("Mensuel").Range("K" & i) & " " & Sheets("Mensuel").Range("L" & i)
.Range("A19") = "Location " & Sheets("Mensuel").Range("C" & i) & " pour " & Sheets("Mensuel").Range("E" & i) & " le " & Sheets("Mensuel").Range("D" & i)
.Range("A20") = Sheets("Mensuel").Range("I" & i)
.Range("E19") = Sheets("Mensuel").Range("H" & i)
.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets("Facture").Range("B13").Text
End With
Next
End Sub
Je précise que je souhaite appeler chaque feuille générée et copiée par le numéro incrémenté présent dans mon modèle de facture en B13