Afficher la date du jour en fonction d'une liste déroulante

Bonjour

Voici le userform que j'ai créé :

j'ai commencé par intégrer la date du jour dans la textbox1 via le code

Private Sub userform_initialize()
    TextBox1.Value = Format(Now, "dd/mm/yyyy")
End Sub

J'ai paramétré la combobox de manière à afficher les variétés à semer ou planter.

• J'aimerais afficher la date du semi ou de la plantation dans mon tableau
• Les variétés se trouvent dans la plage A10 à A43.
• Les semis correspondent à la plage de cellules B10 à B43, les plantations à la plage D10 à D43

• Lorsque je coche semi et choisis Blettes (par ex), je voudrais afficher la date d'aujourd'hui dans la cellule B3.
• Lorsque je coche plantation et choisis aubergine, je voudrais afficher la date d’aujourd’hui dans la cellule D2

Je ne vois pas trop comment continuer.

Merci d'avance pour vos suggestions

DW

Bonjour

Tu devrais joindre ton fichier.

Bye !

Merci pour la réponse.

En fait je n'ai pas joint le fichier pour éviter un code tout fait. Je préfère chercher.

J'ai trouvé un début de code.

Dim variete As Range
Dim semi As Range

Dim ligne As Integer
Dim col As Integer

Set variete = Range("A10:A43").Find(ComboBox1.Text)
ligne = variete.Row                    'affiche le n° de ligne correspondant à la sélection de la variété

Set semi = Range("b10:b43").Find(CheckBox1.ControlSource)
col = semi.Column                    'affiche le n° de la colonne

Cells(ligne, col) = TextBox1.Value     'affiche la date du jour

Ça fonctionne comme je l'ai souhaité, même si je ne comprends pas bien le code ci-dessous :.

Set semi = Range("b10:b43").Find(CheckBox1.ControlSource)      'affiche CheckBox1.ControlSource = " "

Merci pour d'éventuelles explications

Je continue sur ma lancée pour la 2e case à cocher.

Je suppose qu'il faut utiliser if then dans ce code??