Filtrage de données par vba

Résolu/Fermé

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018 - Modifié le 7 mai 2018 à 19:49
yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 - 8 mai 2018 à 00:20

bonjour,
je sollicite votre aide,
J'ai un tableau à filtrer et j'aurais aimé savoir si avec VBA il était possible de faire un tri (donc avec criteria:="") mais par rapport à la valeur d'entrée (combobox) sur mon userform.
merci d'avance

A voir également:

Filtrage de données par vba
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Acquisition de données pci et contrôleur de traitement du signal ✓ - Forum Windows 10
Comment sauvegarder toutes les données de mon téléphone - Guide
Erreur 1004 vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
7 mai 2018 à 20:08

bonsoir, s'il s'agit d'Excel, je te suggère d'enregistrer une macro pendant que tu fais manuellement les actions que tu veux automatiser. tu pourras ensuite t'inspirer du code de cette macro pour adapter le code de ton userform.

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
7 mai 2018 à 20:16

j'ai essayé mais ca marche pas, car je veux qu'a partir de la valeur combobox, le filtrage s'affectue

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
7 mai 2018 à 20:18

voila le code, mais il me lance un erreur '' Erreur d'execution '9' : L'indice n'appartient pas à la sélection "


Private Sub CommandButton1_Click()
With ActiveWorkbook
.Sheets("capitalier").Activate

ActiveSheet.Cells.AutoFilter Field:=8, Criteria1:="combobox2.Value", Operator:=xlAnd

End With
End Sub

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471 > nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
7 mai 2018 à 20:51

sur quelle ligne as-tu l'erreur?

au lieu de:

With ActiveWorkbook
.Sheets("capitalier").Activate

ActiveSheet.Cells.AutoFilter Field:=8, Criteria1:="combobox2.Value", Operator:=xlAnd

il est préférable de faire ainsi:

dim sh as worksheet
set sh=ThisWorkbook.Sheets("capitalier")
sh.Cells.AutoFilter Field:=8, Criteria1:=combobox2.Value, Operator:=xlAnd

nouhaaa1995 Messages postés 72 Date d'inscription vendredi 13 avril 2018 Statut Membre Dernière intervention 4 octobre 2018
7 mai 2018 à 21:29

j'ai erreur au niveau

 .sheets("capitaliser").Activate

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Exemple de base de données access

Erreur d'exécution 13 Incompatibilité de type

VBA : Range avec références variables..

TNT base de donnees vide!!

Discussions similaires

Newsletters