Insérer un commentaire sous double condition après saisie dans UserForm

[exene]

Bonjour,

Je ne sais pas comment afficher un commentaire dans une cellule d'un calendrier après une saisie dans un UserForm.
Je sélectionne une valeur dans le ComboBox1, un motif dans le ComboBox2, une date dans dans le TextBox1. J'aimerais que dans le calendrier s'affiche un commentaire avec le motif de la ComboBox2, à la date validée dans le textBox1 pour la valeur du ComboBox1.

Dans le fichier joint, le résultat escompté.

Merci

@+

 

[Modeste]

Re : Insérer un commentaire sous double condition après saisie dans UserForm

Salut Pascal

Si j'ai compris, essaie quelque chose comme

    With Sheets("Feuil1")
        lig = Application.Match(CLng(CDate(Me.TextBox1.Value)), .[A:A], 0)
        col = Application.Match(Me.ComboBox1.Value, .[A1:D1], 0)
        .Cells(lig, col).AddComment.Text Me.ComboBox2.Value
    End With

Dans le code de ton CommandButton1
Attention: j'ai considéré que c'était bien une date valide entrée dans le TextBox, que la même date existe en colonne A de ta Feuil1, qu'il n'y a pas déjà de commentaire dans la même cellule, etc.

 

[exene]

Re : Insérer un commentaire sous double condition après saisie dans UserForm

Bonjour Modeste, le forum,

J'espère que tu te porte bien.

J'ai essayé le code, il fonctionne a priori très bien. Je vais faire différents essais

Merci

@+