listview besoin aide

[clergue]

<< bonjour au forum

<< j'aurais besoin d'un coup de pouce pour une listview

<< Quelque problème sur le code tous est dans le classeur


<< Merci pour votre aide

 

[RENAUDER]

Re : listview besoin aide

Bonjour,
Je te joins un exemple de Listview avec Excel.
Ce n'est pas de moi mais cela peut t'aider

 

[clergue]

Re : listview besoin aide

<< Merci pour l'exemple mais j'aurais voulu savoir pourquoi au niveau de la combo elle se rempli pas et au niveau de la prevualisation elle m'imprime pas les donnees ?

<< Merci encore pour ton exemple

 

[RENAUDER]

Re : listview besoin aide

Quelles sont les données que tu veux mettre dans ta combo ?
En général c'est sur l'évenement Initialie ou Active qu'on rempli
la combobox

 

[clergue]

Re : listview besoin aide

<< Sur la la colonne (A) Num Facture la combo doit prendre les n° 1-2-3...
et me reporter dans la listview les correspondance du n° 1-2-3...

<< et ensuite sur le command Button prevualiser reporter les donnees sur la feuille impression .

<< Merci.

 

[Hervé]

Re : listview besoin aide

bonjour

essaye d'enlever le 1 au nom de ta procédure initialize :

Private Sub UserForm_Initialize()

et non

Private Sub UserForm1_Initialize()

quelque soit le nom d'un userform, sa procédure attachée initialize est toujours userform-initialize.

j'ai pas regardé le reste?

salut

 

[Hervé]

Re : listview besoin aide

re 🙂

modifie ta procédure initialise comme ceci :

Private Sub UserForm_Initialize()
Dim DerLgn As Integer, L As Integer
Dim NumFact As Collection
Dim i As Integer

Me.Caption = T
With Worksheets("Feuil1")
DerLgn = .Range("A65535").End(xlUp).Row
TabTemp = .Range(.Cells(2, 1), .Cells(DerLgn, 11)).Value

For i = UBound(TabTemp) - 1 To 1 Step -1
    If TabTemp(i, 1) = "" Then
        TabTemp(i, 1) = TabTemp(i + 1, 1)
    End If
Next i

Set NumFact = New Collection
For L = 1 To UBound(TabTemp, 1)
On Error Resume Next
  NumFact.Add TabTemp(L, 1), CStr(TabTemp(L, 1))
On Error GoTo 0

Next
For L = 1 To NumFact.Count
UserForm1.ComboBox1.AddItem NumFact(L)

Next
End With
With UserForm1
     .ListView1.View = 3
End With
End Sub

et change le type de la variable L de la procédure ComboBox1_Change : dim L as integer.

salut

 

[clergue]

Re : listview besoin aide

<< EXCAT j'ai bien retifier maintenant la combo prend la colonne A mais les donnees se reporte pas dans la listview.

merci encore pour l'info

 

[RENAUDER]

Re : listview besoin aide

Je t'ai modifié le code pour :
1 - Afficher la liste des factures dans la ComboBox
2 - Lorsque tu sélectionnes un N° de facture dans la ComboBox, toutes les lignes (y compris le Total ?) concernant cette facture s'affiche dans la ListView.

Par contre j'ai été obligé de dupliquer les N° de facture pour chaque ligne
de ton fichier.

 

[clergue]

Re : listview besoin aide

<< Super tous fonctionne bien je te remercie et merci a toi et au ce forum génial