Afficher la valeur d'une variable en commentaire

Bonjour le forum,

Cela fait plusieurs heures que je tourne en rond pour l'insertion d'un fichu commentaire, c'est pourquoi je me tourne vers les experts du site ...

J'essaie tout simplement d'insérer en commentaire d'une cellule la valeur d'une variable.

Voici quelques lignes de mon code qui ne fonctionne pas (dans un userform) :

Sub BoutonAjouter_Click()

Dim Saisie_Date As Date

Range("A" & Fin) = Format((DateSerial(Année, Mois + 2, 0)), "dd/mm/yy")

With Range("A" & Fin).AddComment

.Visible = False

.Comment.Text Saisie_Date

End With

J'ai le message d'erreur suivant :

"Erreur définie par l'application ou par l'objet"

Merci à ceux ou celles qui peuvent m'aider ....

Bonjour,

Il ne manque pas un bout du code ?

Ta variable Fin n'est ni déclarée ni intialisée avec une valeur.

Ta variable Saisie_Date est déclarée comme variable de type date, mais n'a aucune valeur non plus.

Cordialement,

En effet, je n'ai pas mis l'intégralité du code, chose que je vais faire ci-dessous.

Quand à la variable Saisie_Date, elle provient d'un textbox d'un userform qui fonctionne.

Si besoin est, je vais mettre l'intégralité du fichier en ligne ...

Sub BoutonAjouter_Click()
Dim Cell As Range
Dim Saisie_Date As Date
Dim Année As Integer
Dim Mois As Integer
Dim Mois_en_lettres
Dim Jour_Date As String
Dim Jour_Semaine As String
Dim Date_Bascule_Virtuelle As String
Dim Date_Bascule_Réelle As String

Saisie_Date = BoxDate
Année = Format(Saisie_Date, "yy")
Mois = Format(Saisie_Date, "mm")
Mois_en_lettres = Format(Saisie_Date, "mmmm")
Jour_Date = Format(Saisie_Date, "dd")

If BoxMontant.Value < 1 / 100 Or Len(Trim(BoxLibellé)) < 3 Then
    MsgBox "Le montant et le libellé de l'opération doivent être indiqués.", vbCritical, "Attention !"
Else: Worksheets(Mois_en_lettres).Select

    'Calcul pour la saisie des opérations faites par la carte à débit différé
    If OptionCBD Then

        'Calcul de la date du 20 du mois de la date de saisie
        Date_Bascule_Virtuelle = CDate(20 & "/" & Mois & "/" & Année)

        'Calcul de la date de bascule CB débit différé
        Jour_Semaine = Format(Date_Bascule_Virtuelle, "dddd")

        Select Case Jour_Semaine
            Case Is = "lundi"
                Date_Bascule_Réelle = DateAdd("d", -2, Date_Bascule_Virtuelle)
            Case Is = "dimanche"
                Date_Bascule_Réelle = DateAdd("d", -1, Date_Bascule_Virtuelle)
            Case Is = "samedi"
                Date_Bascule_Réelle = DateAdd("d", 2, Date_Bascule_Virtuelle)
            Case Else
                Date_Bascule_Réelle = Date_Bascule_Virtuelle
        End Select

        'Saisie de l'opération dans la feuille du mois suivant si après la date de report
                Select Case Saisie_Date
                    Case Is >= Date_Bascule_Réelle
                        Worksheets(ActiveSheet.Index + 1).Select
                        Fin = Application.CountA(Range("F:F")) + 1
                        MsgBox "Paiement reporté au mois prochain !"
                        Range("A" & Fin) = Format((DateSerial(Année, Mois + 2, 0)), "dd/mm/yy")
                                With Range("A" & Fin).AddComment
                                    .Visible = False
                                    .Comment.Text Saisie_Date
                                End With
                    Case Is < Date_Bascule_Réelle
                        Fin = Application.CountA(Range("F:F")) + 1
                        Range("A" & Fin) = Format((DateSerial(Année, Mois + 1, 0)), "dd/mm/yy")
                        Range("A" & Fin).AddComment.Visible = False
                        Range("A" & Fin).AddComment.Text Saisie_Date

                End Select
            Range("B" & Fin) = "C.B.Diff."

    End If

Envoie-nous ton fichier anonymisé et çà sera plus vite corrigé !

Je dois m'absenter, je me reconnecterai en fin d'après-midi pour poster mon fichier ...

Désolé, j'avais oublié ce topique ouvert ...

J'avais trouvé la solution moi-même : je devais simplement mettre ma variable entre parenthèses et la déclarer As String.

Merci quand même de m'avoir répondu ...