macro

P

philmar

XLDnaute Occasionnel
Bonjour à toutes et à tous,
avec mes faibles connaissances en macro, j'ai fabriquée celle-ci ci dessous, par contre je voudrais, quand on la déclenche avec un bouton affecté, qu'un message de confirmation apparaisse avec OUI ou NON voulez vous imprimer toutes les fiches, vu que cela déclenche l'impression de 99 fiches.
Merci et bonne journée
Philippe

Sub Macro15()
'
' Macro15 Macro
' Macro enregistrée le 27/10/2008 par 013dir
'

'
Range("AD2:AF2").Select
ActiveCell.FormulaR1C1 = "A 02 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 02 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 03 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 03 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 04 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 04 (04)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 05 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 05 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 06"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 07"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 08"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 09"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 10"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 11"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 12"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 13"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 14"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 16"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 18"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 19"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "A 20"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 21"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 22"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 24"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 25"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 26 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 26 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 27 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 27 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 28 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 28 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 29 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 29 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 30"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 31"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 32"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B CH1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 33 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 33 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 34 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 34 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 35 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 35 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 36 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 36 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 37 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 37 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 38 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 38 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 39"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 40"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 42"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 43"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 45"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 46"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 47"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 48"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 49"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 50"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "B 51"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 52"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 53"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 54"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 55"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 56"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 57 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 57 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 58 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 59 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 59 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 60 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 60 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 61"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 62"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 63"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C CH2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 64 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 64 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 65 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 65 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 66 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 66 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 67 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 67 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 68 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 68 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 69 (01)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 69 (02)"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 70"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 71"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 72"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 73"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 74"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 75"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 76"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 77"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 78"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 79"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 80"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 81"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveCell.FormulaR1C1 = "C 82"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
 
Trier par date Trier par votes
RENAUDER

RENAUDER

Nous a quitté
Repose en paix
Re : macro

Bonjour,
Voici du code pour ton exemple
Code: 
Sub ImprimerFiches()
    Dim Msg, Style, Title, Response, MyString
    Msg = "Souhaitez-vous imprimer les fiches ?"
    Style = vbYesNo + vbInformation
    Title = "Impression des fiches"
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
        '    Ici ta macro ..........
        MsgBox "Je lance la macro d'impression"
    Else    ' L'utilisateur a choisi Non.
        MsgBox "Je n'imprime pas et je quitte la procédure"
        Exit Sub
    End If
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

gh4
  • Résolu(e)
XL 2010 annuler impression sans blocage macro
2
Réponses
15
Affichages
821
job75
job75
jeanmi
  • Résolu(e)
XL 2010 Imprimer en plusieurs PDF l’onglet Excel actif à chaque saut de page
2 3
Réponses
30
Affichages
3 K
jeanmi
jeanmi
H
  • Question
XL 2016 Macro excel 2010 vs 2016
Réponses
11
Affichages
534
hutch57
H
Usine à gaz
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
312
Usine à gaz
Usine à gaz
L
  • Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
609
fanfan38
fanfan38
C
  • Question
XL 2016 pièce jointe avec envoi mail VBA
Réponses
2
Affichages
1 K
CYRIL CAMPAS
C
fenec
  • Question
XL 2016 modifier code pour tache ennuyeuse
Réponses
12
Affichages
944
fenec
fenec
D
  • Résolu(e)
XL 2016 Mettre l'année en cours dans la cellule active
2
Réponses
19
Affichages
1 K
Staple1600
Staple1600
T
  • Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
343
troki74
T
D
  • Question
XL 2016 Extraire plusieurs valeurs avec formule
Réponses
1
Affichages
484
njhub
N

Membres actuellement en ligne

16 membres et 111 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 211
Messages
2 086 286
Membres
103 170
dernier inscrit
HASSEN@45