erreur 424 sur filtre(résolu)

[marleauc]

bonjour, j'ai bien essayé de comprendre mais je n'y arrive pas , est-ce qu'il me manque n Next c
merci de me guider
christian

 

[laurent950]

Bonsoir

'*****************************************************************
' Procédure permettant d'afficher de filtrer cmc sélectionné
' dans la listview
'*****************************************************************
Sub Cmbfi()
Dim f As Worksheet
Dim Lr As Long
Set f = ThisWorkbook.Sheets("Base ")
'Lr = f.Range("A" & Row.Count).End(xlUp).Row
    Lr = f.Cells(65536, 1).End(xlUp).Row
'    For Each c In f.Range("D2:D" & Lr)
' ici deux fois la même colonne dans deux ComboBox différente
'        Me.Cmddebut.AddItem c 
'        Me.Cmdretour.AddItem c ' avec    c cela se remplis pas comme cela (passage en objet seulement)
'    Next c
'    For Each c In f.Range("H2:H" & Lr)
'        Me.Cmd1.AddItem c
'    Next c
'   For Each c In f.Range("B2:B" & Lr)
'        Me.Cmd2.AddItem c
'    Next c
    Me.Cmddebut.List = f.Range(f.Cells(2, 4), f.Cells(Lr, 4)).Value
    ' Ici a vérifier cette combox = Cmdretour colonne 4 déjà remplis en doublon dans votre code (Me.Cmddebut.AddItem c)
    'Me.Cmdretour.List = f.Range(f.Cells(2, 6), f.Cells(Lr, 6)).Value
    Me.Cmd1.List = f.Range(f.Cells(2, 8), f.Cells(Lr, 8)).Value
    Me.Cmd2.List = f.Range(f.Cells(2, 2), f.Cells(Lr, 2)).Value
Set f = Nothing
Lr = Empty
End Sub

 

[youky(BJ)]

Bonsoir tous,
Dans le combo de retour en propriété supprimer le r0wsource=mois
ensuite row prends un s pour Rows.count
Lr = f.Range("A" & Rows.Count).End(xlUp).Row
Pas étudié la macro de Laurent mais à 1ere vue est parfaite
Bruno

 

[marleauc]

bonjour,
un gros merci je constate mes erreurs , dois-je avoir un bouton pour lancer la procédure ou le filtre peut s'effectuer d'elle même.

dois-je inscrire
Sub cmdebut_click
call
End sub

 

[youky(BJ)]

Voici en retour ton fichier
Pas facile à expliquer car il y a pas mal d'ajout
en Actualisation j'ai mis if Rows(i).hidden=false et end if
Un filtre qu'il ne faut pas enlever en Feuil1
Pas fait filtre par mois
Voir avec l'enregistreur de macro
Bruno

 

[marleauc]

Bon matin (du Québec)
Un gros merci pour votre disponibilité
bonne semaine

 

[marleauc]

Re-Bonjour
premièrement encore merci le filtre fonctionne très bien j'ai également pris connaissance du code auto filtre , par contre maintenant a la fermeture de l'userform (unload me) affiche un erreur (erreur compilation- argument facultatif !?par contre fermeture avec la croix (haut gauche ) par d'erreur.
christian

 

[marleauc]

Résolu désole j'ai remarqué qu'il y avait un . avant le me
merci encore