Selectionner lignes à partir d'un Userform

[domflo]

Bonsoir,

Je souhaite faire apparaitre dans une nouvelle feuille que les lignes d'un tableau de données à partir d'un choix effectué sur un boite de dialogue.
Le choix étant toutes les lignes ayant le ou les critères selectionné sachant que toutes mes lignes commencent par ce critère .

Par avance merci.
Dom

 

[soenda]

Re : Selectionner lignes à partir d'un Userform

Bonsoir le fil, Domflo

Vois en PJ, un essai avec filtres.

A plus

 

[domflo]

Re : Selectionner lignes à partir d'un Userform

Bonjour,

En effet j'aurai pu utiliser les filtres mais mon souhait est bien d'utiliser ma boite de dialogue pour créer une nouvelle feuille avec les critères choisis.

 

[Cousinhub]

Re : Selectionner lignes à partir d'un Userform

Bonsoir,

essaie avec ces codes :

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
Dim Fl1 As Worksheet, Fl2 As Worksheet
Dim Cbx As Control
Set Fl1 = Sheets("Feuil1")
Set Fl2 = Sheets("Feuil2")
Fl1.Range("A1:E" & Fl1.[A65000].End(xlUp).Row).Name = "base"
With Fl2
    .Cells.Clear
    .[H1] = Fl1.[A1]
    For Each Cbx In Me.Controls
        If TypeOf Cbx Is MSForms.CheckBox Then
            If Cbx Then Fl2.[H65000].End(xlUp)(2) = Right(Cbx.Caption, Len(Cbx.Caption) - 3)
        End If
    Next Cbx
    Fl1.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
        "H1:H" & .[H65000].End(xlUp).Row), CopyToRange:=.Range("A1"), Unique:=False
    .Columns(8).Clear
    .Select
End With
'Unload Me
End Sub

et dans le code du bouton :

Sub Bouton1_QuandClic()
UserForm1.Show 0
End Sub

Bonne soirée

 

[domflo]

Re : Selectionner lignes à partir d'un Userform

Bonjour,

C'est parfait ça marche nickel.

Merci beacoup.
Dom

 

[pilou010]

Re : Selectionner lignes à partir d'un Userform

Bonjour,

Serait'il possible d'avoir un exemple de ton fichier avec les codes proposés ?

Merci

 

[Cousinhub]

Re : Selectionner lignes à partir d'un Userform

Bonjour, Pilou010, et bienvenue

Dans le fichier joint, ce qu'avait demandé domflo

Par contre, l'extraction se fait en fonction des derniers chiffres des checkboxs...

Fort possible qu'il faille adapter, dans ton fichier, auquel cas, plutôt que de "squatter" un fil, ouvre un nouveau fil, avec s'il le faut, le fichier proposé...

Bonne journée, sous le soleil (non, je me moque, ici il ne fait que 28°....)

@ + à tous

 

[domflo]

Re : Selectionner lignes à partir d'un Userform

Bonsoir Pilou,

BHBH a répondu avant moi, le fichier te convient-il ?
Domflo