impression

[tinet]

bonjour le forum,

j'ai besoin de d'aide pour mon code

J'utilise une seule feuille ("Hebergement")
cette feuille se met à jour avec un combobox (feuil7) feuille des données en AH3 qui alimente le combobox
je souhaite imprimer la feuille ("Hebergement")à la suite avec la liste qui met à jour le combobox.

voici mon début de code

Sub ImpressionM()
Application.ScreenUpdating = False

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "IN"

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "SE"

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "AV"

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "EL"

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "ES"

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "VI"

Sheets("Hebergement").Select
Feuil7.Range("AH3") = "ED"

Dim reponse
reponse = MsgBox("Etes vous sûr de vouloir imprimer ", vbYesNo, "Avertissement")
If reponse = vbYes Then
Application.Dialogs(xlDialogPrinterSetup).Show

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Cancel = True
End If
Application.ScreenUpdating = True
End Sub

 

[jpb388]

Re : impression

Bonjour à tous

sous réserve d'avoir compris ton problème

Sub ImpressionM()
    Dim Sh As Worksheet
    Sh = Sheets("Hebergement")
    Application.ScreenUpdating = False
    With Sh
        .Range("AH3") = "IN"
            Imprim Sh
        .Range("AH3") = "SE"
            Imprim Sh
        .Range("AH3") = "AV"
            Imprim Sh
        .Range("AH3") = "EL"
            Imprim Sh
        .Range("AH3") = "ES"
            Imprim Sh
        .Range("AH3") = "VI"
            Imprim Sh
        .Range("AH3") = "ED"
            Imprim Sh
    End With
    Application.ScreenUpdating = True
End Sub

Private Sub Imprim(Sh As Worksheet)
        Dim reponse
        reponse = MsgBox("Etes vous sûr de vouloir imprimer ", vbYesNo, "Avertissement")
        If reponse = vbYes Then
            Application.Dialogs(xlDialogPrinterSetup).Show
            Sh.PrintOut Copies:=1, Collate:=True
        End If
End Sub

 

[tinet]

Re : impression

Bonjour jpb388

J'ai un plantage sur la ligne suivante
Sh = Sheets("Hebergement")

Par contre je ne vois rien de ma feuill7
Pour info Feuil11 et ("Hebergement") feuille pour impression
Feuile7 et la base pour alimenter le combobox en "AH3"

a+

 

[jpb388]

Re : impression

re
peux tu mettre ton fichier je pense je comprendrai mieux

 

[tinet]

Re : impression

Re,

Le fichier comprend des éléments que je ne peux divulguer.

j'ai fait un assemblage de ton code avec le mien, j'ai fini par trouver une solution.
Le seul problème c'est que je suis obligé à chaque fois de répondre pour l'impression de la feuille.
Alors que je voulais que cela se fasse à la suite

je peux essayer si tu veux te bricoler quelque chose qui ressemble

a+

 

[jpb388]

Re : impression

pour que je comprenne bien il me faut un fichier avec un exemple évidement sans données personnelles
si tu as des noms de personne tu met nom1, nom2 etc..
le principal c'est de voir comment c'est bidouillé et comprendre ce que tu cherches a expliquer

 

[tinet]

Re : impression

Re,

Je viens de te faire un petit fichier avec une explication à l'intérieur

 

[jpb388]

Re : impression

re
J'espère avoir bien compris

 

[tinet]

Re : impression

Re,

je dis bravo, c'est exactement ce que je voulais obtenir.

Il me reste à adapter ton code.

Merci de ton aide

Cordialement