macro

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion philmar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
104
vazvaz
V
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
547
ph.vanne
ph.vanne
gh4
  • Résolu(e)
XL 2010 annuler impression sans blocage macro
2
Réponses
15
Affichages
1 K
job75
job75
H
  • Question Question
XL 2016 Macro excel 2010 vs 2016
Réponses
11
Affichages
784
hutch57
H
jeanmi
  • Résolu(e)
XL 2010 Imprimer en plusieurs PDF l’onglet Excel actif à chaque saut de page
2 3
Réponses
30
Affichages
4 K
jeanmi
jeanmi
P
  • Question Question
Microsoft 365 catégorie de poids classement compétiteurs
Réponses
5
Affichages
165
pouetpouetlagalette
P
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
415
oguruma
oguruma
X
  • Résolu(e)
Microsoft 365 Formule avec conditions
2
Réponses
20
Affichages
828
piegal
piegal
C
  • Question Question
XL 2016 pièce jointe avec envoi mail VBA
Réponses
2
Affichages
2 K
CYRIL CAMPAS
C
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
874
fanfan38
fanfan38
fenec
  • Question Question
XL 2016 modifier code pour tache ennuyeuse
Réponses
12
Affichages
1 K
fenec
fenec
D
  • Résolu(e)
XL 2016 Mettre l'année en cours dans la cellule active
2
Réponses
19
Affichages
2 K
Staple1600
Staple1600
D
  • Question Question
XL 2016 Extraire plusieurs valeurs avec formule
Réponses
1
Affichages
756
njhub
N
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
496
Nicolas JACQUIN
Nicolas JACQUIN
G
  • Question Question
XL 2019 Impression d'onglets casse tête
Réponses
5
Affichages
1 K
kiki29
kiki29
bambi
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
bambi
G
  • Question Question
Microsoft 365 Macro Imprimer 2 pages Pdf sur 1 feuilles (par PDF Creator sur un serveur)
Réponses
0
Affichages
852
greg63
G
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
Hasco
mromain
Génération de QR Codes
Réponses
5
Affichages
1 K
mromain
mromain
A
  • Question Question
XL 2016 Sous-totaux ou WorksheetFunction.Sum
Réponses
2
Affichages
742
Aldonanou
A
Retour