Macro double recherche

Bonjour à tous,

petite recherche du Dimanche:

J'ai trouvé, a force de recherche, deux macro :

Une qui me recherche dans une colonne une valeur donnée et se positionne dessus,

L'autre qui me recherche sur une ligne la date actuelle.


Ma demande:

Fusionner les deux: Quand je recherche une donnée, je veux que l'on se positionne sur la case qui croise et la valeur donnée, et la date actuelle.


Je vous ai joint un petit fichier qui possède es deux macros.


D'avance, merci de votre aide!


N.

Pièce jointe 275225Pièce jointe 275225

Bonjour

https://www.developpez.net/forums/d8...s-discussions/

Tiens un petit exemple à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For Each Cel In Range("B1:Z1") If Cel.Value = Date Then col = Cel.Column End If Next Cel For Each Cel In Range("A2:A33") If Cel.Value = Day(Date) Then lig = Cel.Row End If Next Cel Cells(lig, col).Select MsgBox "colonne" & col & " , " & "ligne" & lig

---