Problème de date

Signaler
Messages postés
4
Date d'inscription
mardi 18 novembre 2008
Statut
Membre
Dernière intervention
9 mars 2009
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Tout d'abord bonjour à tous,
je me tourne vers vous parce que j'ai un problème oh combien mysterieux.
Dans une boucle je compare une date saisie à plusieurs dates sur une feuille.

Private Sub CommandButton2_Click()
Dim i As Integer
Dim j As Integer




 j = 8
 For i = 3 To 33
Sheets(Cells(10, 3).Value).Select
 If Cells(j, i).Value >= Sheets("chargement").Cells(10, 7).Value And Cells(j, i).Value <= Sheets("chargement").Cells(10, 9).Value Then
 Cells(j - 1, i).Value = Sheets("chargement").Cells(12, 6).Value
 End If
 j = j + Cells(1, 3).Value + 4
 Next i

 
End Sub



Voyant que la boucle ne considérait jamais la condition  comme vrai j'ai cherché les valeurs des cellules en déboggeur et   à :  ?cells(8,3).value qui devrait retourner 01/01/2009 il me répond par un blanc. Et c'est la même chose quand j'interroge toutes les cellules remplies avec une date.
Je ne pige pas trop, value ne fonctionne pas avec les dates?
Si quelqu'un sait d'ou peut venir mon problème ça serait sympa.
Merci d'avance ;)

3 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
essaies avec .Text et CDATE :

?CDate(cells(8,3).Text)
Messages postés
4
Date d'inscription
mardi 18 novembre 2008
Statut
Membre
Dernière intervention
9 mars 2009

Ca ne fonctionne pas...
Mais je commence à me demander si c'est pas vba qui foire...
Plus loin dans le code si j'intérroge
?sheets("module").cells(10,3).value
Janvier
?cells(12,4).value
Janvier
?sheets("chargement").cells(10,3).value=Cells(12,4).value
Faux

je pige plus rien...
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
dépend du formatage, des eventuels espaces en rabe, etc....