Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04
Dans une autre cellule, j'ai la date courante sous le même format 03-Mar-05
Ce que je veux faire c'est comparer les dates de la colonne à la date de ma
cellule en vba...
Ce que je veux faire c'est comparer les dates de la colonne à la date de ma cellule en vba...
Ca veut dire quoi "comparer" ? Obtenir quel type de résultat ?
AV
ChrisV
Bonjour Christophe,
Que doit renvoyer le résultat de la comparaison, selon quel critère...?
ChrisV
"Christophe B." a écrit dans le message de news:
Bonjour,
Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04 Dans une autre cellule, j'ai la date courante sous le même format 03-Mar-05 Ce que je veux faire c'est comparer les dates de la colonne à la date de ma cellule en vba...
QQ1 pourrati-il m'éclairer?
Merci,
Christophe.B
Bonjour Christophe,
Que doit renvoyer le résultat de la comparaison, selon quel critère...?
ChrisV
"Christophe B." <ChristopheB@discussions.microsoft.com> a écrit dans le
message de news: DEF6A4C3-4C02-46EA-BB4B-45E8DC66D78D@microsoft.com...
Bonjour,
Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04
Dans une autre cellule, j'ai la date courante sous le même format
03-Mar-05
Ce que je veux faire c'est comparer les dates de la colonne à la date de
ma
cellule en vba...
Que doit renvoyer le résultat de la comparaison, selon quel critère...?
ChrisV
"Christophe B." a écrit dans le message de news:
Bonjour,
Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04 Dans une autre cellule, j'ai la date courante sous le même format 03-Mar-05 Ce que je veux faire c'est comparer les dates de la colonne à la date de ma cellule en vba...
QQ1 pourrati-il m'éclairer?
Merci,
Christophe.B
MichDenis
Bonjour Christophe,
Essaie ceci :
Ce code suppose qu'excel est capable de reconnaître le format des dates de tes cellules.
'---------------------------- Sub ComparerDate()
Dim Rg As Range, RgCell As Range With Worksheets("Feuil1") Set Rg = .Range("B1:B5") 'Plage de comparaison Set RgCell = .Range("A1") 'Cellule à comparer End With
For Each C In Rg If C.Value2 = RgCell.Value2 Then MsgBox C.Address(0, 0) & " est égale à " & RgCell.Address(0, 0) End If Next Set Rg = Nothing: Set RgCell = Nothing End Sub '----------------------------
Salutations!
"Christophe B." a écrit dans le message de news:
Bonjour,
Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04 Dans une autre cellule, j'ai la date courante sous le même format 03-Mar-05 Ce que je veux faire c'est comparer les dates de la colonne à la date de ma cellule en vba...
QQ1 pourrati-il m'éclairer?
Merci,
Christophe.B
Bonjour Christophe,
Essaie ceci :
Ce code suppose qu'excel est capable de reconnaître le format des dates de tes cellules.
'----------------------------
Sub ComparerDate()
Dim Rg As Range, RgCell As Range
With Worksheets("Feuil1")
Set Rg = .Range("B1:B5") 'Plage de comparaison
Set RgCell = .Range("A1") 'Cellule à comparer
End With
For Each C In Rg
If C.Value2 = RgCell.Value2 Then
MsgBox C.Address(0, 0) & " est égale à " & RgCell.Address(0, 0)
End If
Next
Set Rg = Nothing: Set RgCell = Nothing
End Sub
'----------------------------
Salutations!
"Christophe B." <ChristopheB@discussions.microsoft.com> a écrit dans le message de news:
DEF6A4C3-4C02-46EA-BB4B-45E8DC66D78D@microsoft.com...
Bonjour,
Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04
Dans une autre cellule, j'ai la date courante sous le même format 03-Mar-05
Ce que je veux faire c'est comparer les dates de la colonne à la date de ma
cellule en vba...
Ce code suppose qu'excel est capable de reconnaître le format des dates de tes cellules.
'---------------------------- Sub ComparerDate()
Dim Rg As Range, RgCell As Range With Worksheets("Feuil1") Set Rg = .Range("B1:B5") 'Plage de comparaison Set RgCell = .Range("A1") 'Cellule à comparer End With
For Each C In Rg If C.Value2 = RgCell.Value2 Then MsgBox C.Address(0, 0) & " est égale à " & RgCell.Address(0, 0) End If Next Set Rg = Nothing: Set RgCell = Nothing End Sub '----------------------------
Salutations!
"Christophe B." a écrit dans le message de news:
Bonjour,
Dans une colonne 2 j'ai une liste de dates du type 03-Dec-04 Dans une autre cellule, j'ai la date courante sous le même format 03-Mar-05 Ce que je veux faire c'est comparer les dates de la colonne à la date de ma cellule en vba...
