Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

Macro VBA sur Excel, need help...

Dernière réponse le 26 jun 2009 à 14:49:45 morigann, le 24 jun 2009 à 21:11:36

Signaler ce message aux modérateurs

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.

Configuration: Windows Vista
Firefox 3.0.10

Meilleures réponses pour « macro VBA sur Excel, need help... » dans :

Macro vba excel: copier une plage de données Voir

Supprimer un fichier à partir macro VBA Excel Voir

VBA Excel: sélection et copie de colonnes Voir

Excel macro vba Voir

[VBA / Excel] Tutoriel Voir

Vba excel filtre / listbox ... Voir

Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...

Posez votre question Répondre

yg_be, le 24 jun 2009 à 21:21:33

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

Répondre à yg_be

morigann, le 25 jun 2009 à 08:37:54

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épondre à morigann

yg_be, le 25 jun 2009 à 10:18:16

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

Répondre à yg_be

xav3601, le 25 jun 2009 à 10:19:40

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

Répondre à xav3601

morigann, le 25 jun 2009 à 11:33:09

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épondre à morigann

yg_be, le 25 jun 2009 à 11:59:31

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épondre à yg_be

morigann, le 25 jun 2009 à 14:05:33

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épondre à morigann

yg_be, le 25 jun 2009 à 14:40:04

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épondre à yg_be

morigann, le 25 jun 2009 à 14:50:58

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épondre à morigann

morigann, le 25 jun 2009 à 14:53:22

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

Répondre à morigann

morigann, le 25 jun 2009 à 15:00:39

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épondre à morigann

yg_be, le 25 jun 2009 à 17:02:04

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épondre à yg_be

morigann, le 26 jun 2009 à 10:01:55

ç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épondre à morigann

yg_be, le 26 jun 2009 à 11:23:27

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épondre à yg_be

morigann, le 26 jun 2009 à 11:47:25

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épondre à morigann

yg_be, le 26 jun 2009 à 13:15:26

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

Répondre à yg_be

Polux31, le 26 jun 2009 à 13:38:06

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)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Répondre à Polux31

morigann, le 26 jun 2009 à 13:42:58

Ok je vais essayer, merci!

Répondre à morigann

morigann, le 26 jun 2009 à 14:09:07

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épondre à morigann

21 réponses 12 Suivant

Posez votre question Répondre