XL 2010 Résolu par la communauté bienveillante : atteindre la première cellule = à aujourd'hui

[Usine à gaz]

Bonsoir à toutes et à tous,

Nouveau souci dans mon fichier.
Me re-voilou faisant appel à votre bienveillance 🙂

Le souci
je dois appeler des clients à des dates programmées (col Y)
Mon besoin est d'atteindre avec un code en Module Standard :
1 - la première cellule égale à aujourd'hui

J'ai bien sûr fait des recherches sur le forum et chez google.
Je n'ai pas trouvé.
J'ai tenté (find) mais je n'y arrive pas.

Dans l'espoir que vous pourrez m'aider, je joins un fichier test.
Je vous remercie déjà de m'avoir lu.
Amicalement,
Lionel,

 

[Lone-wolf]

Bonjour Lionel 🙂

arthour à dit: atteindre la première cellule

Tu est en taule ou quoi??? 😱😀

 

[Usine à gaz]

Bonjour Lone,
Lol Lone,
je ne vous l'avais pas dit ..... vous n'aideriez peut-être pas un taulard ..... 🙄

 

[Chris24]

Bonsoir arthour973, Lone-wolf

Un essai en fichier joint avec Find

Bonne soirée

Edit: j'ai oublié le fichier

 

[Usine à gaz]

Bonsoir Chris,
Merci de m'avoir répondu mais je ne vois pas le fichier 🙂
c'est bon, il est là 😉

 

[JCGL]

Bonjour à tous,
Salut aux amis,

Peux-tu essayer :

Sub CeJour()
Application.Goto [Y:Y].Find(Date, , , 1)(1, 2)
End Sub

Et avec un lien HyperTexte

A+ à tous

 

[Usine à gaz]

Re Chris,

Super bien sûr, ça marche et j'y comprends rien Grrrrr !!!!
Je vais tenter de comprendre.
merci Chris pour cette solution qui va bcp m'aider dans mon boulot 🙂
Amicalement,
Lionel,

 

[Lone-wolf]

Bonsoir Jean-Claude et bonne année 🙂

Sub Atteindre()
Dim rw As Integer
    With Feuil1
        rw = Application.Match(CLng(Date), .Range("Y4:Y803"), 0)
        Application.Goto .Range("Y" & rw + 3)
        MsgBox "Vous avez atteint la date du " & .Range("Y" & rw + 3).Value, , "DATE ATTEINTE"
    End With
End Sub

 

[Usine à gaz]

Bonjour à tous,

Peux-tu essayer :

Sub CeJour()
Application.Goto [Y:Y].Find(Date, , , 1)(1, 2)
End Sub

Et avec un lien HyperTexte

A+ à tous

Bonsoir JCGL,

Bon sang, ça marche aussi et je n'y comprends toujours rien Grrrrr !!!
Je vais plancher pour comprendre (peut-être 😕)
Un grand merci 🙂
Du coup, je ne sais plus que choisir LOL
Amicalement,
Lionel,

 

[Usine à gaz]

Bonsoir Jean-Claude et bonne année 🙂

Sub Atteindre()
Dim rw As Integer
    With Feuil1
        rw = Application.Match(CLng(Date), .Range("Y4:Y803"), 0)
        Application.Goto .Range("Y" & rw + 3)
        MsgBox "Vous avez atteint la date du " & .Range("Y" & rw + 3).Value, , "DATE ATTEINTE"
    End With
End Sub

Re Lone,

Ta solution fonctionne aussi super bien.
je n'aurai pas assez de place dans le titre pour citer les "Résolveurs" LOL 😕
Du coup de du coup ..... je suis comme "une femme comblée" LOL
Un grand merci toi 🙂
Amicalement,
Lionel,

 

[Kim75]

Bonsoir à tous 🙂

Une autre possibilité :

Option Explicit
Sub FindToday()
Dim c As Range, rng As Range, madate
Set rng = Sheets("Feuil1").Range("Y4:Y" & Sheets("Feuil1").[Y65000].End(xlUp).Row)
For Each c In rng
  madate = Int(CDbl(c))
  If c = Date Then
  c.Interior.Color = &HFF&
  End If
Next c
End Sub

Cordialement, Kim.

 

[Usine à gaz]

Bonsoir Kim,
Merci de m'avoir répondu.
j'ai testé mais ça ne semble pas fonctionner.
J'ai essayé avec mes petites connaissances sans trouver pkoi.
Amicalement,
Lionel,

 

[Kim75]

Hello Arthour,

Si si le fichier joint a bien fonctionné chez moi, enfin si j'ai bien compris 🙂
J'ai juste mis la couleur rouge sur les cellules contenant la date en question
Mets de côté le tien (trop formaté) et essaye celui que j'ai téléchargé

Cordialement, Kim.

 

[Usine à gaz]

C'est ce que j'ai fait.
Effectivement, le formatage fonctionne bien et ça me sera très utile.
mais mon souci premier est d'atteindre la première cellule qui contient la date qui correspond à aujourd'hui.
Amicalement,
Lionel,

 

[Kim75]

Ah d'accord, ce qui pose problème c'est le format de date en français
Essaye et tu verras, mets par exemple une macro avec : Range("B1") = Format(Date, "ddd dd mm yy")
ça ajoute un point après le diminutif du jour, alors que tes dates sont sans point, tu dois donc peut être opter pour un autre formatage des dates afin qu'elle soient reconnues par la fonction find