Boite de dialogue Excel et macro
Fermé
Nico_
Messages postés
1219
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
15 mars 2016
-
25 févr. 2008 à 21:52
n.mascret - 17 sept. 2010 à 22:13
n.mascret - 17 sept. 2010 à 22:13
A voir également:
- Boite de dialogue Excel et macro
- Liste déroulante excel - Guide
- Formule excel - Guide
- Se connecter à ma boite hotmail - Guide
- Ouvrir ma boîte mail ✓ - Forum Messagerie
- Www.hotmail.com boite de réception ✓ - Forum Hotmail (Outlook.com)
6 réponses
Nico_
Messages postés
1219
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
15 mars 2016
188
1 mars 2008 à 16:47
1 mars 2008 à 16:47
bonjour,
J'ai fais une feuille que j'ai nommer formulaire.
sur cette feuille, il y a 3 cases a cocher et 2 boutons de commande.
sur le bouton de commande, voici le code :
Je ne sais pas comment faire pour ne pas avoir d'erreur dans mon code.
Merci a celles, ceux qui pourront m'aider.
Bonne Journée
J'ai fais une feuille que j'ai nommer formulaire.
sur cette feuille, il y a 3 cases a cocher et 2 boutons de commande.
sur le bouton de commande, voici le code :
Sub CommandButton2_Click()
If CheckBox1.Value = True Then
Sheets("AUTO Eval").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$BV$22"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
If CheckBox2.Value = True Then
SheSheets("Traduction des données").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
End Sub
Je ne sais pas comment faire pour ne pas avoir d'erreur dans mon code.
Merci a celles, ceux qui pourront m'aider.
Bonne Journée
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
25 févr. 2008 à 22:31
25 févr. 2008 à 22:31
bonjour
Il te suffit de créer une feuille formulaire avec tes cases à cocher et un bouton de validation (et annulation) pour lancer ta macro qui va prendre en compte les coches : si tu sais imprimer une page, pas de souci car si coché imprime la page tout simplement.
Ton bouton imprimer lance le formulaire au lieu de lancer l'impression (formulaire.show)
Il te suffit de créer une feuille formulaire avec tes cases à cocher et un bouton de validation (et annulation) pour lancer ta macro qui va prendre en compte les coches : si tu sais imprimer une page, pas de souci car si coché imprime la page tout simplement.
Ton bouton imprimer lance le formulaire au lieu de lancer l'impression (formulaire.show)
Nico_
Messages postés
1219
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
15 mars 2016
188
28 févr. 2008 à 21:49
28 févr. 2008 à 21:49
bonsoir,
je ne parviens pas a y faire ! je ne sais pas comment faire pour que ça imprime si on coche.
Merci, si c'est possible de faire un exemple.
Bonne soirée
je ne parviens pas a y faire ! je ne sais pas comment faire pour que ça imprime si on coche.
Merci, si c'est possible de faire un exemple.
Bonne soirée
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
1 mars 2008 à 17:15
1 mars 2008 à 17:15
Bonjour,
essaies:
Private Sub CommandButton1_Click()
If Me.CheckBox1 Then
With Sheets("feuil2")
.Range("B3:F30").PrintOut
End With
End If
'If Me.checkbox2 Then...
'avant le end sub avertit l'utilisateur
MsgBox "les ordres d'impression ont été transmis à l'imprimante"
End Sub
le bouton et les checkbox doiventêtre installés avec la barre d'outils "boite à outils controle"
Tu cliques droit sur l'onglet "formulaire -code, tu fais un copier-coller du code ci dessus et tu adaptes à ton cas
Bon WE
Michel
essaies:
Private Sub CommandButton1_Click()
If Me.CheckBox1 Then
With Sheets("feuil2")
.Range("B3:F30").PrintOut
End With
End If
'If Me.checkbox2 Then...
'avant le end sub avertit l'utilisateur
MsgBox "les ordres d'impression ont été transmis à l'imprimante"
End Sub
le bouton et les checkbox doiventêtre installés avec la barre d'outils "boite à outils controle"
Tu cliques droit sur l'onglet "formulaire -code, tu fais un copier-coller du code ci dessus et tu adaptes à ton cas
Bon WE
Michel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Nico_
Messages postés
1219
Date d'inscription
vendredi 29 décembre 2006
Statut
Membre
Dernière intervention
15 mars 2016
188
1 mars 2008 à 18:14
1 mars 2008 à 18:14
Merci pour ce code, il fonctionne très bien !
serait-il possible de rajouter un message pour informer que si aucune case est cochée, rien ne sera imprimer?
Merci
Bonne WE.
serait-il possible de rajouter un message pour informer que si aucune case est cochée, rien ne sera imprimer?
Merci
Bonne WE.
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
1 mars 2008 à 18:43
1 mars 2008 à 18:43
If me.checkbox1=False AND me.checkbox2=False AND ...etc..then
msgbox "ton texte"
end if
msgbox "ton texte"
end if
17 sept. 2010 à 22:13
Nono