recherche valeur textbox sur une feuille du classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bidochon34800

XLDnaute Junior
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
 

Pièces jointes

Bonjour bidochon,

Voir ce code:
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
860
Retour