avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

[grisan29]

bonjour a vous tous
comment puis faire pour que le bouton qui se trouve sur la feuille "prod" puisse prendre ses infos sur la "feuil1"du fichier que je viens de trouvé sur le net et qui m'intéresse pour changer les données a rechercher c'est pour cela qu'il faudrait que la recherche se fasse sur une autre feuille.
le fichier s'appele combo vers listbox, mais il y a un tri sans doublon avec une listview sous la listbox
merci de votre compréhension

Pascal

 

[grisan29]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

bonjour
en rajoutant

with sheets("feuil1").activate

est ce corrct comme expression où y a t'il mieux

Pascal

 

[grisan29]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, chercher dans feuil

rebonjour a vous tous
je vous rejoint le fichier modifier avec la sheet activate qui fonctionne mais je ne comprends pas pourquoi le clic dans la combobox donne un bug erreur 380 impossible de lire la propriété list et la ligne incriminée est

.List(vLi, Vcol - 1) = Cells(Est.Row, Vcol)

quand j'augmente le nombre de colonne
donc je voudrais que la combobox puisse dérouler le nom du client qui est en col "D" qui sera parfois plusieurs fois inscrit et d'inscrire toutes les infos concernant ce client dans la listbox
la colonne "D" ne se limitera pas a l'exemple mais surement beaucoup plus de lignes

Pascal

 

[Dranreb]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

Bonsoir
J'ai eu un problème avec la ListView. J'avais un MANQUANT sur la biliothèque, il n'a jamais voulu me la mettre. Elle est à ramasser à la petite cuillère, à supposer qu'il en reste quelque chose !
Tant mieux, car elle n'était là que pour un usage bien curieux ! J'ai quand même bien mieux que ça pour des liste d'arguments classés sans doublon ! Avec même, attachées, les listes des numéros de lignes où ils apparaissent dans la plage source !

 

[BOISGONTIER]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

Bonjour,

Le ListView a été supprimé

JB

 

[grisan29]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

bonjour boisgontier,danreb et le forum

j'ai bien essayer vos solutions mais j'en suis au même point, je ne peut afficher toutes la ligne dans la listbox quand j'ai sélectionné le client, j' en suis a ce point hier soir a près multiple essai avec et sans listview
et il y a forcément des colonnes qui seront vides, le début de l'inscription dans la listbox n'est pas le choix dans la combobox mais bien la colonne A
dans le fichier de destination J'ai

option explicit

et je ne sais pas toujours comment déclarer les variables

Pascal

 

[BOISGONTIER]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

Voir PJ

ListBox n'accepte pas + 10 colonnes (sauf avec Rowsource)

Dim Tbl(), f
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Set d = CreateObject("Scripting.Dictionary")
  Tbl = f.Range("D3:P" & f.[D65000].End(xlUp).Row).Value
  For i = LBound(Tbl) To UBound(Tbl)
    If Tbl(i, 1) <> "" Then d(Tbl(i, 1)) = ""
  Next i
  temp = d.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
End Sub

Private Sub ComboBox1_Click()
     With Me.ListView1
     With .ColumnHeaders
       .Clear
       For k = 1 To 12
         .Add , , f.Cells(2, k + 3), 70
       Next k
     End With
     ligne = 1
    .Gridlines = True
    .View = lvwReport
    .ListItems.Clear
    For lig = 1 To UBound(Tbl)
      If Tbl(lig, 1) = Me.ComboBox1 Then
       .ListItems.Add , , Tbl(lig, 1)
       For k = 2 To 12
          .ListItems(ligne).ListSubItems.Add , , Tbl(lig, k)
       Next k
       ligne = ligne + 1
      End If
    Next lig
  End With
End Sub

JB

 

[grisan29]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

bonjour BOISGONTIER

merci de ta réponse, mais dans le code que tu a mis dans le post comment peut 'on démarrer l'affichage de la listview a partir de la colonne A memùe si la combo développe a partir de la colonne D

Pascal

 

[BOISGONTIER]

Re : avec un contrôle ListView pour trier et un contrôle ListBox, changer la page

Dim Tbl(), f
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Set d = CreateObject("Scripting.Dictionary")
  Tbl = f.Range("A3:P" & f.[A65000].End(xlUp).Row).Value
  For i = LBound(Tbl) To UBound(Tbl)
    If Tbl(i, 4) <> "" Then d(Tbl(i, 4)) = ""
  Next i
  temp = d.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
End Sub

Private Sub ComboBox1_Click()
     With Me.ListView1
     With .ColumnHeaders
       .Clear
       For k = 1 To 16
         .Add , , f.Cells(2, k), 55
       Next k
     End With
     ligne = 1
    .Gridlines = True
    .View = lvwReport
    .ListItems.Clear
    For lig = 1 To UBound(Tbl)
      If Tbl(lig, 4) = Me.ComboBox1 Then
       .ListItems.Add , , Tbl(lig, 1)
       For k = 2 To 16
          .ListItems(ligne).ListSubItems.Add , , Tbl(lig, k)
       Next k
       ligne = ligne + 1
      End If
    Next lig
    Me.TextBox1 = .ListItems.Count
  End With
End Sub

jb

 

[grisan29]

Re : (RESOLU)avec un contrôle ListView pour trier et un contrôle ListBox

re BOISGONTIER😎

Merci 😎 cela clos le sujet très bien mené par vos savoirs😎

Pascal