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

SUPER!!!!

Le résultat est là .

Il faudrait que je me remette aux macros pour ne plus embêter les gens...

Encore un grand MERCI.

Cordialement,

Jean-Marie.

Answer 2

Avec cette disposition pour le tableau initial :

et celle-ci pour le tableau cible :

Essaie :

Sub test()
  Dim C As Range, Ligne As Long
  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) = Month(Date) And Year(C) = Year(Date) Then
      Ligne = Ligne + 1
      Cells(Ligne, 9).Resize(, 6).Value = Cells(C.Row, 1).Resize(, 6).Value
    End If
  Next C
End Sub

Les données sont ajoutées à chaque fois au tableau cible.

Daniel

Answer 3

Merci de prendre du temps pour moi.

ce que je cherche c’est récupérer la ligne complète d’un tableau, à stocker dans un autre tableau, quand une cellule correspond à ma recherche.

exemple: 

nom - adresse - n° tél fixe - n° tél portable - mail - date naissance

si la date de naissance contient le mois en cours, copier la ligne correspondante dans un autre tableau.

merci pour votre réponse.

Jean-Marie

Answer 4

Oups :

Sub test()
  Dim C As Range, Ligne As Long
  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) = Month(Date) 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 5

Bonjour,Que veux-tu dire par extraire ? Couper ? Supprimer ? Par macro ?

Daniel