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

louks90

XLDnaute Nouveau
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!
 

Pièces jointes

  • Horaire 2022 2.xlsm
    176.3 KB · Affichages: 4
Solution
Bonjour LOUKS90,
Peut être avec cette petite macro
VB:
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

Lolote83

XLDnaute Barbatruc
Bonjour LOUKS90,
Peut être avec cette petite macro
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40