Trukiheal
Messages postés4Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 9 mars 2009
-
9 mars 2009 à 10:49
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
9 mars 2009 à 12:08
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 ;)
Trukiheal
Messages postés4Date d'inscriptionmardi 18 novembre 2008StatutMembreDernière intervention 9 mars 2009 9 mars 2009 à 12:03
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