Utiliser la valeur d'une combobox dans une macro

Question

Bonsoir , je viens chercher de l'aide pour modifier cette macro qui me sert a copier les valeurs d'une ligne sur une autre feuille .

J'aimerais que la valeur de recherche soit prise a partir d'une combobox , non pas à partir d'une plage  définie en feuille 2 .

Dim C As Range, Plage As Range, X As Range, Ligne As Long, Sh As Worksheet

  Set Sh = Sheets("Feuil1")

  With Sheets("Feuil2")

    Set Plage = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))

  End With

  With Sheets("Feuil3")

    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row

    For Each C In Plage

      Set X = Sh.Range("A:A").Find(C.Value, , , xlWhole, xlByRows, xlPrevious)

        Ligne = Ligne + 1

        X.Resize(, 10).Copy .Cells(Ligne, 1)

      End If

    Next C

  End With

Merci.

Answer 1

Top çà marche !!!

Merci  Merci Merci

Answer 2

Merci , je vais tester ça.

Answer 3

Bonsoir,

Supprime la boucle et remplace C.Value par la valeur du combbobox :

Set X = Sh.Range("A:A").Find(ComboBox1.Value, , , xlWhole, xlByRows, xlPrevious)

Cordialement.

Daniel