Je crée un listbox alimentée par une feuille excel. Ex( Nom, prénom,
adresse, cp, ville)
J'aimerai que les colonnes de la listbox s'adapte aux contenus
Voici le code d'initialisation de la listbox
Private Sub UserForm_Initialize()
Dim Data()
Dim i As Integer
ReDim Data(10, 2)
For i = 0 To 10
Data(i, 0) = Sheets("F1").Cells(i + 1, 2).Value
Data(i, 1) = Sheets("F1").Cells(i + 1, 3).Value
Data(i, 2) = Sheets("F1").Cells(i + 1, 4).Value
Next i
ListBox1.List = Data
ListBox1.ColumnCount = 3
End Sub
Existe t'il une méthode pour redimensionné ces colonnes car la colonne de
nom est souvent trop grande alors que l'adresse est souvent trop petite
et je ne peux pas prévoir la longueur max de chaque colonne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Tu peux utiliser une ListView à la place.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
oscarima wrote:
Bonjour,
Je crée un listbox alimentée par une feuille excel. Ex( Nom, prénom, adresse, cp, ville)
J'aimerai que les colonnes de la listbox s'adapte aux contenus
Voici le code d'initialisation de la listbox
Private Sub UserForm_Initialize() Dim Data() Dim i As Integer ReDim Data(10, 2) For i = 0 To 10 Data(i, 0) = Sheets("F1").Cells(i + 1, 2).Value Data(i, 1) = Sheets("F1").Cells(i + 1, 3).Value Data(i, 2) = Sheets("F1").Cells(i + 1, 4).Value Next i ListBox1.List = Data ListBox1.ColumnCount = 3 End Sub
Existe t'il une méthode pour redimensionné ces colonnes car la colonne de nom est souvent trop grande alors que l'adresse est souvent trop petite et je ne peux pas prévoir la longueur max de chaque colonne
Des idées
Merci d'avance
Salut,
Tu peux utiliser une ListView à la place.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
oscarima wrote:
Bonjour,
Je crée un listbox alimentée par une feuille excel. Ex( Nom, prénom,
adresse, cp, ville)
J'aimerai que les colonnes de la listbox s'adapte aux contenus
Voici le code d'initialisation de la listbox
Private Sub UserForm_Initialize()
Dim Data()
Dim i As Integer
ReDim Data(10, 2)
For i = 0 To 10
Data(i, 0) = Sheets("F1").Cells(i + 1, 2).Value
Data(i, 1) = Sheets("F1").Cells(i + 1, 3).Value
Data(i, 2) = Sheets("F1").Cells(i + 1, 4).Value
Next i
ListBox1.List = Data
ListBox1.ColumnCount = 3
End Sub
Existe t'il une méthode pour redimensionné ces colonnes car la
colonne de nom est souvent trop grande alors que l'adresse est
souvent trop petite et je ne peux pas prévoir la longueur max de
chaque colonne
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
oscarima wrote:
Bonjour,
Je crée un listbox alimentée par une feuille excel. Ex( Nom, prénom, adresse, cp, ville)
J'aimerai que les colonnes de la listbox s'adapte aux contenus
Voici le code d'initialisation de la listbox
Private Sub UserForm_Initialize() Dim Data() Dim i As Integer ReDim Data(10, 2) For i = 0 To 10 Data(i, 0) = Sheets("F1").Cells(i + 1, 2).Value Data(i, 1) = Sheets("F1").Cells(i + 1, 3).Value Data(i, 2) = Sheets("F1").Cells(i + 1, 4).Value Next i ListBox1.List = Data ListBox1.ColumnCount = 3 End Sub
Existe t'il une méthode pour redimensionné ces colonnes car la colonne de nom est souvent trop grande alors que l'adresse est souvent trop petite et je ne peux pas prévoir la longueur max de chaque colonne
