XL 2013 Impression de plusieur page avec confirmation

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #2

Bonjour le fil, Matpo

=>Matpo
Une façon de faire

VB:

Sub Fenetre_Ouverte()
Select Case MsgBox("Ici mettre le texte de son choix", vbYesNo + vbQuestion, "Titre de la fentre")
Case 6
Call macro2
Case Else
End Select
End Sub

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #3

bonjour JM
Merci pour ta reponse, je dois incere ta commande juste après la mienne ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #4

Re

Non, puisque tu parles de bouton, tu mets le code VBA dans le code de celui-ci.

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #5

la je suis perdu

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #6

Re

Ou plus simple
Tu remplaces ta macro Macro2 par celle-ci

VB:

Sub Macro2()
Select Case MsgBox("Ici mettre le texte de son choix", vbYesNo + vbQuestion, "Titre de la fenêtre")
Case 6
Sheets(Array("017", "019", "036", "045", "046", "048")).PrintOut copies:=1
Case Else
End Select
End Sub

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #7

merci bien par contre la a tète de il y a moyen de la changer ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #8

Re

Je n'ai pas compris ta dernière phrase.
Si il s'agit de changer le texte qui s'affiche la réponse est évidente, non ?

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #9

non désoler,
quand j'ouvre la fenêtre il y a une tète de martien
comment faire pour l'enlever ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #10

Re

??? Une tête martien ???
Il s'agit d'un point d'interrogation !!!
Comme celui-ci

VB:

Sub Cété_écrit_dedans_non()
Select Case MsgBox("Come on you target for faraway laughter", vbYesNo + vbQuestion, "Shine on your crazy diamonds")
Case 6
ThisWorkbook.FollowHyperlink "https://www.youtube.com/watch?v=7Tc6RM7ZkWQ"
Case Else
End Select
End Sub

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #11

merci pour ton aide problème résolue juste en changent de pc

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #12

Re

Tu peux faire une copie d'écran de ta tête de martien, stp ?
Et la poster ici.
Merci.

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #13

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #14

Re

Tu peux faire ce test et dire quelles "têtes" s'affichent ?

VB:

Sub TeteAtete()
WTF = Array(vbCritical, vbExclamation, vbQuestion)
For i = 0 To UBound(WTF)
MsgBox Date + i, WTF(i)
Next
End Sub

 

Vote positif 0 Vote négatif

M

Matpo

XLDnaute Nouveau

• 7 Mars 2020

• #15

j'ai rien

 

Vote positif 0 Vote négatif