Macro Intéractive d'impression

Sub parou()
select case range("a1").value
case 1
macro1
case 2
macro2
case 3
macro 3
case 4
macro 4
case 5
macro 5
case 6
macro 6
case else
end select
end sub


"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message de news:7E244CCD-4AD0-4331-B0E1-9173B5271459@microsoft.com...

Bonjour
J'ai écrit 6 macros d'impressions
Comment écrire une macro d'impression qui appelera une des 6 macros
en

fonction du contenu d'une cellule que j'ai appelée
TypeRéglement qui peut aller de 1 à 6

Merci pour votre aide

Bonjour Jean-Paul V.

Tu peux choisir selon la valeur de
Worksheets("feuil1").Range("TypeRéglement").Value

Sub tt()

a = Worksheets("feuil1").Range("TypeRéglement").Value

Select Case a
Case "1"
Call taMacro1
Case "2"
Call taMacro2
Case 3
'....
Case Else
MsgBox a & ": Valeur inconnue"

End Select

End Sub

Amicalement.

"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> wrote in message
news:7E244CCD-4AD0-4331-B0E1-9173B5271459@microsoft.com...

Bonjour
J'ai écrit 6 macros d'impressions
Comment écrire une macro d'impression qui appelera une des 6 macros en
fonction du contenu d'une cellule que j'ai appelée
TypeRéglement qui peut aller de 1 à 6

Merci pour votre aide

Bonjour,
Regarde du côté de Select Case :

Select Case [TypeRéglement]
Case 1
imprim_1 'nom de la macro
Case 2
imprim_2
Case 3
imprim_3
'....etc...
Case 6
imprim_6
end select

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de news:
7E244CCD-4AD0-4331-B0E1-9173B5271459@microsoft.com...

Bonjour
J'ai écrit 6 macros d'impressions
Comment écrire une macro d'impression qui appelera une des 6 macros en
fonction du contenu d'une cellule que j'ai appelée
TypeRéglement qui peut aller de 1 à 6

Merci pour votre aide