Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion manuseverine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

manuseverine

Guest
bonjour à tous,

j'ai un dossier dans lequel j'ai le code suivant :
Code:
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.
 
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.
À +
 
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
 
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
 
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 !
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

W
Réponses
0
Affichages
867
wasaru
W
R
Réponses
6
Affichages
1 K
P
Réponses
8
Affichages
1 K
Réponses
7
Affichages
2 K
A
Réponses
0
Affichages
695
A
A
  • Question Question
Réponses
0
Affichages
1 K
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…