Instruction choix menu déroulant dans une macro

Bonjour,

Je dispose d'une matrice avec des formules reliées à des TCD. Les chiffres de cette matrice changent avec des rechercheV qui vont chercher dans les TCD en fonction du numéro des 95 départements Français qui se trouve en F3 qui est un menu déroulant conçu avec une liste de validation des données de 01 à 95 (en O6 à O101).

Je souhaite mettre en pdf cette matrice pour la région Nord qui a comme départements le 02, le 59, 60, 62, et 80; donc 5 pdf.

J'ai crée une macro, mais je n'arrive pas à lui faire exécuter les 5 départements différents en lui donnant l'instruction de choisir les 5 départements du menu déroulant en F3.

J'obtiens 5 pdf qui sont les mêmes du département affiché à l'écran de la matrice, au lieu de 5 pdf différents des 5 départements.

Pourriez-vous me dépanner avec une macro qui prend en compte les départements 02 et 59 dans le menu déroulant. ?

Cordialement.

ci-joint la macro ne fonctionnant pas car elle ne prend pas en compte les départements que je veux (le 02,59,60,80,62) menu déroulant :

il me faudrait une instruction lui disant de prendre le "02" le "59" etc.....

Range("F3").Select

Range("F3").Value = "02"

ActiveWorkbook.RefreshAll

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"W:\............................................................\DEPT 02.pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Range("F3").Select

Range("F3").Value = "59"

ActiveWorkbook.RefreshAll

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"W:\..................................................\DEPT 59.pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

End Sub

Bonjour,

voici une macro qui devrait fonctionner.

Sub test()

For Each i In Array("02", 59, 60, 62, 80) 'mettre les dep souhaités

Range("F3").Value = i
ActiveWorkbook.RefreshAll
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\...........\DEPT " & i & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Next i

End Sub

Aplus !

Bonjour Braters

Merci beaucoup pour ton aide.

J'ai essayé et ça fonctionne à moitié.......

La macro met bien le 02 et le 59 en F3 mais pour le 02 elle met 2.....du coup je pense que la matrice ne reconnais pas le 02 du menu déroulant et du coup les formules de la matrices ne se mettent pas à jour et me met des #N/A.....................

Mince dommage ................j'y croyais.!!!!!!!!!!!

Exact,

Essaye donc de mettre ta cellule F3 en format Texte ! Cela permettra d'afficher le 0 pour les départements de 01 à 09 !

A plus !