Rechercher une valeur dans une colonne en VBA

Bonjour à tous,

En fonction de la valeur de ma textbox nommée "DuM1"( c'est une date), qui se retrouve dans la colonne 53 de ma feuille "Data", je souhaite afficher dans ma textbox nommée "Dep", la valeur de la cellule 63 (BK) qui correspond à la même ligne que la valeur DuM1.

Le code ci-dessous doit effectuer cette recherche, mais n'affiche rien dans la textbox "Dep",

Dim Fe As Worksheet 'déclare la variable Fe (Onglet)

End If

Merci encore de votre aide

Titi32600

Bonjour,

Il serait bien de mettre ton code sous balise </> au lieu du bleu.

Un essai ...

Option Explicit

Private Sub CommandButton1_Click()
Dim Fe As Worksheet 'déclare la variable Fe (Onglet)
Dim Rch As Range 'déclare la variable Rch (Recherche)
Dim LI As Long 'déclare la variable LI (LIgne)
Dim DuM1 As Date
Dim Du As Date

Du = CDate(FicheSalaire.TextBox53)
DuM1 = CDate(DateAdd("m", -1, Du))

Set Fe = Worksheets("Data") 'Feuille de recherche
Set Rch = Fe.Columns(53).Find(What:=DuM1, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If Not Rch Is Nothing Then
LI = Rch.Row
Me.Dep.Value = Fe.Cells(LI, 63).Value 'inscrt dans la TextBox DEP la valeur de la cellule ligne LI colonne 63 (BK) de l'onglet Fe
End If
End Sub

ric

Bonjour Ric,

Merci encore de ton aide, cela me convient très bien

Titi32600