Probléme de comparison de date en VBA

alexandre13 200 Messages postés 22 Date d'inscription   Statut Membre -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

je cherche à comparer deux listes de date avec l'outil VBA

j'ai chercher à faire 2 tableaux pour ensuite les comparer mais lorsque j'exsécute l'erreur 9 apparait

donc je pense que sa vient de la déclaration des tableau ou de leur capacité mais je ne connait pas bien le format date de VBA

voici mon code

feuille 1

Private Sub CommandButton3_Click()
Dim dateA(10000) As Date
Dim dateB(10000) As Date
comparaison
End Sub

puis dans mon module

Sub comparaison()
'
Dim i As Integer
Dim j As Integer
Dim dateA() As Date
Dim dateB() As Date
'
For i = 1 To 12

dateA(i) = Cells(4 + i, 4).Value

For j = 1 To 12

dateB(i) = Cells(24 + i, 4).Value

If dateA(i) = dateB(i) Then
MsgBox ("les dates sont les même")
Else: MsgBox ("les dates sont pas les même")

End If
Next j
Next i

End Sub

merci d'avance à ceux qui répond
Configuration: Windows XP Internet Explorer 6.0

2 réponses

qmike Messages postés 1599 Date d'inscription   Statut Membre Dernière intervention   594
 
bonjour
En attendant une réponse que je dois encore testée
voici un moyen de comparer deux colonnes sans programmation
http://bvrve.club.fr/Astuces_Michel/179excel.php

bonne journeé
0
alexandre13 200 Messages postés 22 Date d'inscription   Statut Membre
 
ouais c'est coool mais je veux absolument que se soit avec un code vba
mais je te remercie pour ta réponce
0
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
 
Bonsoir,

en quelle ligne ton erreur ? Et tes dates sont bien des dates au format excel et non du texte ?
A tout hasard essaie avec dateB(i) = datevalue(Cells(24 + i, 4).Value )

Tu peux mettre ton fichier sur cijoint.fr et coller ici le lien fourni.
eric
0