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 23350 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 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
Reinstaller windows sans perte de données - Guide
Effacer les données de navigation - Guide
La zone de données passée à un appel système est insuffisante - Windows 11
Comment sauvegarder toutes les données de mon téléphone - Guide
Liste de données excel - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 23350 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 2024 Ambassadeur 1 554
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 23350 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 novembre 2024 1 554 > 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

Erreur d'exécution 13 Incompatibilité de type

Exemple de base de données access

Nettoyer une base de données avec une liste

TNT base de donnees vide!!