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

A

alain

Guest

• 25 Mai 2003

• #2

Bonsoir,

Ci-joint fichier avec case à cocher.

@+

 

Pièces jointes

• Exemple1.xls

  23 KB · Affichages: 56
• Exemple1.xls

  23 KB · Affichages: 62
• Exemple1.xls

  23 KB · Affichages: 63

Vote positif 0 Vote négatif

O

olivier

Guest

• 25 Mai 2003

• #3

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

 

Vote positif 0 Vote négatif

O

olivier

Guest

• 25 Mai 2003

• #4

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 ?

 

Vote positif 0 Vote négatif

A

alain

Guest

• 25 Mai 2003

• #5

Rebonsoir,

Il faudrait Joindre le fichier.

Ce serait plus clair.

Je verrai ça demain.

@+

 

Vote positif 0 Vote négatif

O

olivier

Guest

• 26 Mai 2003

• #6

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

 

Pièces jointes

• text-xls.zip

  22.1 KB · Affichages: 33

Vote positif 0 Vote négatif

A

Alain

Guest

• 26 Mai 2003

• #7

Bonjour,


Il faut mettre :

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


Bonne journée.


@+

 

Vote positif 0 Vote négatif

O

olivier

Guest

• 26 Mai 2003

• #8

Impéccable... merci beaucoup
Cordialement
Olivier

 

Vote positif 0 Vote négatif