Microsoft 365 valider une valeur dans cellule

gothc · 20 Février 2021

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

VB:

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

Dranreb · 20 Février 2021

Bonsoir essayez simplement :

VB:

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

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

gothc · 20 Février 2021

Bonsoir Dranred merci ça fonctionne
bonne soirée

Staple1600 · 20 Février 2021

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

VB:

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 · 20 Février 2021

Staple1600 à dit:
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

VB:

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 · 20 Février 2021

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

VB:

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

Variante de la variante de la variante

Code:

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

Et pour finir

Code:

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

gothc · 20 Février 2021

Staple1600 à dit:
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 · 20 Février 2021

[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 · 20 Février 2021

Staple1600 à dit:
[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

Microsoft 365 valider une valeur dans cellule

gothc

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Discussions similaires