Extraction partie tableau

Bonjour à tous,

J'ai une base de donnée sur une feuille Excel et j'ai besoin d'extraire dans une nouvelle feuille toutes les lignes répondant à un critère. Comment faire cela automatiquement ?

Merci pour vos retours

VV

Bonjour et bienvenu,

As-tu déjà exploité la possibilité de Filtre élaboré(cf menu Données/Filtrer/Filtre élaboré) ?

Bonjour VV, Raja et le forum.

Voici un bout de code que tu peux adapter a ta convenance.

Private Sub CommandButton1_Click()
Dim vValeur As Single
Dim vCellule As Object
Dim vSelection As String
vValeur = Val(InputBox("Valeur à sélectionner"))
Selection.CurrentRegion.Select
For Each vCellule In Selection
    If vCellule.Value = vValeur Then vSelection = vSelection & vCellule.Address & ","
Next
    If Len(vSelection) > 0 Then
    Range(Left(vSelection, Len(vSelection) - 1)).Select
    Selection.EntireRow.Copy
    Workbooks.Add
    Sheets(Feuil1).Paste
 End If
End Sub

Tu n'as qu'à créé un bouton sur ta page (ou l'adapter autrement).

Sélectionne sur ta feuille la zone a traiter (la griser) puis clic sur ton bouton.

un inputbox apparait, tu entre la valeur a chercher.

Il sélectionna tous les lignes entière ou il trouve la valeur rechercher et

Les copie dans un nouveau classeur.

Voila, en espérant avoir compris ta demande.

Peri