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.
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.