Microsoft 365 Macro pour copier une valeur à côté d'un résultat de rechercheRépondre

[louks90]

Bonjour, je voudrais créer une macro qui recherche la cellule entre C129:C645 (liste de dates) qui contient la même date que celle présente en B5, une fois cette cellule trouvée, qu'elle me note à la même ligne en colonne D l'heure sous format hh:mm.

Pour présenter autrement je note une date en B5 et je voudrais qu'en cliquant sur mon bouton, elle me retrouve la même date dans ma liste et me note l'heure à la quelle j'ai appuyé en colonne D sur cette même ligne.

Est-ce que quelqu'un peut m'aider, je galère ...

Merci bien!

 

[Lolote83]

Bonjour LOUKS90,
Peut être avec cette petite macro

Sub Test()
    xDat = Range("B5")
    xPlage = Range("C129:C645").Address
    For Each xCell In Range(xPlage)
        xLig = xLig + 1
        If xCell = xDat Then
            Exit For
        End If
    Next xCell
    xLig = xLig + 128
    Range("D" & xLig) = Time
End Sub

En espérant avoir compris la consigne
@+ Lolote83