Aller a la ligne recherchée

bonsoir,

J'ai un petit programme avec une base de données de 11500 noms.

quand je recherche un nom avec le bouton rechercher cela fonctionne très bien,

mais j'aimerais que le curseur aille se poser directement sur la ligne que j'ai trouvé

qui pourrai m’écrire le code en question et dans quelle cellule je dois le mettre

merci pour votre aide

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

à tester,

Private Sub btn_recherche_Click()
'*************************************'
If Not ComboBox1.Value = "" Then
  Dim no_ligne As Integer
  no_ligne = ComboBox1.ListIndex + 2
  With Sheets("Sources")
    txt_n°.Value = ComboBox1.ListIndex
    cb_nom.ListIndex = ComboBox1.ListIndex
    txt_naissance.Value = .Cells(no_ligne, 3).Value
    txt_décès.Value = .Cells(no_ligne, 4).Value
    cb_nom_conjoint.Value = .Cells(no_ligne, 5).Value
    cb_père.Value = .Cells(no_ligne, 6).Value
    cb_mère.Value = .Cells(no_ligne, 7).Value
    Application.Goto .Range("A" & no_ligne), Scroll:=True
  End With
Else
End If
End Sub

bonsoir,

Merci pour ce code, c'est exactement ce que je voulais.

bonne soirée

Lucky