Problèmes listbox multicolonnes

Version imprimable

07/09/2017, 15h12
xoff60

1 pièce(s) jointe(s)

Problèmes listbox multicolonnes

bonjour,

Je suis en train de retravailler un userform vba avec dedans deux listbox.
La première sert de filtre pour afficher dans la listbox 2 les données.
La listbox2 est composée de 13 colonnes.
Je retrouve mes valeurs jusqu'à l 8ème colonne, la 9ème me sort un chiffre au lieu du texte et après 10 - 11 - 12 - 13 plus rien du tout.
Pourriez vous m'aider sur ce ce point qui me "pourrit" la journée.

D'avance merci pour votre aide.
07/09/2017, 15h41
Invité

Citation:

Envoyé par xoff60

Bonjour,

Sauf erreur de ma part, on ne peut dépasser 10 colonnes dans une ListBox.
07/09/2017, 16h11
xoff60

Comment puis je contourner le problème.
Cette liste box me sert de moteur de recherche et lorsque je double click sur la ligne j'ouvre un userfom qui est censé me reprendre toutes les données de la ligne selectionner dans la listbox.
07/09/2017, 16h33
Invité

Citation:

Envoyé par xoff60

Regardez la solution de Goninph dans ce post : listbox1_click-selectionner-ligne-fichier-excel

Le principe est de concaténer plusieurs colonnes en une seule et d'appliquer une recherche sur ce champ.

Bonjour,

il est parfaitement possible de dépasser les 10 colonnes quand on construit la liste via la propriété .List

sur une plage filtrée, l'astuce est de copier la plage dans une nouvelle feuille pour ensuite l'injecter

un exemple fonctionnel mais bien sûr à sécuriser au niveau du dimensionnement des colonnes car j'ai écrit en dur la dimension des 13 colonnes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub ListBox1_Click()
Dim i As Integer, Tabl
 
Me.ListBox2.Clear
 
Application.ScreenUpdating = False
    With Sheets("Database")
 
        Me.ListBox2.ColumnCount = .UsedRange.Columns.Count
        Me.ListBox2.ColumnWidths = "90;90;90;90;90;90;90;90;90;90;90;90;90"
 
        .Range("A2").AutoFilter
        .Range("A2").AutoFilter 1, Me.ListBox1.Value
 
        If pl.SpecialCells(xlCellTypeVisible).Rows.Count > 0 Then
            With Worksheets.Add
                pl.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy .Cells(1, 1)
                Me.ListBox2.List = .Cells(1, 1).CurrentRegion.Value
                Application.DisplayAlerts = False: .Delete: Application.DisplayAlerts = True
            End With
        End If
        .Range("A2").AutoFilter
    End With
Application.ScreenUpdating = True
End Sub

les 13 colonnes sont bien là

07/09/2017, 17h01
xoff60

Effectivement j'ai explorer cette option le problème est que je n'arrive pas a pas reprendre les données concatainer pour les séparer dans différent label à l'ouverture de l'userform (double click dans ma listbox).
07/09/2017, 17h01
Invité

Citation:

Envoyé par joe.levrai

Salut Joe,

On ne peut donc jamais être sûr de rien.:ccool:
07/09/2017, 17h03
patricktoulon

1 pièce(s) jointe(s)

re
Bonjour

@Eric depuis quand les listbox ne peuvent pas avoir plus de 10 colonnes ??
Code:

1 2 3 4 Private Sub UserForm_Activate() ListBox1.List = Range("A1:Z30").Value ListBox1.ColumnCount = 26 End Sub
Pièce jointe 310055
07/09/2017, 17h04
joe.levrai

Citation:

Envoyé par Eric KERGRESSE

Salut Joe,

On ne peut donc jamais être sûr de rien.:ccool:

C'est peut être l'unique certitude qu'on peut avoir :mrgreen:
07/09/2017, 17h13
Invité

Citation:

Envoyé par patricktoulon

Salut Patrick,

J'ai été confronté à ce problème sur une de mes appli et je n'ai pu dépasser cette limite. Maintenant, je suis très prudent dans mes affirmations, je mets maintenant "Sauf erreur de ma part", car comme répondu à Joe, je ne suis plus sûr de rien.:chin:

re
Code:

1 2 3 Me.ListBox2.ColumnCount = .UsedRange.Columns.Count Me.ListBox2.ColumnWidths = "90;90;90;90;90;90;90;90;90;90;90;90;90"
le columnwidths peut etre aussi dynamique histoire d'être précis

exemple
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Activate() Set plage = Range("A1:Z30") With ListBox1 .List = plage.Value .ColumnCount = 26 .ColumnWidths = Replace(Trim(Application.Rept("20 ", plage.Columns.Count)), " ", ";") MsgBox .ColumnWidths End With End Sub
peut être a tu essayé une plage avec x colonnes invisible ou non contiguës au quel cas la oui il risque d'avoir un souci (il faut utiliser la copie de cette plage )

07/09/2017, 17h20
Invité

Citation:

Envoyé par patricktoulon

Patrick,

Voilà ce qui m'a fait écrire cela (extrait de l'aide VBA d'Excel)

Pièce jointe 310075

effectivement sur une source indépendante (construction dynamique ca plante a 10 colonnes par additem )
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub UserForm_Activate() ligne = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26) Set plage = Range("A1:Z30") With ListBox1 '.List = plage.Value .ColumnCount = 26 .ColumnWidths = Replace(Trim(Application.Rept("20 ", UBound(ligne))), " ", ";") For l = 0 To 20 ListBox1.AddItem ligne(0) For c = 1 To 25 ListBox1.List(i, c) = ligne(c) Next Next MsgBox .ColumnWidths End With End Sub
par contre exactement la meme chose
mais issue de l'application d'une variable tableau predimensionné même si ca reste une source indépendante
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub UserForm_Activate() ligne = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26) ReDim tablo(30, 26) With ListBox1 .List = tablo .ColumnCount = 26 .ColumnWidths = Replace(Trim(Application.Rept("20 ", UBound(ligne))), " ", ";") For l = 0 To 29 For c = 0 To 25 ListBox1.List(l, c) = ligne(c) Next Next MsgBox .ColumnWidths End With End Sub
et pour finir
si on veut une construction dynamique par additen dimensionner d'abords la listbox a 1 ligne sur x colonnes
remplir l'index ligne(0) puis additem
problème détourné

a bien mémoriser

il manque les explication sur ce point dans l'aide
a bon entendeur ;)

dans l'aide on aurais pu y mettre

Citation:

une listbox alimenté ligne par ligne a une limite de 10 colonnes par contre une listbox peut recevoir une variable tableau ou range.value avec une dimension de plus de 10 colonnes

mais quéky fout' chez MS;)

1 pièce(s) jointe(s)

Bonjour,

Sauf erreur de ma part, on ne peut dépasser 10 colonnes dans une ListBox.

Il suffit d'utiliser List ou Column.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Dim f, BD, ColVisu(), Ncol
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  ColVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13) ' Colonnes à visualiser (adapter)
  Ncol = UBound(ColVisu) + 1
  Set d = CreateObject("Scripting.Dictionary")
  BD = f.Range("A2:N" & f.[A65000].End(xlUp).Row)
  '---- ComboBox sans doublons
  For i = LBound(BD) To UBound(BD)
     If BD(i, 1) <> "" Then d(BD(i, 1)) = ""
  Next i
  ComboBox1.List = d.keys   ' sans tri
   '---- Contenu ListBox initial
  Dim Tbl(): ReDim Tbl(1 To UBound(BD), 1 To Ncol)
  For i = 1 To UBound(BD)
      c = 0
      For Each k In ColVisu
        c = c + 1: Tbl(i, c) = BD(i, k)
      Next k
  Next i
  Me.ListBox1.List = Tbl
End Sub
 
Private Sub ComboBox1_click()
  Dim Tbl(): j = 0
  For i = 1 To UBound(BD)
    If BD(i, 1) = Me.ComboBox1 Then
      j = j + 1: ReDim Preserve Tbl(1 To Ncol, 1 To j)
      c = 0
      For Each k In ColVisu
        c = c + 1: Tbl(c, j) = BD(i, k)
      Next k
    End If
  Next i
  Me.ListBox1.Column = Tbl
End Sub

Boisgontier
http://boisgontierjacques.free.fr

1 pièce(s) jointe(s)

Merci à vous tous de m'aider.
Je vais pouvoir avancer sur le sujet grace à toutes ces réponses.

Sans vouloir abuser de votre temps , mon autre problème est d'afficher une photo dans Userform depuis un workplace.
J'arrive à faire l'appel quand l'image est sauvegarder sur le PC mais je n'arrive pas à faire la même chose avec un chemin d'accès http:
Pièce jointe 310107

Voici la copie du chemin que j'utlise.

Et voici le code qui fait l'appel:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 With UserForm2 .Label100 = Me.ListBox2.List(Compteur, 0) .Label101 = Me.ListBox2.List(Compteur, 1) .Label102 = Me.ListBox2.List(Compteur, 2) .Label103 = Me.ListBox2.List(Compteur, 3) .Label104 = Me.ListBox2.List(Compteur, 4) .Label105 = Me.ListBox2.List(Compteur, 5) .Label106 = Me.ListBox2.List(Compteur, 6) .Label107 = Me.ListBox2.List(Compteur, 7) .Image1.Picture = LoadPicture(Me.ListBox2.List(Compteur, 8)) .Label108 = Me.ListBox2.List(Compteur, 9) .Label109 = Me.ListBox2.List(Compteur, 10) .Label110 = Me.ListBox2.List(Compteur, 11) .Label111 = Me.ListBox2.List(Compteur, 12) .Show
Ce code fonctionne depuis une image sur le disque dur mais depuis explorateur internet (internet explorer).

07/09/2017, 19h31
patricktoulon

re

bonjour

il te faut soit
télécharger l'image (api urldownloadfile ou requête et écriture dans un fichier solide ) puis loader l'image

soit avec filluserpicture dans un shape directement si tu en connais les proportions

2 pièce(s) jointe(s)

Exemple en PJ

Testé sur Excel 2002 et Excel 2010

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  s = "https://www.google.fr/images/srpr/logo11w.png"
  Set img = ActiveSheet.Pictures.Insert(s)
  img.Left = 1
  img.Top = 1
  img.CopyPicture
  f.ChartObjects.Add(0, 0, img.Width, img.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
  img.Delete
End Sub

Boisgontier
http://boisgontierjacques.free.fr

un exemple très simple si tu en connais les proportions avec une Shape rectangle
Code:

1 2 3 4 5 Sub test() URL = "https://gabarit.developpez.be/images/logo.png" Set shap = ActiveSheet.Shapes.AddShape(1, 0, 0, 300, 100) shap.Fill.UserPicture (URL) End Sub

jacques boisgontier
Code:

1 2 3 Private Sub CommandButton1_Click() Me.Image1.Picture = LoadPicture("https://www.google.fr/images/srpr/logo11w.png") End Sub
ca m'étonnerait que cela fonctionne (png)

07/09/2017, 20h17
patricktoulon

1 pièce(s) jointe(s)

re

re
désolé jacques mais pour le 2d exemple de fichier
c'est pas bon non plus méthode picture .insert(excel 2007) j'ai des doutes

dans le doute j'ai quand même essayé une autre url d'image mais ca marche pas non plus

Pièce jointe 310125
07/09/2017, 20h36
boisgontierjacques

Je n'ai jamais écrit ça:

Private Sub CommandButton1_Click()
Me.Image1.Picture = LoadPicture("https://www.google.fr/images/srpr/logo11w.png")
End Sub

Je n'aime pas la malhonnêteté.

Mon programme a été testé en Excel 2002 et Excel2010

Boisgontier!
07/09/2017, 21h11
patricktoulon

1 pièce(s) jointe(s)

re

re
jacques je ne vois pas de raison de dire ce qui ne serait pas
preuve capture c'est bien ton premier fichier non?

Pièce jointe 310135
07/09/2017, 21h19
xoff60

1 pièce(s) jointe(s)

Bon après de multiple essais suite à vos réponses, je n'arrive pas a charger l'image souhaité.
J'ai essayé les différentes méthodes proposées.
je dois passer à coter de quelques choses, mais je ne vois pas.
De plus je ne sais pas si cela à une influence mais le chemin d'accès vient d'un site intranet (entreprise).
Pièce jointe 310136

Je vous remet le fichier en question, si une ame charitable pouvez modifier mon code afin d'y intégrer une de vos propositions. Cela m'évitera certainement une nuit blanche :?:?

si ca intéresse quelqu'un voil 36 manière d'y arriver sur un userform
https://www.developpez.net/forums/d1...?highlight=ico

jacques si cela t'interesse voila coment je telecharge une image (sauf png) et la met dans un control image

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
    With Image1
         CHEMIN = ThisWorkbook.Path & "\imagetemp.jpg"
           .Picture = LoadPicture(Image_par_UrL("http://www.voirlemonde.com/img/paques.jpg"))
             End With
        Kill ThisWorkbook.Path & "\imagetemp.jpg"
End Sub
'
'
Function Image_par_UrL(url As String, CHEMIN) As String
    Dim CHEMIN As String
    Dim ReQ As Object, oStream As Object
    On Error Resume Next    'On ne gère pas les erreurs
    Set ReQ = CreateObject("Microsoft.XMLHTTP")
    ReQ.Open "get", url, False: ReQ.send
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open: oStream.Type = 1: oStream.Write ReQ.responsebody: oStream.SaveToFile CHEMIN: oStream.Close
    Image_par_UrL = CHEMIN
    Set oStream = Nothing: Set ReQ = Nothing
End Function

pour le intranet il te faut être connecté a ce réseau si tu est chez toi tu risque pas d'y arriver a moins qu'une connexion externe y ai été paramétrée

12/09/2017, 14h18
xoff60

1 pièce(s) jointe(s)

Bonjour Patrick,

Merci pour ton aide précieuse, je suis désolé de ne pas avoir donner suite à vos réponse mais je ne pouvais pas avant ce jour.
Concernant le problème pour afficher une image venant d'internet, j'ai commencé à regarder de plus prés vos solutions.

Pour le problème de multicolones dans la listbox, ta solution répond à mes attentes, seulement maintenant si je me retrouve avec plus de deux lignes ma listbox, je n'arrive plus a faire le double clic sur la ligne voulu.
En effet le doubleclic ne fonctionne que sur la première ligne....
J'ai regardé dans les preopriétés mais je ne vois rien qui pourrait m'aider.

Pièce jointe 311105