comparer des dates

Victor21

XLDnaute Barbatruc

Supporter XLD

• 1 Mars 2011

• #2

Re : comparer des dates

Bonjour, Pat Rick

Résultat.Offset(0, 0).Value = CDate(Me!date1)
transférera la saisie sous format date.
Une simple mefc pourra alors colorer la cellule.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 1 Mars 2011

• #3

Re : comparer des dates

bonjour Patrick
il faut employer cdate(textbox1) pour une date et cdbl(texbox1) pour du numeric
ajout de code à adapter pour les textbox
fonction proper pour du texte
à bientôt

 

Pièces jointes

• Fichier_test.zip

  18.1 KB · Affichages: 34
• Fichier_test.zip

  18.1 KB · Affichages: 33
• Fichier_test.zip

  18.1 KB · Affichages: 32

Vote positif 0 Vote négatif

P

Pat rick

Guest

• 1 Mars 2011

• #4

Re : comparer des dates

Merci à tous pour la vitesse de vos solutions , une question pour Bebere adapter mes texbox ca veux dire leurs changer le nom ? et peux tu pour mon info m'expliquer en gros le Case Is < 48, Is > 57 merci bonne fin d' Ap

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 1 Mars 2011

• #5

Re : comparer des dates

Pat rick

Sub test()
For i = 48 To 57'codes ascii et la touche aide F1
MsgBox Chr(i)'donne 0 à 9
Next
End Sub
oui,changer le nom
à bientôt

 

Vote positif 0 Vote négatif

P

Pat rick

Guest

• 2 Mars 2011

• #6

Re : comparer des dates

Ouai! ouai! autant pour moi à la place de poser des questions bêtes... la touche F1... merci à Bebere et tous les autres

 

Vote positif 0 Vote négatif