J'ai une erreur 424

Bonjour,

Au passage, essayez avec ce code:

Sub PreparationTCD()
With Sheets("Archives")

' Mise à jour jaune préparatoire au TCD.

' Définition de la variable "Ligne".(dernière ligne de la colonne C
    Ligne = .Cells(Rows.Count, 3).End(xlUp).Row

' Définition du mois en lettres.
    mois = Choose(Month(.Cells(Ligne, 3)), "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
    "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")

' Remplissage ligne du tableau jaune.
    .Cells(Ligne, 27).Value = mois & " " & Year(.Range("C" & Ligne))      ' Mois suivi de l'année
    .Cells(Ligne, 28).Value = .Cells(Ligne, 5)
    
        If .Cells(Ligne, 9) <> "" Then 'si c'est une dépense
                .Cells(Ligne, 29).Value = .Cells(Ligne, 9) * -1           'Me.TextBox_Debit * -1
        Else 'si pas dépense c'est au crédit
            .Cells(Ligne, 29).Value = .Cells(Ligne, 10)
        End If
End With
End Sub

Bonjour Le Pingou,

Je viens de faire les tests aussi bien sur le classeur test que je t'avais envoyé mais aussi dans le classeur final en l'integrant dans mes macros et tout fonctionne parfaitement.

Je ne connaissais pas cette instruction With qui permet de simplifier le code sans avoir à répeter le nom de la feuille.

Je ferme le sujet.

Mille mercis à toi.

Cordialement

Mistral

Merci, bonne suite