"erreur d'execution 91, variable objet ou variable de bloc with non définie"

[manuseverine]

bonjour à tous,

j'ai un dossier dans lequel j'ai le code suivant :

Private Sub CommandButton1_Click()
Dim Dpt As String
 
Dpt = InputBox("Entrez n° département") & "*"
With Sheets("Clients")
    With .Range("A2")
        .AutoFilter
        .AutoFilter Field:=5, Criteria1:=Dpt
     MsgBox Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count
    End With
  End With
End Sub

j'essaie en fait de faire un tri de mes clients par département mais quand je clique sur le bouton pour activer la recherche, il me demande bien de saisir un département mais quand je valide j'ai le message : "erreur d'execution 91, variable objet ou variable de bloc with non définie"
J'ai beau chercher dans l'aide je ne trouve pas.

Merci à ceux qui essaieront de m'aider.

 

[sousou]

Re : "erreur d'execution 91, variable objet ou variable de bloc with non définie"

Bonjour

feuil1 ce ne serait pas cela en trop??

 

[Dranreb]

Re : "erreur d'execution 91, variable objet ou variable de bloc with non définie"

Bonjour
Non, a mon avis SpecialCells(xlCellTypeVisible) ne renvoit rien ce qui ne définit pas de plage à quoi appliquer la méthode Cells
Décomposez
Dim SpClVis as Range
...
Set SpClVis = Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
If Not SpClVis Is Nothing Then etc.
À +

 

[manuseverine]

Re : "erreur d'execution 91, variable objet ou variable de bloc with non définie"

merci sousou mais je ne pense pas car si je l'enlève ça ne marche pas

 

[manuseverine]

Re : "erreur d'execution 91, variable objet ou variable de bloc with non définie"

ou là là, Dranreb là tu me parles en charabia, tu n'es pas débutant toi je pense, je ne comprends pas du tout

 

[Dranreb]

Re : "erreur d'execution 91, variable objet ou variable de bloc with non définie"

Mettez des espions sur toute les expressions de la ligne qui plante, peut être que vous comprendrez à force...
Vous n'avez pas joint de ficher mais je parie qu'à:
Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count il met le message,
Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells il met le message,
Feuil1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible) il met Nothing !