Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Listbox propriete columnwidths

Regueiro

XLDnaute Impliqué
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.

HTML:
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+
 

Pièces jointes

  • Modif_BDD_USF_travaux-bd-test V05.xlsm
    77.8 KB · Affichages: 38
  • Modif_BDD_USF_travaux-bd-test V05.xlsm
    77.8 KB · Affichages: 48
  • Modif_BDD_USF_travaux-bd-test V05.xlsm
    77.8 KB · Affichages: 47

Regueiro

XLDnaute Impliqué
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, ".", ",")

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

        .ColumnWidths = temp
 

Discussions similaires

Réponses
4
Affichages
339
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…