Discussion :

[stargates]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stargates]

ok ,j'ai trouvé l'erreur

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci pour ton aide