Macro VBA sur Excel, need help...

Résolu

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention -
morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention - 26 juin 2009 à 14:49

Bonjour,

Je souhaite trier des données dans un tableau Excel sur une seule colonne.
Cette colonne s’intitule « Domaine » et affiche 32 noms de domaines différents.
J’aimerais proposer un programme qui puisse demander à l’utilisateur s’il veut que la colonne soit triée selon un nom de domaine spécifique (que les autres noms de domaines ne s’affichent pas) ; que, si l’utilisateur répond « non » le programme se ferme et le tableau ne change pas ; que, si l’utilisateur répond « oui », le programme l’invite à entrer un nom de domaine (parmi une liste des 32 domaines existants).
J’ai une petite idée mais j’ai besoin d’aide :

Sub Tri_domaines

Dim Domaine As String

Domaine = InputBox (« Souhaitez-vous voir un domaine précis s’afficher ? »)
If Domaine = « Non »
Then (fermeture de la fenêtre)
If Domaine = « Oui »
Then InputBox (« Entrez le nom du domaine que vous souhaitez voir s’afficher »)
…
…
…
…

End If
End Sub

En fait je suis bloqué à partir de là, j’ai mes 32 domaines et par exemple je voudrais que si l’utilisateur tape le domaine existant « Agriculture », il n’y ait plus que les données de ce domaine présent dans le tableau. Faudrait-il que j’enregistre une macro avec un filtre automatique ou élaboré des données au préalable ?

Si vous avez une autre solution ou un moyen plus simple pour parvenir à mon résultat, n’hésitez pas !

Merci.

Afficher la suite

A voir également:

Macro VBA sur Excel, need help...
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Comment trier par ordre alphabétique sur excel - Guide
Comment calculer la moyenne sur excel - Guide

21 réponses

Réponse 1 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Agriculture"

Réponse 2 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Ok merci, donc je dois faire ça pour chacun des 32 domaines?
Pourrais tu m'indiquer comment faire en sorte que le programme ferme la fenêtre si l'utilisateur répond non (cf. plus haut)?

Réponse 3 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

J'ai l'impression que tu n'as jamais programmé. Je me trompe ?

Réponse 4 / 21

xav3601 Messages postés 3289 Date d'inscription Statut Membre Dernière intervention 311

Sinon tu utilise la fonction filtrer de Excel qui est pas mal pour ce que tu veux faire ^^

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

En fait tu ne te trompes qu'à moitié yg_be parce que j'ai seulement suivi quelques cours de programmation pour des macros basiques.. désolé, si tu ne veux pas perdre ton temps à m'expliquer, laisse tomber

Réponse 6 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

essaie ainsi :

option explicit
Sub Tri_domaines

Dim Domaine As String
dim queldomaine as string

Domaine = InputBox (« Souhaitez-vous voir un domaine précis s’afficher ? »)
If Domaine = « Non »
Then
(fermeture de la fenêtre)
else
queldomaine = InputBox (« Entrez le nom du domaine que vous souhaitez voir s’afficher »)
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=queldomaine

End If
End Sub

Réponse 7 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Merci de ta réponse; j'ai recopié le code et il y a un problème de syntaxe; au niveau du "Then" "erreur de compilation, attendu : numéro de ligne ou étiquette ou instruction ou fin d'instruction" s'affiche.

Réponse 8 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

option explicit
Sub Tri_domaines

Dim Domaine As String
dim queldomaine as string

Domaine = InputBox (« Souhaitez-vous voir un domaine précis s’afficher ? »)
If Domaine = « Non » Then
' (fermeture de la fenêtre)
else
queldomaine = InputBox (« Entrez le nom du domaine que vous souhaitez voir s’afficher »)
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=queldomaine

End If
End Sub

Réponse 9 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Ok, maintenant ' (fermeture de la fenêtre)
s'affiche en vert, mais :
Domaine = InputBox (« Souhaitez-vous voir un domaine précis s’afficher ? »)
If Domaine = « Non » Then

et

queldomaine = InputBox (« Entrez le nom du domaine que vous souhaitez voir s’afficher »)

s'affichent en rouge ("erreur de syntaxe")

Réponse 10 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Non en fait c'est bon ça marche, c'était à cause des guillemets!
Merci!!!

Réponse 11 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Bon en fait le programme ne fonctionne pas jusqu'au bout, mais je pense savoir pourquoi :
mon tableau Excel est en fait un glossaire, la colonne domaine se situe colonne E ligne 5, il faut sans doute que le programme cherche uniquement dans cette colonne, mais là encore je ne sais pas..........

Réponse 12 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

Change le 1 en 5 dans la ligne suivante, c'est le numéro de la colonne à filtrer.
Selection.AutoFilter Field:=1, Criteria1:=queldomaine

Réponse 13 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

ça a marché, cool merci.
J'aimerais aussi que mon programme s'affiche directement à l'ouverture d'Excel (l'utilisateur doit pouvoir choisir s'il veut que tous les domaines s'affichent --> "non" ou s'il veut consulter un domaine particulier --> "oui")
Pour cela j'ai mis : Sub auto_open() comme titre

Dim Domaine As String
Dim queldomaine As String

Domaine = InputBox("Souhaitez-vous voir un domaine précis s’afficher ?")
If Domaine = "Oui" Then
queldomaine = InputBox("Entrez le nom du domaine que vous souhaitez voir s’afficher")
Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=queldomaine
ElseIf Domaine = "oui" Then
queldomaine = InputBox("Entrez le nom du domaine que vous souhaitez voir s’afficher")
Cells.Select
Selection.AutoFilter
Range("E4").Select
Selection.AutoFilter Field:=5, Criteria1:=queldomaine
Else
Range("E4").Select
Selection.AutoFilter Field:=5

End If
End Sub

Mais ça ne marche pas, je rouvre mon classeur et rien ne s'affiche.

Réponse 14 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

Où se trouve la sub auto_open ?
Je pense qu'elle doit se trouver dans un module, pas dans le code associé à un sheet ou au workbook ou à une forme...

Réponse 15 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Elle n'est pas dans un module (il n'y en a qu'un, vide) ni dans le workbook ni dans une autre feuille.
Mais ça ne peut pas fonctionner si je la rajoute dans le workbook?

Réponse 16 / 21

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

Pourquoi ne pas simplement déplacer la routine dans le module vide ?

Réponse 17 / 21

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Dans un module (module1 par exemple), copie colle ton code. Tu peux garder Sub auto_open() si tu veux.

Dans le module ThisWorkbook, choisir "Workbook" dans la liste déroulante (Général) à gauche de la liste (déclaration). Tu vas avoir ceci :

Private Sub Workbook_Open()

End Sub

Colle ça dans la procédure : Module1.auto_open

tu dois avoir ça :

Private Sub Workbook_Open()
     Module1.auto_open
End Sub

Sauvegarde ton fichier et relance le.

;o)

Réponse 18 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

Ok je vais essayer, merci!

Réponse 19 / 21

morigann Messages postés 64 Date d'inscription Statut Membre Dernière intervention 17

J'ai suivi tes indications Polux31 mais à l'exécution de
Private Sub Workbook_Open()
Module1.auto_open
End Sub

.auto_open est surligné et un message d'erreur s'affiche : "Erreur de compilation : Membre de méthode ou de données introuvable"

Réponse 20 / 21

xav3601 Messages postés 3289 Date d'inscription Statut Membre Dernière intervention 311

Private Sub Workbook_Open()
Form1.Show
End Sub

Fais comme ca!
en mettant le nom de la userform que tu veux appeler a l'ouverture ;)

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Votre réponse

Discussions similaires