Listbox propriete columnwidths

[Regueiro]

BONSOIR LE FORUM
Sur un de mes fichiers une MACRO fonctionnais jusqu'à hier.
Depuis ce matin suite à la MISE A JOUR DE WINDOWS, plus rien ne va.

With Me.ListBox1
        .Clear
        .ColumnCount = nbcol
       .List = Plage.Value
       
        'Format perso pour la première colonne de la ListBox soit 0
            For i = 0 To ListBox1.ListCount - 1
                .List(i, 0) = Format(.List(i, 0), "00000")
            Next i
        
            For i = 1 To nbcol
                temp = temp & Plage.Columns(i).Width * 0.9 & ";"
            Next i
        .ColumnWidths = temp
      
    End With

J'ai ce MESSAGE



Le code doit mettre la largeur des colonnes du ListBox comme celle de mon Tableau.
Voici également mon fichier.
Merci
A+

 

[job75]

Re : Listbox propriete columnwidths

Bonsoir Regueiro,

C'est peut-être le même problème que celui-ci :

https://www.excel-downloads.com/thr...jour-office-paroles-de-la-maison-mere.226943/

C'est le même si en plus vous ne pouvez pas créer des objets ActiveX sur une feuille de calcul.

Bonne nuit.

 

[Regueiro]

Re : Listbox propriete columnwidths

BONSOIR JOB75
MERCI pour la Réponse, mais incompréhensible ?
QUE dois-je faire ?
Merci
A+

 

[Regueiro]

Re : Listbox propriete columnwidths

RE
J'ai bien Exécuter la réparation comme indiquer dans votre lien.
Soit réparation en ligne.
Redémarrer le PC
Mais le problème persiste ??
A+

 

[Regueiro]

Re : Listbox propriete columnwidths

BONSOIR LE FORUM
Bon j'ai trouver le problème.
C'est une question de virgule au lieu de point.
Il faut simplement rajouter :

temp = Replace(temp, ".", ",")

For i = 1 To nbcol
    temp = temp & Plage.Columns(i).Width * 0.9 & ";"      
Next i
temp = Replace(temp, ".", ",")

        .ColumnWidths = temp