Bonjour,
Avec mon code qui rempli une listview1 selon choix ComboBox1 : comment je peux indiquer sur quel feuille de mon classeur il doit s'executer , sans utiliser Sheets("Entrée").Select ou Sheets("Entrée").Activate ?
j'ai essayé With Sheets("Entrée") , mais ça marche pas .
je vous remerci d'avance
Avec mon code qui rempli une listview1 selon choix ComboBox1 : comment je peux indiquer sur quel feuille de mon classeur il doit s'executer , sans utiliser Sheets("Entrée").Select ou Sheets("Entrée").Activate ?
j'ai essayé With Sheets("Entrée") , mais ça marche pas .
je vous remerci d'avance
Code:
Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)
End Sub
Private Sub UserForm_Initialize()
Sheets("Entrée").Select
Dim Vcol As Byte, Colonne(4) As Byte, vC As Range, vLi As Long
With ListView1
.Gridlines = True
.Font.Size = 15
.Sorted = False
.FullRowSelect = True
.ListItems.Clear
.View = lvwReport
'largeurs
Wcol = Array(70, 170, 70, 50)
For Vcol = 0 To 3
Colonne(Vcol) = Wcol(Vcol)
Next
'passage par ListView pour trier
For Each vC In Range("B3:B" & [B65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Set vItem = .ListItems.Add(, , vC)
Next
For vLi = 1 To .ListItems.Count
ComboBox1 = .ListItems(vLi)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .ListItems(vLi)
Next
ComboBox1 = ""
.ListItems.Clear
With .ColumnHeaders
For Vcol = 1 To 1
.Add , , Cells(2, Vcol), Wcol(Vcol - 1)
Next
For Vcol = 2 To 4
.Add , , Cells(2, Vcol), Wcol(Vcol - 1), lvwColumnCenter
Next
End With
End With
Autorise = True
End Sub
Private Sub ComboBox1_Change()
If Autorise = False Then Exit Sub
Dim vItem As ListItem, vLi As Integer
With ListView1
.ListItems.Clear
For Each vC In Range("B2:B" & [B65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible)
If ComboBox1 = vC Then
Set vItem = .ListItems.Add(, , vC.Offset(, -1))
For Vcol = 2 To 4
vItem.ListSubItems.Add , , vC.Offset(, Vcol - 2)
Next
End If
Next
ComboBox1.DropDown
TextBox1 = .ListItems.Count
If (ListView1.ListItems.Count <> 0) Then
ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible
End If
End With
End Sub