Filtrage de données par vba

Résolu

nouhaaa1995 Messages postés 79 Statut Membre -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention - 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

1 réponse

Réponse 1 / 1
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588

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.
0
1. 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
  
  0
2. 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
  
  0
3. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > nouhaaa1995 Messages postés 79 Statut Membre
  
  sur quelle ligne as-tu l'erreur?
  
  0
4. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > 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
  
  0
5. nouhaaa1995 Messages postés 79 Statut Membre
  
  j'ai erreur au niveau
  .sheets("capitaliser").Activate
  
  0

Filtrage de données par vba

1 réponse

Discussions similaires

Newsletters