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

exene

XLDnaute Accro
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

@+
 

Fichiers joints

Dernière édition:

Modeste

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

Salut Pascal :)

Si j'ai compris, essaie quelque chose comme
Code:
    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

XLDnaute Accro
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

@+
 
Haut Bas