activer une case à cocher en cas de non réponse à l'ouverture

[olivier]

bonsoir
grâce à Alain, j'ai récupéré cette procédure:

Sub auto_open()
Dim Date_Entree As Date
Date_Entree = InputBox("Entrez la date du dernier jour travaillé", , Format(Now(), "dd/mm/yy"), vbOK)
Range("A1") = Date_Entree

Date_Entree = InputBox("Entrez la date de reprise du travail", , Format(Now(), "dd/mm/yy"), vbOK)
Range("A2") = Date_Entree

End Sub

mais je souhaiterais savoir si ( par miracle ) en ne répondant pas à la deuxième requête "Entrez la date de reprise du travail" est-il possible de cocher une case à cocher présente sur le document ( case à cocher: le travail n'a pas été repris... )

? Merci d'avance et à bientôt

Cordialement
Olivier
Super débutant macOs XL2001

 

[alain]

Bonsoir,

Ci-joint fichier avec case à cocher.

@+

 

[olivier]

Merci beaucoup Alain, j'ai compris la manip... juste une chose: si je ne saisis pas la deuxième information pour activer la case à cocher ( date de reprise ) le champ de la cellule est quand même renseigné par 12:00:00 am

Il y a t il un moyen d'éviter cà ?

Cordialement

Olivier

 

[olivier]

En fait j'ai mal formulé le problème:

Si j'indique une date de reprise du travail ( le deuxième champ ), la mise en forme n'est pas respectée

Sub auto_open()
Dim Date_Entree As Date
Date_Entree = InputBox("Entrez la date du dernier jour travaillé", , Format(Now(), "dd/mm/yy"), vbOK)
Range("E24") = Date_Entree

rep = InputBox("Entrez la date de reprise du travail", , Format(Now(), "dd/mm/yy"), vbOKCancel)
If rep = "" Then
Range("'...'!$A$34") = 2
Range("f25").ClearContents

Else
Range("'...'!$A$34") = 0
Date_Entree = Val(rep)
Range("f25") = Date_Entree
End If


End Sub

A la place de la date ( du jour ) j'ai -12/8/1907 12:00:00 AM

Auriez-vous une idée ?

 

[alain]

Rebonsoir,

Il faudrait Joindre le fichier.

Ce serait plus clair.

Je verrai ça demain.

@+

 

[olivier]

bonjour,
voici le fichier en pièce-jointe
cordialement
olivier

 

[Alain]

Bonjour,


Il faut mettre :

Date_Entree=rep au lieu de Date_Entree=Val(rep)


Bonne journée.


@+

 

[olivier]

Impéccable... merci beaucoup
Cordialement
Olivier