Discussion :

[noelgigi]

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.

Test Recherche Today.xlsxTest Recherche Today.xlsx

[Nicolas JACQUIN]

Bonjour

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

Tiens un petit exemple à adapter

Code :

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

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