tu peux me renseigner pour les ColumnHeads quand on utilise pas RowSources ?
michdenis
Bonjour DOC Prod,
Sans l'utilisation de RowSources pour renseigner le combobox, tu devras programmer toi-même dans ta procédure les en-têtes de colonnes dans la première ligne de données de ton combobox.
Ceci étant dit, Esthétiquement, il y aura absence de la ligne séparatrice entre la ligne d'en-tête et les données. Tu ne dois pas définir la propriété ColumnHeads à true, tu risques de te retrouver avec une ligne blanche en première ligne de ton combobox.
Salutations!
"DOC Prod" a écrit dans le message de news: helo clément,
y a rien laba
tu peux me renseigner pour les ColumnHeads quand on utilise pas RowSources ?
Bonjour DOC Prod,
Sans l'utilisation de RowSources pour renseigner le combobox, tu devras programmer toi-même dans ta procédure les en-têtes de
colonnes dans la première ligne de données de ton combobox.
Ceci étant dit, Esthétiquement, il y aura absence de la ligne séparatrice entre la ligne d'en-tête et les données. Tu ne dois pas
définir la propriété ColumnHeads à true, tu risques de te retrouver avec une ligne blanche en première ligne de ton combobox.
Salutations!
"DOC Prod" <scarboncanou@wanadoo.fr> a écrit dans le message de news: 1129794889.371371.247120@g43g2000cwa.googlegroups.com...
helo clément,
y a rien laba
tu peux me renseigner pour les ColumnHeads quand on utilise pas
RowSources ?
Sans l'utilisation de RowSources pour renseigner le combobox, tu devras programmer toi-même dans ta procédure les en-têtes de colonnes dans la première ligne de données de ton combobox.
Ceci étant dit, Esthétiquement, il y aura absence de la ligne séparatrice entre la ligne d'en-tête et les données. Tu ne dois pas définir la propriété ColumnHeads à true, tu risques de te retrouver avec une ligne blanche en première ligne de ton combobox.
Salutations!
"DOC Prod" a écrit dans le message de news: helo clément,
y a rien laba
tu peux me renseigner pour les ColumnHeads quand on utilise pas RowSources ?
DOC Prod
salut michdenis !
ouai , pour l'instant j'en suis là (c'est un listbox)
merci quand même
salut michdenis !
ouai , pour l'instant j'en suis là (c'est un listbox)
listbox ou combobox, c'est le même fonctionnement à l'égard des en-têtes de colonnes.
Salutations!
"DOC Prod" a écrit dans le message de news: salut michdenis !
ouai , pour l'instant j'en suis là (c'est un listbox)
merci quand même
DOC Prod
j'avais pas vu mais on est plus hier on est aujourd'hui alors bonjour
si tu connais bien les list box
quel procédure écrirais tu pour affecter les valeurs d'un tableau à la liste. (en conservant l'organisation lign col)
car je trouve la mienne pas terrible - risque de perte de vitesse si plusieurs liste "liées" sont modifiées en même temps - merci à plus (ou bonne nuit)
j'avais pas vu mais on est plus hier on est aujourd'hui
alors bonjour
si tu connais bien les list box
quel procédure écrirais tu pour affecter les valeurs d'un tableau à
la liste.
(en conservant l'organisation lign col)
car je trouve la mienne pas terrible
- risque de perte de vitesse si plusieurs liste "liées" sont
modifiées en même temps -
merci
à plus (ou bonne nuit)
j'avais pas vu mais on est plus hier on est aujourd'hui alors bonjour
si tu connais bien les list box
quel procédure écrirais tu pour affecter les valeurs d'un tableau à la liste. (en conservant l'organisation lign col)
car je trouve la mienne pas terrible - risque de perte de vitesse si plusieurs liste "liées" sont modifiées en même temps - merci à plus (ou bonne nuit)
michdenis
Bonjour DOC Prod,
Voici 3 variantes quant à la façon d'initialer un listbox :
'------------------------------- Sub Initialer_ListBox1()
Dim Tblo As Variant With Worksheets("Feuil1") Tblo = .Range("A1:C" & .Range("A65536").End(xlUp).Row) With Me.ListBox1 .ColumnCount = 3 .ColumnWidths = "25;40;35" .List = Tblo End With End With
End Sub
'------------------------------- Sub Initialer_ListBox12()
Dim R As Range, Rg As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:C" & .Range("A65536").End(xlUp).Row) With Me.ListBox1 .ColumnCount = 3 .ColumnWidths = "25;40;35" .Clear For Each R In Rg.Rows .AddItem R.Cells(1, 1) .List(R.Row - 1, 1) = R.Cells(1, 2) .List(R.Row - 1, 2) = R.Cells(1, 3) Next End With End With Set R = Nothing: Set Rg = Nothing
End Sub '------------------------------- Sub Initialer_ListBox13()
Dim R As Range, Rg As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:C" & .Range("A65536").End(xlUp).Row) With Me.ListBox1 .ColumnCount = 3 .ColumnWidths = "25;40;35" .Clear For Each R In Rg.Rows .AddItem R.Cells(1, 1) .Column(R.Column, R(1).Row - 1) = R.Cells(1, 2) .Column(R.Column + 1, R(1).Row - 1) = R.Cells(1, 3) Next End With End With Set Rg = Nothing: Set R = Nothing
End Sub '-------------------------------
Salutations!
"DOC Prod" a écrit dans le message de news: j'avais pas vu mais on est plus hier on est aujourd'hui alors bonjour
si tu connais bien les list box
quel procédure écrirais tu pour affecter les valeurs d'un tableau à la liste. (en conservant l'organisation lign col)
car je trouve la mienne pas terrible - risque de perte de vitesse si plusieurs liste "liées" sont modifiées en même temps - merci à plus (ou bonne nuit)
Bonjour DOC Prod,
Voici 3 variantes quant à la façon d'initialer un listbox :
'-------------------------------
Sub Initialer_ListBox1()
Dim Tblo As Variant
With Worksheets("Feuil1")
Tblo = .Range("A1:C" & .Range("A65536").End(xlUp).Row)
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "25;40;35"
.List = Tblo
End With
End With
End Sub
'-------------------------------
Sub Initialer_ListBox12()
Dim R As Range, Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:C" & .Range("A65536").End(xlUp).Row)
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "25;40;35"
.Clear
For Each R In Rg.Rows
.AddItem R.Cells(1, 1)
.List(R.Row - 1, 1) = R.Cells(1, 2)
.List(R.Row - 1, 2) = R.Cells(1, 3)
Next
End With
End With
Set R = Nothing: Set Rg = Nothing
End Sub
'-------------------------------
Sub Initialer_ListBox13()
Dim R As Range, Rg As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:C" & .Range("A65536").End(xlUp).Row)
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "25;40;35"
.Clear
For Each R In Rg.Rows
.AddItem R.Cells(1, 1)
.Column(R.Column, R(1).Row - 1) = R.Cells(1, 2)
.Column(R.Column + 1, R(1).Row - 1) = R.Cells(1, 3)
Next
End With
End With
Set Rg = Nothing: Set R = Nothing
End Sub
'-------------------------------
Salutations!
"DOC Prod" <scarboncanou@wanadoo.fr> a écrit dans le message de news: 1129849922.939852.228720@f14g2000cwb.googlegroups.com...
j'avais pas vu mais on est plus hier on est aujourd'hui
alors bonjour
si tu connais bien les list box
quel procédure écrirais tu pour affecter les valeurs d'un tableau à
la liste.
(en conservant l'organisation lign col)
car je trouve la mienne pas terrible
- risque de perte de vitesse si plusieurs liste "liées" sont
modifiées en même temps -
merci
à plus (ou bonne nuit)
Voici 3 variantes quant à la façon d'initialer un listbox :
'------------------------------- Sub Initialer_ListBox1()
Dim Tblo As Variant With Worksheets("Feuil1") Tblo = .Range("A1:C" & .Range("A65536").End(xlUp).Row) With Me.ListBox1 .ColumnCount = 3 .ColumnWidths = "25;40;35" .List = Tblo End With End With
End Sub
'------------------------------- Sub Initialer_ListBox12()
Dim R As Range, Rg As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:C" & .Range("A65536").End(xlUp).Row) With Me.ListBox1 .ColumnCount = 3 .ColumnWidths = "25;40;35" .Clear For Each R In Rg.Rows .AddItem R.Cells(1, 1) .List(R.Row - 1, 1) = R.Cells(1, 2) .List(R.Row - 1, 2) = R.Cells(1, 3) Next End With End With Set R = Nothing: Set Rg = Nothing
End Sub '------------------------------- Sub Initialer_ListBox13()
Dim R As Range, Rg As Range
With Worksheets("Feuil1") Set Rg = .Range("A1:C" & .Range("A65536").End(xlUp).Row) With Me.ListBox1 .ColumnCount = 3 .ColumnWidths = "25;40;35" .Clear For Each R In Rg.Rows .AddItem R.Cells(1, 1) .Column(R.Column, R(1).Row - 1) = R.Cells(1, 2) .Column(R.Column + 1, R(1).Row - 1) = R.Cells(1, 3) Next End With End With Set Rg = Nothing: Set R = Nothing
End Sub '-------------------------------
Salutations!
"DOC Prod" a écrit dans le message de news: j'avais pas vu mais on est plus hier on est aujourd'hui alors bonjour
si tu connais bien les list box
quel procédure écrirais tu pour affecter les valeurs d'un tableau à la liste. (en conservant l'organisation lign col)
car je trouve la mienne pas terrible - risque de perte de vitesse si plusieurs liste "liées" sont modifiées en même temps - merci à plus (ou bonne nuit)
DOC Prod
hei michdenis
merci
la 1ère solution = celle que je uouze
mais ça me permetra de progresser
le plus lourd c'est pour les entête de colonne car avec le pointeur souris je modifi les largeurs colonne et pour une visu pratique il me faut des limites. alors je place un textbox pour chaque colonnes ... trés lourd
en plus VBA plante dans tous les coin. une idée de la merde ! chaques fois que je passe de Excel à VBA il faut que je click sur le bouton stop.
et si iavé cça... bonjour microsoft..
hei michdenis
merci
la 1ère solution = celle que je uouze
mais ça me permetra de progresser
le plus lourd c'est pour les entête de colonne car avec le pointeur
souris je modifi les largeurs colonne
et pour une visu pratique il me faut des limites.
alors je place un textbox pour chaque colonnes ... trés lourd
en plus VBA plante dans tous les coin.
une idée de la merde ! chaques fois que je passe de Excel à VBA il
faut que je click sur le bouton stop.
le plus lourd c'est pour les entête de colonne car avec le pointeur souris je modifi les largeurs colonne et pour une visu pratique il me faut des limites. alors je place un textbox pour chaque colonnes ... trés lourd
en plus VBA plante dans tous les coin. une idée de la merde ! chaques fois que je passe de Excel à VBA il faut que je click sur le bouton stop.
