Userform recherche ne fonctionne plus ???

Bonjour,

J'ai un problème (forcement sinon ça serait pas drôle...) dans l'userform du fichier ci-joint j'ai un cadre "recherche" lorsque que je sélectionne une ligne et que j'appui sur le bouton "loupe" a coté de ce combobox les informations de la ligne sélectionnée s'affichent dans les textbox correspondant...

Mon code fonctionné mais depuis un événement (lequel je sais pas...) ceci ne fonctionne plus...

j'ai beau chercher mais sans succés

Merci d'avance pour votre aide...

Bonjour,

Au début de ta macro Sub CommandButton1_Click(), tu n'indiques pas à partir de quelle feuille les données doivent être lues.

Le bouton de la feuille "Menu" garde le focus sur la feuille "Menu" ... d'où le souci.

Ajoute cette information et tout ira bien.

ric

parfait merci pour cette réponse rapide...

ric

Bonjour

voila une modife a voir

mettre un With et surtout un point devant Cells

Private Sub CommandButton1_Click()
Dim no_ligne As Long

    no_ligne = IDrecherche.ListIndex + 2
With Feuil2
    ID.Value = .Cells(no_ligne, 1).Value
    Designation.Value = .Cells(no_ligne, 2).Value
    Type_.Value = .Cells(no_ligne, 3).Value
    SN.Value = .Cells(no_ligne, 4).Value
    Marque.Value = .Cells(no_ligne, 5).Value
    Model.Value = .Cells(no_ligne, 6).Value
    Capacit?.Value = .Cells(no_ligne, 7).Value
    Attribution.Value = .Cells(no_ligne, 8).Value
    Sousattribution.Value = .Cells(no_ligne, 9).Value
    Dateentr?e.Value = .Cells(no_ligne, 10).Value
    Datederniere.Value = .Cells(no_ligne, 11).Value
    PV.Value = .Cells(no_ligne, 12).Value
    Periodicit?.Value = .Cells(no_ligne, 13).Value
    Procedure.Value = .Cells(no_ligne, 14).Value
    Dateprochaine.Value = .Cells(no_ligne, 15).Value
    Etat.Value = .Cells(no_ligne, 16).Value
    Statut.Value = .Cells(no_ligne, 17).Value
End With
End Sub

A+

Maurice