Bonjour,
Je fais appel à vous car je n'arrive pas à comparer deux dates.
J'ai une date du jour dans ma feuille 2 en cellule 01.
Dans ma feuille 1 j'ai un tableau avec des noms et des dates.
Je dois dire " si la date de la cellule w est plus petite que la date du jour alors ma cellule b12 de ma feuille 2 = a cellule b12 de ma feuille 2 + 1.
Cependant cela ne fonctionne pas !
Les cellules contenant des dates sont bien au format date avec le même format ...
Voici mon code :
Dim i As Long
i = 2
Do While Sheets("Feuille1").Cells(i, 1).Value <> ""
If Sheets("Feuille1").Cells(i, 7).Value <> "Fini" Or Sheets("Feuille1").Cells(i, 7).Value <> "Refusé" Then
If Sheets("Feuille1").Cells(i, 23).Value <> "" Then
If Sheets("Feuille1").Cells(i, 23).Value < Sheets("Feuille2").Range("o1").Value Then
Sheets("Feuille2").Range("B12").Value = Sheets("Feuille2").Range("b12").Value + 1
end if
end if
end if
i = i + 1
loop
Ps : Je ne peux pas joindre le fichier il contient uniquement des données confidentielles ...
Merci pour votre aide.
Je fais appel à vous car je n'arrive pas à comparer deux dates.
J'ai une date du jour dans ma feuille 2 en cellule 01.
Dans ma feuille 1 j'ai un tableau avec des noms et des dates.
Je dois dire " si la date de la cellule w est plus petite que la date du jour alors ma cellule b12 de ma feuille 2 = a cellule b12 de ma feuille 2 + 1.
Cependant cela ne fonctionne pas !
Les cellules contenant des dates sont bien au format date avec le même format ...
Voici mon code :
Dim i As Long
i = 2
Do While Sheets("Feuille1").Cells(i, 1).Value <> ""
If Sheets("Feuille1").Cells(i, 7).Value <> "Fini" Or Sheets("Feuille1").Cells(i, 7).Value <> "Refusé" Then
If Sheets("Feuille1").Cells(i, 23).Value <> "" Then
If Sheets("Feuille1").Cells(i, 23).Value < Sheets("Feuille2").Range("o1").Value Then
Sheets("Feuille2").Range("B12").Value = Sheets("Feuille2").Range("b12").Value + 1
end if
end if
end if
i = i + 1
loop
Ps : Je ne peux pas joindre le fichier il contient uniquement des données confidentielles ...
Merci pour votre aide.