problème de code

Version imprimable

problème de code

Bonjour à tous

voilà je souhaite imprimer les onglets choisi dans une liste déroulante d'un userform et je bute sur ce code qui ne répond pas à mes attentes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub printchoisis_Click()
Dim I As Integer
frchoiximpression.Hide
With lstchoixtableaux
  For I = 0 To .ListCount - 1
    If .Selected(I) Then
    Sh = Sheets(.List(I)).Name
        With Sheets(Sh).PageSetup
                          'Définit la zone d'impression pour une plage de cellules.
                      .PrintArea = Range(Cells(1, 1), Cells(dernlig, derncol)).Address
                      'Mise en page: définit les marges
                      .Orientation = xlLandscape  'paysage
                      '.FitToPagesWide = 1
                      '.FitToPagesTall = 1
                      .Zoom = 85
                      .LeftMargin = Application.InchesToPoints(0.3)
                      .RightMargin = Application.InchesToPoints(0.3)
                      .TopMargin = Application.InchesToPoints(0.3)
                      .BottomMargin = Application.InchesToPoints(0.3)
                      .HeaderMargin = Application.InchesToPoints(0.5)
                      .FooterMargin = Application.InchesToPoints(0.5)
                      .LeftFooter = "Imprimé le " & Date
                '     .CenterFooter = "texte section centrale"
                      .RightFooter = "Edité par " & Application.UserName
        End With
    End If
  Sheets(.List(I)).PrintPreview
 
Next
End With

le sh.name me donne bien le nom des onglets choisis mais je n'arrive pas à faire le pagesetup et le preveiw ne me choisi pas les bons onglets.

Je galère
merci pour votre aide
cordialement

heu

bonjour

il faut que tu separe la list (listbox) de la liste de sheets dans ta tete

ce n'est pas la meme chose

il faut que tu fasse un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub printchoisis_Click()
Dim I As Integer
dim lesfeuilles
frchoiximpression.Hide
With lstchoixtableaux
  For I = 0 To .ListCount - 1
    If .Selected(I) Then
   redim preserve lesfeuilles(1 to i) 
lesfeuilles(i)=.Selected(I)
Sh = Sheets(.Selected(I))
 
        With Sheets(Sh).PageSetup
                          'Définit la zone d'impression pour une plage de cellules.
                      .PrintArea = Range(Cells(1, 1), Cells(dernlig, derncol)).Address
                      'Mise en page: définit les marges
                      .Orientation = xlLandscape  'paysage
                      '.FitToPagesWide = 1
                      '.FitToPagesTall = 1
                      .Zoom = 85
                      .LeftMargin = Application.InchesToPoints(0.3)
                      .RightMargin = Application.InchesToPoints(0.3)
                      .TopMargin = Application.InchesToPoints(0.3)
                      .BottomMargin = Application.InchesToPoints(0.3)
                      .HeaderMargin = Application.InchesToPoints(0.5)
                      .FooterMargin = Application.InchesToPoints(0.5)
                      .LeftFooter = "Imprimé le " & Date
                '     .CenterFooter = "texte section centrale"
                      .RightFooter = "Edité par " & Application.UserName
        End With
    End If
  Next
 
'ici dans "lesfeuilles" tu a toutes les feuilles que tu a selectionné dans ta listbox
Sheets(lesfeuilles).PrintPreview
 
End With

au plaisir

06/06/2013, 20h43
Pierre67

Merci Patrick

mais j'obtiens uen erreur mismatch sur le redim

Regarde la ligne 10 de ton code (Erreur assez répandue)

Sinon, utilisant une variable objet de type Worksheet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub PrintChoisis_Click()
Dim Sh As Worksheet
Dim i As Integer
 
Me.Hide
With Me.lstChoixTableaux
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            Set Sh = Sheets(.List(i))
            With Sh.PageSetup
                'Définit la zone d'impression pour une plage de cellules.
                .PrintArea = Sh.Range(Sh.Cells(1, 1), Sh.Cells(DernLig, DernCol)).Address
                'Mise en page: définit les marges
                .Orientation = xlLandscape         'paysage
                '.FitToPagesWide = 1
                '.FitToPagesTall = 1
                .Zoom = 85
                .LeftMargin = Application.InchesToPoints(0.3)
                .RightMargin = Application.InchesToPoints(0.3)
                .TopMargin = Application.InchesToPoints(0.3)
                .BottomMargin = Application.InchesToPoints(0.3)
                .HeaderMargin = Application.InchesToPoints(0.5)
                .FooterMargin = Application.InchesToPoints(0.5)
                .LeftFooter = "Imprimé le " & Date
                '     .CenterFooter = "texte section centrale"
                .RightFooter = "Edité par " & Application.UserName
            End With
            Sh.PrintPreview
            Set Sh = Nothing
        End If
    Next i
End With
End Sub

06/06/2013, 20h47
Pierre67

bonjour mercatog

avec ton code j'ai une erreur 1004 sur le .printarea
06/06/2013, 20h57
mercatog

Tes valeurs DernLig et DernCol sont elles définis quelque part? (j'avais supposé au vu de ton code que ce sont des variables globales contenant des valeurs >0)
06/06/2013, 21h07
Pierre67

autant pour moi

effectivement j'ai oublié de redefinir ces derncol et dernlig
Ton code Mercatog fonctionne à Merveille et je t'en remercie

sans doute celui de Patrick fonctionne également, je le testerai aussi
et vais tenir compte de ses remarques
un grand merci à vous deux et à ce fantastique forum :ccool:
bien à vous

Bonsoir à tous,

Je pense, Patrick que ton code mérite une variable supplémentaire, j'ai peut-être tort, et devrait commencer ainsi, en suivant le même principe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub printchoisis_Click()
Dim I As Integer, x As Integer
Dim lesfeuilles
frchoiximpression.Hide
x = 0
With lstchoixtableaux
  For I = 0 To .ListCount - 1
    If .Selected(I) Then
      x = x + 1
      ReDim Preserve lesfeuilles(1 To x)
      lesfeuilles(x) = .Selected(I)
      Sh = Sheets(.Selected(I))
      ............

bonne soirée

06/06/2013, 21h52
patricktoulon

re

Re
Bonjour a tous
oupss!!!! autant pour moi casefayere tu a raison je n'est pas agrémenté la variable pour le compteur

que veux tu il y a des jours comme ca :mouarf:

merci pour la correction

c'est la methode que j'utilise personnellement
d'ailleurs si Pierre67 avait fait une petite recherche sur les messages recents
il aurait trouver CETTE DISCUSSION

la proposition que j'avais faite est basée sur le meme principe avec redim preserve
Au plaisir