Extraire une ligne complète d'un tableau

Question

Bonjour, 

j'aimerai extraire la ligne en fonction du contenu d'une de ses cellules.

Quelle fonction dois-je utiliser?

Merci.

Answer 1

Essaie :

Sub test()
  Dim C As Range, Ligne As Long, Mois As Variant
  Mois = InputBox("Entrez le mois à chercher")
  If Mois = "" Then Exit Sub
  If Not IsNumeric(Mois) Then Exit Sub
  If CInt(Mois) < 1 Or CInt(Mois) > 12 Then Exit Sub
  Mois = CInt(Mois)
  Ligne = Cells(Rows.Count, 9).End(xlUp).Row
  If Ligne = 2 And Cells(2, 9) = "" Then Ligne = 1
  For Each C In Range("F2", Cells(Rows.Count, 6).End(xlUp))
    If Month(C) = Mois Then
      Ligne = Ligne + 1
      Cells(Ligne, 9).Resize(, 6).Value = Cells(C.Row, 1).Resize(, 6).Value
    End If
  Next C
End Sub

Daniel

Answer 2

Encore merci,

Il y a malgré tout un problème, le résultat se limite au mois de Janvier , 01.

Est-il possible de spécifier le mois à sélectionner et comment modifier la macro en ce sens?