Passer une macro d'un fichier excel basique vers un formulaire VBA

Fermé

#jquem# Messages postés 74 Date d'inscription jeudi 23 mars 2017 Statut Membre Dernière intervention 1 décembre 2020 - 9 janv. 2020 à 11:47
danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 - 9 janv. 2020 à 13:10

Bonjour,
j'avais créé une macro pour déclencher un filtre via un bouton dans un fichier excel. Tout cela fonctionne très bien.

Sub FiltreData()
' FiltreData Macro
Range("ListeSource").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("'Tableau de Bord'!Criteria"), CopyToRange:=Range("A7:E7"), Unique:= _
False
Range("A2").Select
End Sub

Afin de sécuriser toutes les infos et rendre cet outil plus "pro", j'ai voulu faire un formulaire VBA et créer un bouton sur celui ci pour remplacer le premier.
J'ai donc inséré un commandButton dans le UserForm et essayé de copier le code ci-dessus dans un "Private Sub CommandButton1_Click()" et là…. rien ne marche.

J'imagine que les codes doivent être différents…

Quelqu'un peut-il m'aider ?

Merci par avance

A voir également:

Passer une macro d'un fichier excel basique vers un formulaire VBA
Fichier rar - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide
Liste déroulante excel - Guide
Fichier host - Guide

1 réponse

Réponse 1 / 1

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
9 janv. 2020 à 13:10

Bonjour,

Quel est le code de la macro ? Ca doit être :

Sub CommandButton1_Click()
' FiltreData Macro
Range("ListeSource").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("'Tableau de Bord'!Criteria"), CopyToRange:=Range("A7:E7"), Unique:= _
False
Range("A2").Select
End Sub

Cordialement.

Daniel

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Discussions similaires

Newsletters