Macro Imprimer 1 Feuille evolutive.

[sim]

Bonjour a toutes et a tous!!!!

Aujourd'hui, la question depasse de loin mes connaissances....mais alors de loin!!!🙁

La situation
(les feuilles Market_GI et FX! sont des feuille sources ou de donnes)

Une feuille Interface_impression! avec un bouton activant un Userform me permetant de choisir les marches que je veux imprimer.

Une feuille Current_market ( c'est la feuille a imprimer) avec des information qui evoluent en fonction du marche choisi grace au bouton "Market" en haut a droite de la feuille.

Pour resumer, j'ai donc une feuille pour tout mes marches!

Je voudrais donc que a travers la userform d'impression, excel genere et imprime une feuille Current_Market pour chaque marche selectionne.

Vous pourrez un peu mieux vous rendre compte grace a la PJ.

Je sais pas comment faire ni par ou commencer.....😕

Merci d'avance pour ceux qui pourront m'aider😱

Cordialement.

Sim

 

[soune26]

Re : Macro Imprimer 1 Feuille evolutive.

voili voilou

Private Sub CommandButton3_Click()
Sheets("Current_market").Select
Dim i As Byte
For i = 1 To 187
If Me.Controls("CheckBox" & i).Value = True Then
Range("C7").Value = Me.Controls("CheckBox" & i).Caption
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("Interface_impression").Select
Next i

End Sub

 

[sim]

Re : Macro Imprimer 1 Feuille evolutive.

Re,

Ca aurait ete trop beau, un code pas trop long et pas trop complique (enfin d'apres ce que je comprend), mais cela m'imprime la feuille Interface_Impression.....et ce peu importe quel(s) marche choisi.....

Une idee??

Merci en tout cas!!!

Sim

 

[soune26]

Re : Macro Imprimer 1 Feuille evolutive.

lis la suite

 

[soune26]

Re : Macro Imprimer 1 Feuille evolutive.

oups!!!

l'ancien code été:

Private Sub CommandButton3_Click()
Sheets("Current_market").Select
Dim i As Byte
For i = 1 To 187
If Me.Controls("CheckBox" & i).Value = True Then
Range("C7").Value = Me.Controls("CheckBox" & i).Caption
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("Interface_impression").Select
Next i

End Sub

et maintenant essai celui là
cela ira beaucoup mieux lol

Private Sub CommandButton3_Click()
Sheets("Current_market").Select
Dim i As Byte
For i = 1 To 187
If Me.Controls("CheckBox" & i).Value = True Then
Range("C7").Value = Me.Controls("CheckBox" & i).Caption
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Next i
Sheets("Interface_impression").Select
End Sub

 

[sim]

Re : Macro Imprimer 1 Feuille evolutive.

Re, J'ai fait exactement comme tu m'as dit copier/coller le code......

Mais meme resultat, ca imprime Interface_impression.......

Je t'appel!

Merci

 

[sim]

Re : Macro Imprimer 1 Feuille evolutive.

Juste pour ceux qui passerront sur le fil plus tard.....

La solution de Soune26, avec le petit changement fait dans le post#5 fonctionne parfaitement!!!

Voila ca meritait d'etre dit!!!!

Bonne fin de journee a tous!!