problèmes variable Date

Bonjour,

J'essaie de récupérer la valeur (date)d'une cellule dans une variable
mais il me donne comme

erreur run time error 9:
subscript out of range

Code:

---

1 2 3 4 5

Private Sub chkEntree_Click() Dim Jdate As Date Jdate = Worksheets("Feuil5").Range("A4").Value End sub

---

une idée merci

Bonjour,

et que t'affiche ceci (sans rien ajouter d'autre) :

Code:

---

1 2 3

Private Sub chkEntree_Click() MsgBox Worksheets("Feuil5").Range("A4").Value & vbcrlf & IsDate( Worksheets("Feuil5").Range("A4").Value) End sub

---

L'affichage t'éclairera probablement ;)

ok ,j'ai trouvé l'erreur

il faut "mai" à la place de "Feuil5"

Code:

---

1 2 3 4

Private Sub chkEntree_Click() Dim Jdate As Date Jdate = Worksheets("mai").Range("A4").Text

---

merci pour ton aide