impression avec optionbutton

[Neofalken]

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

 

[noviceAG]

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

 

[Guest]

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:

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

Joindre éventuellement un fichier sur le forum

A+

 

[Neofalken]

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

 

[Guest]

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+

 

[Neofalken]

Bonjour Hasco

Voici un fichier simpllifié de ce que j'aimerais.

Merci encore pour ton aide

Neofalken

 

[Guest]

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+

 

[DL_13]

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

 

[Neofalken]

Coucou à tous

Merci bcp pour votre aide...je vais voir si cela coorespond à ce dont j'ai besoin

 

[Neofalken]

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

 

[Guest]

Re : impression avec optionbutton

Bonjour,

Si ton userForm s'appelle 'UserForm1' écrit une macro de lancement dans un module général:

Sub LancerUserForm()
     UserForm1.Show
End Sub

Pour les bases tu peux aller voir Débuter en Visual Basic for Applications (VBA)

Une recherche sur google avec "Excel tutorial Userform te donnera plein de résultats.
A+

 

[Neofalken]

Merci pour ton aide.