Re : Afficher les données dans listbox selon la feuille choisie dans un classeur
Bonjour Papou,
c'est exactement ce que je souhaite faire mais quand je l'ai mis dans mon programme, la listbox1 rétrécit à chaque changement d'année et il n'y a rien d'afficher dedans. Pour le moment le nombre de saisie, je laisse tomber
j'ai ajouté la feuille synthèse. J'ai un autre usf avec listbox dont je veux afficher les données et
Je veux utiliser de combobox dont 1 pour choisir le service à afficher et 1 pour choisir le type d'emballage à afficher.
Private Sub ComboBox2_Click()
'filtre selon type emballages
Dim Plage As Range, Est, Add As String, vLi As Integer, Vcol As Byte
With ListBox1
.Clear
.ColumnCount = 7
.ColumnWidths = "48;130;145;60;50;0;40;0"
Set Plage = Range("C2:C" & [A65000].End(xlUp).Row)
Set Est = Plage.Find(ComboBox2)
If Not Est Is Nothing Then
Add = Est.Address
Do
.AddItem Cells(Est.Row, 1)
For Vcol = 1 To 9
.list(vLi, Vcol - 1) = Cells(Est.Row, Vcol)
Next
vLi = vLi + 1
Set Est = Plage.FindNext(Est)
Loop While Not Est Is Nothing And Est.Address <> Add
End If
End With
End Sub
Et pour les 2 : liste commande par période et synthèse :
je souhaite afficher dans des textbox les détails de la ligne sélectionnée dans listbox.
Le fichier dont j'ai fais mon programme est trop volumineux : pour la saisie de chaque année, j'ai utilisé un combobox (pour choisir la feuille de transfère des données : ex feuille 2013 ou dans feuille 2013) mais je coince pour passer d'une feuille à l'autre .
Merci à l'avance.
Jb77