Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

impression avec optionbutton

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 !

Neofalken

XLDnaute Junior
Bonjour à tous

nouveau sur le site, j'aurais besoin de votre aide.
Je voudrais utiliser optionbutton pour imprimer une feuille.
optionbutton1 ---> imprime feuille "1"
optionbutton2 ----> imprime feuille "2"
etc

J'ai créé une boite de dialogue basique avec

4 cases optionbutton
1 ok
1 annuler

J'aimerais que lorsqu'on clique dans une case "optionbutton" et qu'on valide par "ok" cela imprime la feuille coorespondante...

voici mon programme

Sub OptionButton1_Click()
If Optionbutton1 = True Then
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Dialogue1").Select
End If
End Sub

Sub OptionButton2_Click()
If OptionButton2 = True Then
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Dialogue1").Select
End If
End Sub


Qu'est ce que j'ai de pas bon svp ?

Merci d'avance
 
Re : impression avec optionbutton

Bonjour Neofalken, le Forum,
Essaie ceci :
Sub OptionButton1_Click()
Optionbutton1 = True
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub OptionButton2_Click()
OptionButton2 = True
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
A te lire
 
Re : impression avec optionbutton

Bonjour, bienvenue sur le forum

Qu'est-ce que tu appelles une boîte de dialogues basique?
Un userform, un boîte de dialogue ExcelMacro4 ou une feuille avec tes options boutons.

Option1 imprime Feuil1 ou Feuil2 ? Tes explications ne sont pas cohérentes avec l'exemple.

A tester:

Code:
Sub OptionButton1_Click()
    If Optionbutton1 = True Then Sheets("Feuil2").PrintOut Copies:=1, Collate:=True
End If

Joindre éventuellement un fichier sur le forum

A+
 
Dernière modification par un modérateur:
Re: Re : impression avec optionbutton

Bonjour Hasco
Merci d'avoir pris le temps de me lire.
Alors en effet une boite dialogue basique est une boite de dialogue ExcelMacro5.
J'aimerais avoir trois bouton à cocher
Si on coche bouton 1, on imprime la feuille 1
Si on coche bouton 2, on imprime la feuille 2
etc...
avec cette cinématique, on coche (bouton 1 par ex) puis lorsqu'on clique sur le bouton "ok" de la boite de dialogue cela imprime la feuille en question.
La macro indiquée ne fonctionne pas, dsl.

Mais merci quand même
 
Re : impression avec optionbutton

Bonjour NeoFalken, noviceAg,

@NeoFalken, si tu nous donnais un fichier exemple <50ko avec le stricte nécessaire à la compréhension du problème. Avec les macros et bouton bien-sûr

A+
 
Re : impression avec optionbutton

Bonjour,

T'es sûr de vouloir une boîte de dialogue ExcelMacro5. Ceci est conservé uniquement pour la compatibilité avec les anciennes version d'excel?

Il vaudrait mieux faire un userForm.

A+
 
Dernière modification par un modérateur:
Re : impression avec optionbutton

Bonjour le fil et le forum

Hasco a parfaitement raison (pour l'UserForm). Plusieurs fils parlent de cette problématique.

essaye ce lien pour voir s'il peut convenir à ton fichier.

Bonne journée
 
Merci bcp. C'est tout bien comme je veux....
Mais..euh désolé...n'étant pas encore au stade de "l'userform", comment fait-on apparaitre la macro, programme??
J'aimerais comprendre comment cela a été créé... si jamais je veux le reproduire d'une autre manière...
Quand je vais dans option/outils/macro ya rien...
et dans visual basic editor ben ya pas grandchose...

Merci d'avance
 
- 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

Réponses
15
Affichages
788
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…