Discussion :

[xoff60]

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.

[Invité]

Bonjour,

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

[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.

[Invité]

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.

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à

[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).

[Invité]

Salut Joe,

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

[patricktoulon]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub UserForm_Activate()
ListBox1.List = Range("A1:Z30").Value
ListBox1.ColumnCount = 26
End Sub

[joe.levrai]

Salut Joe,

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

C'est peut être l'unique certitude qu'on peut avoir

[Invité]

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.

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

[Invité]

Patrick,

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

Pièce jointe 310075

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[boisgontierjacques]

Bonjour,


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

Il suffit d'utiliser List ou Column.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xoff60]

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:


Voici la copie du chemin que j'utlise.

Et voici le code qui fait l'appel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[patricktoulon]

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

[boisgontierjacques]

Exemple en PJ

Testé sur Excel 2002 et Excel 2010

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

jacques boisgontier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[patricktoulon]

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