XL 2013 VBA problème remplissage ListBox avec .Column

[agourn]

Bonjour à tous,
merci de voir ce code qui me donne un message d'erreur : impossible de définir la propriété Column.

With Me.malistbox

Nb_list=.listcount

for i=0 to Nb_List-1

x=.List(i)

  'code pour calculer 6 paramètres Aj, j=1 à 6 fonction de x

.column(1,i)=A1

.column(2,i)=A2

'etc



next i

merci à vous

 

[ChTi160]

Bonjour agourn
peut être ainsi
i étant la ligne cible
.Column(i,1)et .Column(i,2)
Ou plus simple
.List(i,1)=A1 et .List(i,2)=A2
Non testé pas d'ordi
Jean marie

 

[_Thierry]

Bonjour @agourn , @ChTi160 , le Forum

Ca fait quelques posts où je vois que tu n'as plus d'ordi Jean Marie ? Tu l'as fait crâmé pendant le confinement ? LoL !!!

Pour le problème, cette "malistbox" est-elle au moins multi-colonnes ?

With Me.MaListBox
.ColumnHeads = False
.ColumnCount = 5
.ColumnWidths = "120,100,80,100,100"
End With

Pour le reste je n'ai pas testé sans fichier exemple...

Bon dimanche
@+Thierry

 

[agourn]

oui multicolonnes, il y les 2 lignes suivantes après with me.malistbox

                     .ColumnCount = 6
                     .ColumnWidths = "35;100;40;40;40;60;50"

 

[agourn]

et avec .list(i,1), .list(i,2), etc même problème. Très curieux.

 

[ChTi160]

Re
Bonjour Thierry
J'espère que tu vas bien?
Arff !
PC portable 11ans et après passage w10 écran noir et bleu etc etc
Mais bon me reste le téléphone lol
Bonne continuation
Jean marie

 

[agourn]

petite indication : colonne 0 pré-remplie, j'essaie de remplir les autres colonnes.
j'ai l'impression que .Column ne fonctionne qu'après un .additem, c-à-d après avoir créé une ligne, on peut remplir le reste de la ligne.

 

[ChTi160]

Re
agourn
Ta listbox est remplie au moins?
Un petit fichier exemple pourra aider ceux qui peuvent tester lol
Jean marie

 

[ChTi160]

Oups
On c'est croisé lol
Alors peut être mettre les colonnes a vide lors du pret remplissage de la colonne 0 pour ensuite pouvoir modifier les colonnes.
Jean marie

 

[agourn]

le fichier dans lequel se trouve la listbox est un gros programme, ça va juste vous ennuyer. Le code de la listbox est vraiment celui écrit dans ce post. C'est un extrait tout bête.

 

[ChTi160]

Re
Tu as aussi
Columncount=6 et 7 colonnes délimitées
Comment est preremplie ta listbox pas par "RowSource"
A voir
Jean marie

 

[agourn]

                With me.MaListBox
                .ColumnHeads = False
                     .ColumnCount = 7
                     .ColumnWidths = "35;100;40;40;40;60;50" 
                      Nb_List = .ListCount
            
                 For i = 0 To Nb_List - 1
                        x = .List(i) * 100
                        
                        A1 = Application.VLookup(x, PVLP.Range, 2, False)
                        A2 = Application.VLookup(x, PVLP.Range, 3, False)
                        A3 = Application.VLookup(x, PVLP.Range, 4, False)
                        A4 = Xquantite(i)
                        A5 = A3 / A1
                        A6 = A4 / A2
                        
                        
                        .Column(1, i) = A1
                        .Column(2, i) = A2
                        .Column(3, i) = A3
                        .Column(4, i) = A4
                        .Column(5, i) = A5
                        .Column(6, i) = A6
      
                  Next i

Il n'y a pas plus simple.

 

[ChTi160]

Ah évidemment lol

 

[agourn]

La listbox, colonne 0, est pré-remplie dans une boucle d'un tableau simple, ça marche bien.
je vais certainement remplir d'abord un tableau 2D. C'est moins élégant.

 

[ChTi160]

Re

Tu ne peux ajouter la procédure au remplissage de cette colonne 0
Soit .Adfitem xxxx 'ta donnee
X=.List(.Listcount-1,0)*100
Définir A1aA6
Puis .List(.Listcount-1,1)=A1
Etc Etc
Et la suite non testé
Désolé pas d'ordi
jean marie