Discussion :

[joums]

Bonjour,

J'aimerai faire une macro qui recherche une date dans une liste (colonne). Si cette date existe alors action sinon rien.
Seulement cette date ne doit pas tenir compte de l'année

Merci de votre aide

[jfontaine]

as tu un exemple de fichier

[joums]

non pas encore je vais en créer un.
En fait j'ai des dates dans la colonne D et des commentaires colonnes C

Je fais une inputbox qui me demande de saisir une date

Si celle-ci est présente dans la colonne D,
=> alors faire un message box avec le commentaire inscrit en colonne C

Voici le code que j'ai commencé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim c As Range
Mavaleur = CDate(InputBox("Saisissez votre date"))
 
For Each c In Range("D3:D10")
If c.Value = Mavaleur Then
 
ActiveCell.Select
ActiveCell.Offset(0, -1).Select
 
.........
 
 
 
    'MsgBox "La cellule"
 
     End If

[jfontaine]

essais ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim dte As Date
Dim dteFeuille As Date
Dim i As Long
 
i = 1
 
dte = InputBox("Saisir une date", "Date")
 
 
Do While Not Range("D" & i).Value = ""
    dteFeuille = CDate(Range("D" & i).Value)
    If Day(dte) = Day(dteFeuille) And Month(dte) = Month(dteFeuille) Then
    MsgBox Range("C" & i).Value
 
    Exit Sub
    End If
    i = i + 1
Loop

[joums]

merci pour ta réponse

j'essaie de comprendre le code... pas facile
hélas ca ne marche pas (incompatibilité de donnée)
pour info la colonne D est en format date mais l'année ne doit pas être pris en compte
et la colonne C est du texte

[jfontaine]

Dans mon exemple la recherche commence a la ligne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i=1

dans ton cas il semble que les données commencent en ligne 3
Si la valeur de la cellule n'est pas une date tu auras une incompatibilité de donnée