Discussion :

[Lecachi]

Bonjour,
Lorsque que j’exécute la macro qui suit, elle fonctionne parfaitement.
Lorsque j'utilise ces mêmes lignes dans un formulaire (Fichier joint), elle se plante avec le message : Erreur d'execution "1004" la méthode autofilter de la classe range a échoué.
Dans le fichier joint CbxChoixCivilite correspond à une combobox.
Si quelqu'un trouve le problème, Merci par avance
Francis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub essai()
CbxChoixCivilite = "Monsieur"
Set F = Worksheets("Base")
 
    a = F.Range("A1:H" & F.Range("a1").End(xlDown).Row).Value
a = Worksheets("Base").Range("A1").AutoFilter( _
    Field:=2, _
    Criteria1:=CbxChoixCivilite, _
    VisibleDropDown:=True)
End sub