comparer des dates

[Pat rick]

Bonjour à tous
J'ai un problème pour comparer des dates qui arrivent sur un fichier Excel depuis un userfom.
J'aimerais que quand la date de la ligne est plus élevée que celle de la ligne précédente la cellule et la police changent de couleur. J'ai fait un bout de code...il fonctionne mais… au passage du mois cela ne fonctionne plus (sûrement à cause du format texte) Est il possible avec un autre code de comparer une fois les jours ensuite les mois et les années
J'utilise win 2003 et 2007

Merci d'avance pour votre aide...

 

[Victor21]

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.

 

[Bebere]

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

 

[Pat rick]

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

 

[Bebere]

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

 

[Pat rick]

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