print selection

[Johan]

Bonjour à tous,

j'ai déjà posé la question, mais sans résultats (merci quand-même à GM)... est-ce que quelqu'un pourrait me dire ce qui ne va pas dans le script ci-dessous? Je ne comprends vraiment pas ce qui cloche!

Merci pour votre aide

Johan

--------------------------------------------------------------------------------

Sub ComboBox1_Change()

If Sheets(1).ComboBox1.Value = "Print 1" Then
Sheets(2).Range("A1:A10").Select ---> le debug reste coincé ici!!! faute 1004 (select method or Range class failed)

End If



If Sheets(1).ComboBox1.Value = "Print 2" Then
Sheets(2).Range("B1:B10").Select

End If

--------------------------------------------------------------------------------

End Sub

Sub CommandButton1_Click()

Selection.PrintOut Copies:=1, Collate:=True

End Sub

 

[jon]

il faut au préalable activer la feuille en question
Sheets(2).activate:activesheet.Range("A1:A10").select

 

[Evelynetfrancois]

l'enregistreur donne egalement
Sheets(2).Select
Range("A1:A10").Select
bye Evelynetfrancois

 

[Johan]

Merci à vous, CA MARCHE!!!

mais maintenant en voulant imprimer via le bouton ....
même problème ... il m'imprime que le sheet où se trouvent mes boutons pour imprimer et combobox ---> mes DATA sélectionnees se trouvent dans une autre sheet!

Donc:

------ Selection.PrintOut Copies:=1, Collate:=True ------

devrait être qqchose dans le genre de

------ Sheets(2).Selection.PrintOut Copies:=1, Collate:=True -----

et avec activate comme décrit dans vos réponses, je n'y arrive pas non plus

comment dois-je le faire?

Merci