Filtrage de données par vba

Résolu

nouhaaa1995 Messages postés 79 Statut Membre -
yg_be Messages postés 24281 Statut Contributeur - 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

Afficher la suite

A voir également:

Filtrage de données par vba
Fuite données maif - Guide
Supprimer les données de navigation - Guide
Trier des données excel - Guide
Sauvegarde des données - Guide
L'indice n'appartient pas à la sélection vba - Forum VB / VBA

1 réponse

Réponse 1 / 1

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584

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 79 Statut Membre

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 79 Statut Membre

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 24281 Statut Contributeur 1 584 > nouhaaa1995 Messages postés 79 Statut Membre

sur quelle ligne as-tu l'erreur?

yg_be Messages postés 24281 Statut Contributeur 1 584 > nouhaaa1995 Messages postés 79 Statut Membre

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 79 Statut Membre

j'ai erreur au niveau

 .sheets("capitaliser").Activate

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

Erreur la zone de données passée à un appel système est insu

Barre de données en pourcentage (maintenir 100% comme max)

je tombe sur le service de diffusion des donnees?que faire?

TNT base de donnees vide!!

Votre réponse

Discussions similaires