gothc
XLDnaute Occasionnel
Bonsoir j'ai besoin de votre aide je voudrais pouvoir lire la colonne C
actuellement jai la colonne a et B j'aimerais C en plus
Merci
Private Sub CommandButton1_Click()
Dim i%, zone$, zoneimp$
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
zone = zone & ListBox2.List(i, 1) & ","
End If
Next
zone = Left(zone, Len(zone) - 1)
zoneimp = Replace(zone, ",", ":")
Me.Hide
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
With Sheets(ListBox1.List(i))
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = zoneimp
.Range(zoneimp).EntireColumn.Hidden = True 'masque tout
.Range(zone).EntireColumn.Hidden = False 'affichage partiel
'.PrintOut ' à décocher pour imprimer
.PrintPreview ' à cocher pour imprimer
.Range(zoneimp).EntireColumn.Hidden = False 'affiche tout
End With
End If
Next
Me.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox2_Click()
End Sub
Private Sub UserForm_Initialize()
Dim c As Range, ws As Worksheet
For Each c In [Feuilles]
On Error Resume Next
Set ws = ThisWorkbook.Sheets(c.Text)
If Not ws Is Nothing Then
ListBox1.AddItem c
On Error GoTo 0
Set ws = Nothing
End If
Next
ListBox2.List = [Plages].Value
End Sub
actuellement jai la colonne a et B j'aimerais C en plus
Merci
Private Sub CommandButton1_Click()
Dim i%, zone$, zoneimp$
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
zone = zone & ListBox2.List(i, 1) & ","
End If
Next
zone = Left(zone, Len(zone) - 1)
zoneimp = Replace(zone, ",", ":")
Me.Hide
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
With Sheets(ListBox1.List(i))
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = zoneimp
.Range(zoneimp).EntireColumn.Hidden = True 'masque tout
.Range(zone).EntireColumn.Hidden = False 'affichage partiel
'.PrintOut ' à décocher pour imprimer
.PrintPreview ' à cocher pour imprimer
.Range(zoneimp).EntireColumn.Hidden = False 'affiche tout
End With
End If
Next
Me.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub ListBox2_Click()
End Sub
Private Sub UserForm_Initialize()
Dim c As Range, ws As Worksheet
For Each c In [Feuilles]
On Error Resume Next
Set ws = ThisWorkbook.Sheets(c.Text)
If Not ws Is Nothing Then
ListBox1.AddItem c
On Error GoTo 0
Set ws = Nothing
End If
Next
ListBox2.List = [Plages].Value
End Sub