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 -
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
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
-
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é -
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
