Bonjour,
Lorsque je veux ajouter la mensualisation pour le mois de février à l'ouverture du fichier j'ai un message erreur.
Je lance le débogueur est j'ai cette ligne de surlignée en jaune
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Date").Column).Value = CDate(.Cells(Ligne_testée, 1).Value & "/" & Le_Mois & "/" & Year(Now))
qui se trouve dans
With WS
If [Date_Mensualisation].Value = 12 Then [Date_Mensualisation].Value = 0
For Le_Mois = [Date_Mensualisation].Value + 1 To Month(Now)
Colonne_du_Mois = 7 + Le_Mois
Do
If .Cells(Ligne_testée, 1).Value = "" Then Exit Do
If .Cells(Ligne_testée, Colonne_du_Mois).Value <> "" Then
' mise en place de la mensualisation
' la date
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Date").Column).Value = CDate(.Cells(Ligne_testée, 1).Value & "/" & Le_Mois & "/" & Year(Now))
' le nom du compte
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Compte").Column).Value = .Cells(Ligne_testée, 2).Value
' libellé principal
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Lib_Principal").Column).Value = .Cells(Ligne_testée, 3).Value
' libellé automatique (secondaire)
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Lib_Auto").Column).Value = .Cells(Ligne_testée, 4).Value
' libellé libre
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Lib_Lib").Column).Value = .Cells(Ligne_testée, 5).Value
' mode de paiement
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Mode").Column).Value = .Cells(Ligne_testée, 6).Value
' crédit ou débit
If .Cells(Ligne_testée, 7).Value = "Crédit" Then
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_Cr").Column).Value = .Cells(Ligne_testée, Colonne_du_Mois).Value
Else
Sheets("Ecritures").Cells(Ligne_écritures, Sheets("Ecritures").Range("_De").Column).Value = .Cells(Ligne_testée, Colonne_du_Mois).Value
End If
Ligne_écritures = Ligne_écritures + 1
End If
Ligne_testée = Ligne_testée + 1
Loop
Ligne_testée = 2
Next Le_Mois
End With