Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Erreur d'exécution '1004'

Erreur d'exécution '1004'

3 réponses
Avatar
Vincent
Bonjour
j'essaie de faire fonctionner ceci
mais cela plante systématiquement.
Il s'agit d'un combobox sur un userform qui devrait trier une feuille,
je n'arrive pas à savoir pourquoi
Merci de votre aide
Vincent

Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
Range("A1:B300").Select
Selection.AutoFilter Field:=1, Criteria1:=Mavariable
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Il s'agit d'un combobox sur un userform qui devrait trier une feuille,
En fait ici tu ne tries pas, tu filtres !

je n'arrive pas à savoir pourquoi
Je pense qu'en précisant simplement le nom de ta feuille et en ne

renseignant que la 1ère cellule ça devrait fonctionner.
Donc avec quelque chose comme ça :
Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
Worksheets("Feuil1").Range("a1").AutoFilter Field:=1, Criteria1:=Mavariable
End Sub

Cordialement
Pascal

"Vincent" a écrit dans le message de
news: %
Bonjour
j'essaie de faire fonctionner ceci
mais cela plante systématiquement.
Il s'agit d'un combobox sur un userform qui devrait trier une feuille,
je n'arrive pas à savoir pourquoi
Merci de votre aide
Vincent

Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
Range("A1:B300").Select
Selection.AutoFilter Field:=1, Criteria1:=Mavariable
End Sub




Avatar
MichDenis
Bonjour Vincent,

Si la feuille est protégée, c'est le type d'erreur que tu obtiens : error 1004

au lieu d'utiliser "Select" pourquoi ne pas utiliser ceci :
Adapte le nom de la feuille.!

'---------------------------
Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
With Worksheets("Feuil1")
With .Range("A1:B300")
.AutoFilter Field:=1, Criteria1:=Mavariable
end with
end with
End Sub
'---------------------------


Salutations!



"Vincent" a écrit dans le message de news: %
Bonjour
j'essaie de faire fonctionner ceci
mais cela plante systématiquement.
Il s'agit d'un combobox sur un userform qui devrait trier une feuille,
je n'arrive pas à savoir pourquoi
Merci de votre aide
Vincent

Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
Range("A1:B300").Select
Selection.AutoFilter Field:=1, Criteria1:=Mavariable
End Sub
Avatar
Vincent
Merci beaucoup à vous 2
Vincent

"MichDenis" a écrit dans le message de news:

Bonjour Vincent,

Si la feuille est protégée, c'est le type d'erreur que tu obtiens : error
1004

au lieu d'utiliser "Select" pourquoi ne pas utiliser ceci :
Adapte le nom de la feuille.!

'---------------------------
Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
With Worksheets("Feuil1")
With .Range("A1:B300")
.AutoFilter Field:=1, Criteria1:=Mavariable
end with
end with
End Sub
'---------------------------


Salutations!



"Vincent" a écrit dans le message de
news: %
Bonjour
j'essaie de faire fonctionner ceci
mais cela plante systématiquement.
Il s'agit d'un combobox sur un userform qui devrait trier une feuille,
je n'arrive pas à savoir pourquoi
Merci de votre aide
Vincent

Private Sub ComboBox1_Change()
Mavariable = ComboBox1.Value
Range("A1:B300").Select
Selection.AutoFilter Field:=1, Criteria1:=Mavariable
End Sub