recherche valeur textbox sur une feuille du classeur

[bidochon34800]

bonjour,
J'ai un userform avec une date de début (dtpicker) qui alimente automatiquement une textbox (TB_fin) en lui donnant une valeur de + 7 jours.
Je voudrais que cette date de fin déclenche une recherche sur une feuille du classeur en vue d'alimenter une 3ème textbox (=TB_temps).
J'ai joint un résumé de mon fichier pour éclairer de ce que je cherche à faire.
'---
J'ai essayé :
Private Sub TB_fin_Change()
Dim o As Integer
Dim recherche As String
recherche = Me.TB_fin.Value
o = Sheets("mois").Cells.Find(What:=recherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
Me.TB_temps.Value = Range("B" & .Offset(0, 2).Value
End Sub
MAIS BIEN SUR CA ME MARCHE PAS !!!
merci d'avance de votre aide

 

[bof]

Bonsoir,
Voir ici
A+

 

[mapomme]

Bonjour bidochon,

Voir ce code:

Private Sub TB_fin_Change()
Dim recherche, plage As Range, xcell As Range
  Set plage = Worksheets("mois").UsedRange
  recherche = CDate(TB_fin): TB_temps = ""
  For Each xcell In plage
    If IsDate(xcell) Then
      If xcell.Value2 = recherche Then
        TB_temps = xcell.Offset(, 2): Exit Sub
  End If: End If: Next xcell
End Sub