Imprimer une plage à partir d'un combox

[chindou]

bonjour,
Sur un fichier XL2013 avec 12 onglets,
8 onglets ont 7 plages déférentes à imprimer (dans chacune de ces onglets il y a 7 plages)
comment faire par macro pour imposer l'impression à une de ces plages (onglet actif) à partir d’un choix dans un ComboBox dans un UserForm

Voici mon fichier exemple : Document Cjoint
et les noms des plages à imprimer:
Résultats du 1er trimestre= Playa1 : =!$A$2:$U$60
Résultats du 2e trimestre= Playa2 : =!$A$64:$U$122
Résultats du 3e trimestre= Playa3 := !$A$126:$U$184
Résultat des 3 trimestres=Ma plage : =!$A$188:$U$246
Résultats des contrôles du 1er trimestre= Ma plage 1 : =!$W$2:$AJ$60
Résultats des contrôles du 2e trimestre=Ma plage2 : =!$W$64:$AJ$122
Résultats des contrôles du 3e trimestre=Ma plage3 : =!$W$126:$AJ$184

Merci d'avance
cordialement

 

[Paritec]

Re : Imprimer une plage à partir d'un combox

Bonjour Chindou le forum
as-tu essayé d'ouvrir le lien que tu nous as mis dans ton post???
merci d'essayer
a+
Papou🙂

 

[chindou]

Re : Imprimer une plage à partir d'un combox

Bonjour à toutes et à tous
Merci Paritec
Oui c'est vrai, problème de lien du site Cjoint.com
Voici mon un autre lien:
Merci encore une autre fois pour ta réponse
Cordialement

 

[phlaurent55]

Re : Imprimer une plage à partir d'un combox

Bonjour à tous,

le nouveau lien ne montre rien de plus que le premier

à+
Philippe

 

[chindou]

Re : Imprimer une plage à partir d'un combox

Document Cjoint
le probleme est dans le site cjoint, car j'ai rencontré le même problème. Mais sur site Cjoint, un clic droit sur le lien et télécharger avec IDM du menu contex
Merci
Cordialement

 

[phlaurent55]

Re : Imprimer une plage à partir d'un combox

Re,

toujours impossible à ouvrir 😡😡😡

voir fichier joint créé sur base des explications données au premier post

à+
Philippe

 

[chindou]

Re : Imprimer une plage à partir d'un combox

Merci bien phlaurent

 

[Paritec]

Re : Imprimer une plage à partir d'un combox

Bonjour Philippe🙂 Chindou le forum
je ne sais pas comment tu fais pour joindre un fichier, mais moi je viens de faire un test,
et c-joint fonctionne parfaitement !!!!
Bref
a+
Papou🙂

 

[chindou]

Re : Imprimer une plage à partir d'un combox

Bonjour paritec
Mon fichier Exemple est un peu volumineux alors c'est pour ça que j'ai choisis le site: Accueil de Cjoint.com
donc j'essayerais d’alléger le fichier et l'envoyer comme pièce jointe.
Cordialement

 

[Paritec]

Re : Imprimer une plage à partir d'un combox

Re chindou le forum
erreur pardon
a+
Papou🙂

 

[chindou]

Re : Imprimer une plage à partir d'un combox

Bonjour à tous

 

[phlaurent55]

Re : Imprimer une plage à partir d'un combox

Re,

avec ce code (pour le bouton d'impression)

Private Sub CommandButton1_Click()
Select Case ComboBox1.ListIndex
Case 0
    Range("A2:U60").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case 1
    Range("A64:U122").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case 2
    Range("A126:U246").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case 3
    Range("A188:U246").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case 4
    Range("W2:AJ160").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case 5
    Range("W64:AJ122").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case 6
    Range("W126:AJ184").Select
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Case Else
    Exit Sub
End Select
End Sub

REMARQUE:
ne pas oublier de spécifier la (les) feuille(s) à imprimer
Sheets("feuille").Range("A2:U60").Select
Sheets("autre_feuille").Range("A64:U122").Select

à+
Philippe

 

[chindou]

Re : Imprimer une plage à partir d'un combox

Bonjour, et merci bien phlaurent