Extraction partie tableau

[VV]

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

[Raja]

Bonjour et bienvenu,

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

[Perigord]

Bonjour VV, Raja et le forum.

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

Code: Tout sélectionner

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