XL 2013 option button

[marleauc]

Bonjour voici ma formule pour mon optionButton, j'aimerais lorsque je click que dans le TextBox 2 la date d'aujourd'hui s'inscrivent ce qui inscrira automatiquement le délais de 6 mois. La raison c'est que plusieurs de mes collègues de remplissent pas le texteBox2

merci de votre patience et surtout de vos connaissances



Private Sub OptionButton37_Click()
Dim Délai
If Me.TextBox2.Value = "" Then Exit Sub
' Délai 1 mois
Délai = 6
Me.Tfiltrage.Value = Format(DateAdd("m", Délai, Me.TextBox2))
End Sub

 

[phlaurent55]

Re : option button

Bonjour Marleauc,

Voir fichier joint pour imposer une date avec délai de 6 mois dans un textbox lors de l’ouverture de l'USF

à+
Philippe

 

[marleauc]

Re : option button

Bonjour phlaurent55
un gros merci cela fonctionne tres bien

merci bcp