Microsoft 365 valider une valeur dans cellule

[gothc]

Bonsoir le forum
j'ai un problème de validation de cellule avec un checkbox case à cocher
j'ai bien la date aujourd'hui dans u3 mais non validé je suis obligé de me placer dans la barre de formule + enter
merci de votre aide

If CheckBox2.Value = True Then
   Worksheets("Feuil1").Range("u3") = Format(Now, "dd/mm/yyyy")

 

[Dranreb]

Bonsoir essayez simplement :

If CheckBox2.Value Then Worksheets("Feuil1").Range("U3") = Date

Veillez à ce que votre U3 ne porte pas un format Texte.

 

[gothc]

Bonsoir Dranred merci ça fonctionne
bonne soirée

 

[Staple1600]

Bonjour le fil, gothc, Dranreb

Une variante
(test OK sur mon PC)
La checkbox est sur la feuille
Et ci-dessous VBA dans le code de la feuille

Private Sub CheckBox2_Click()
[U3] = Application.Rept(Date, CheckBox2 = True)
End Sub

Si le checkbox est cochée la date s'inscrit en U3
si décochée, plus de date en U3

 

[gothc]

Bonjour le fil, gothc, Dranreb

Une variante
(test OK sur mon PC)
La checkbox est sur la feuille
Et ci-dessous VBA dans le code de la feuille

Private Sub CheckBox2_Click()
[U3] = Application.Rept(Date, CheckBox2 = True)
End Sub

Si le checkbox est cochée la date s'inscrit en U3
si décochée, plus de date en U3

Merci à vous pour l'info

 

[Staple1600]

Re

C'est plus qu'une info.
Il y avait un petit bonus en plus
Car avec le If .. Then, si on décoche la case à cocher, la date reste en U3
Avec la syntaxe Application.Rept, si on décoche la checkbox, la date n'apparait plus en U3.

Variante de la variante

Private Sub CheckBox2_Click()
[U3] = IIf(CheckBox2, Date, vbNullString)
End Sub

Variante de la variante de la variante

Private Sub CheckBox2_Click()
[U3] = Switch(CheckBox2 = -1, Date, CheckBox2 = 0, "")
End Sub

Et pour finir

Private Sub CheckBox2_Click()
[U3] = Choose((2 + CheckBox2), Date, "")
End Sub

 

[gothc]

Re

C'est plus qu'une info.
Il y avait un petit bonus en plus
Car avec le If .. Then, si on décoche la case à cocher, la date reste en U3
Avec la syntaxe Application.Rept, si on décoche la checkbox, la date n'apparait plus en U3.

Merci

 

[Staple1600]

[Pour infos]
J'ai ajouté d'autres syntaxes possibles dans l'édition du message#6.
(Juste par curiosité "VBAistique")
(Je crois que j'ai fait le tour)

 

[gothc]

[Pour infos]
J'ai ajouté d'autres syntaxes possibles dans l'édition du message#6.
(Juste par curiosité "VBAistique")
(Je crois que j'ai fait le tour)

oui Bonne journée a toi
Merci pour ton aide