Error Overflow sur worksheet

Dite moi si j'ai bien compris: Le .value2 me renvoie une donnee sous un format qui m'ai inconnu au debut car variable ( dans mon cas un string du fais de l'ecriture en DD-month-YYYY), La fonction DateValue me renvoit un variant (date), et accepte presque tous les formats d'entre qui ressemble de pres a une date.

Ainsi D1 et D2 sont des dates ou des longs selon le format choisit
Et la formule DateValue(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value2) me renvoie une date ( je suis vraiment pas sur de ca)
je peux ainsi les comparer a condition que mes D1 et D2 soient des dates ?

Faut juste être logique !

Soit comparer deux dates, soit deux entiers …

Pourquoi donc convertir le Range.Value2 en date si c'est pour comparer avec un entier ?!
Comme pourtant indiqué dans les posts #8 & 16 …

Je comprends le principe mais pour mon cas Range.Value2 ne me renvois pas un entier mais un string je pense que c'est dû a l'ecriture de ma date sous forme DD-month-YYYY où month est une chaine de caractere
Cordialement

Bonjour,
je vous joint un dossier excel exemple il vous permettra de mieux voir le format des differentes dates. La seul page que je peux modifier est la page 501 do not alter, je possede un page source qui est une copie conforme de la page do not alter dans mon classeur (ici non jointe pour cause de place). Les date entree dans ma userform sont sous le format dd/mm/yyyy
Cordialement

Citation:

---

Envoyé par adamgg

c'est dû a l'ecriture de ma date sous forme DD-month-YYYY où month est une chaine de caractere

---

Comme écrit clairement dans l'aide de cette propriété, Value2 renvoie donc un nombre si la cellule est au format Date …

Si c'est un format Texte et non une Date, utiliser une fonction de conversion en date et l'affecter à une variable Long …

En clair, vérifier le format de la cellule ‼

Merci beaucoup j'ai fini par comprendre comment fonctionne cette fonction ca marche nickel maintenant
Cordialement

Personnellement, je trouve CDate particulièrement efficace.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

D1 = CDate(UserForm1.TextBox1.Value) D2 = CDate(UserForm1.TextBox2.Value)     For Nolig = EndNolig To 3 Step -1   If IsDate(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value) Then Dtest = CDate(Worksheets("Do not Alter 501").Cells(Nolig, 2).Value)   If Dtest = D1 Then D1Lig = Nolig End If   If Dtest = D2 And compt = 0 Then D2Lig = Nolig compt = 1 End If   End If Next

---