Discussion :

[graphikris]

Bonjour,

Je viens de créer plusieurs macro permettant d'imprimer des graphiques.

Je voudrais grace à une liste deroulante mise sur une feuille nommee REQUETES déclencher ses macros en fonction du choix de ma liste deroulante.

Les données de ma liste deroulante se trouvent sur Feuil 3 de D2 à D30 et la cellule liée est en F2

Cordialement

[XLRATOR]

Un Bloc Select Case serait votre clé de succès dans ce coup là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Select Case MaCombobox.ListIndex
Case 0
Imprimer Graphe 1
Case 1
Imprimer Graphe 2
Case 2
Imprimer Graphe 3
Case 3
Imprimer Graphe 4
Case n
Imprimer Graphe n
End Select

Cordialement.
Karim.

[graphikris]

Merci pour votre reponse mais comment dois je m'y prendre ?

C'est quoi la combo box ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Select Case MaCombobox.ListIndex
Case 0
Call Graphe_0
Case 1
Call Graphe_1
Case 2
Call Graphe_2
Case 3
Call Graphe_3
Case n
Call Graphe_n
End Select

En lignes 3,5,7,9 et 11 j'appelle les macros correspondantes à l'impression de mes graphes, mais comment faire pour le reste ?

Merci

[XLRATOR]

Pardon,
ComboBox c'est le nom par défaut de la liste déroulante que vous auriez inséré dans une forme.

Si vous utilisez une liste de validation dans une cellule ou une liste déroulante standard que vous auriez lié à une cellule : Disons La Cellule "A1", ce serait:

Disons que vous disposez de trois graphes, Graphe_1, Graphe_2, et Graphe_3, et que dans votre liste déroulante vous pouvez sélectionner une valeur parmi trois exemple: "Graphe Mensuel", "Graphe Annuel", Et "Graphe Global".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Range("A1").value
Case 1
Call Graphe_0
Case 2
Call Graphe_1
Case 3
Call Graphe_2
End Select

Dans votre Select Case vous mettrez autant de Case qu'il y a de valeurs dans votre liste déroulante.

Si ça vous parait encore flou postez un fichier exemple sans données confidentielles, et nous essayerons de le faire ensemble.

Bon courage.
Karim.

[graphikris]

J'ai utilisé un contrôle de formulaire mais s'il vaut mieux utiliser une liste déroulante du menu (données / Validation de données), y a pas de souci.

Que me préconisez vous ?

Voici mon classeur exemple

[XLRATOR]

Je ne pense pas que je puisse avantager une technique au détriment d'une autre pour vous en préconiser une, c'est plutôt à vous de l'adapter aux utilisateurs de votre application en fonction de leurs connaissances informatiques en général, mais ce qui est hautement recommandé est d'utiliser la technique la plus simple et la plus performante en terme de délai d'exécution.

La plus simple pour moi serait une liste de validation et un bouton standard qui déclencherait l'impression.


Bien cordialement.
Karim.

[casefayere]

Bonsoir,

sans avoir suivi toute la discussion, le problème ne viendrait pas de "Date" si cette date se présente avec des slashs "/"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Seuils Depasses Etat global").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="H:\Seuils Depasses Etat global_" & Format(Date, "dd mm yy") & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

à tout hasard !!!

[graphikris]

non idem,

rien ne se passe

encore merci

[casefayere]

Bonsoir,

As-tu bien changé cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

..."H:\Seuils Depasses Etat global_" & Format(Date, "dd mm yy") & ".pdf"...

dans chaque condition ?