Bonjour,
j'ai un combobox dans un USF
je recuperere 2 colonnes voisines (C et D) c'est Ok
mais voila je voudrais egalement voir la 1ere (Col A)
si je mets ColumnCount à 3 il me prends A - B - C
comment echapper à ceci et voir A - C - D
merci
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
JB
Bonjour,
Private Sub UserForm_Initialize() i = 0 For Each c In Range("A1", [A65000].End(xlUp)) Me.ComboBox1.AddItem Me.ComboBox1.List(i, 0) = c.Value Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value i = i + 1 Next c End Sub
Bonjour, j'ai un combobox dans un USF je recuperere 2 colonnes voisines (C et D) c'est Ok mais voila je voudrais egalement voir la 1ere (Col A) si je mets ColumnCount à 3 il me prends A - B - C comment echapper à ceci et voir A - C - D merci
-- eneric
Bonjour,
Private Sub UserForm_Initialize()
i = 0
For Each c In Range("A1", [A65000].End(xlUp))
Me.ComboBox1.AddItem
Me.ComboBox1.List(i, 0) = c.Value
Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value
Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value
i = i + 1
Next c
End Sub
On 13 mar, 17:00, eneric <eneri...@cegetel.net> wrote:
Bonjour,
j'ai un combobox dans un USF
je recuperere 2 colonnes voisines (C et D) c'est Ok
mais voila je voudrais egalement voir la 1ere (Col A)
si je mets ColumnCount à 3 il me prends A - B - C
comment echapper à ceci et voir A - C - D
merci
Private Sub UserForm_Initialize() i = 0 For Each c In Range("A1", [A65000].End(xlUp)) Me.ComboBox1.AddItem Me.ComboBox1.List(i, 0) = c.Value Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value i = i + 1 Next c End Sub
Bonjour, j'ai un combobox dans un USF je recuperere 2 colonnes voisines (C et D) c'est Ok mais voila je voudrais egalement voir la 1ere (Col A) si je mets ColumnCount à 3 il me prends A - B - C comment echapper à ceci et voir A - C - D merci
-- eneric
eneric
eneric vous demande
Bonjour,
Private Sub UserForm_Initialize() i = 0 For Each c In Range("A1", [A65000].End(xlUp)) Me.ComboBox1.AddItem Me.ComboBox1.List(i, 0) = c.Value Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value i = i + 1 Next c End Sub
Private Sub UserForm_Initialize()
i = 0
For Each c In Range("A1", [A65000].End(xlUp))
Me.ComboBox1.AddItem
Me.ComboBox1.List(i, 0) = c.Value
Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value
Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value
i = i + 1
Next c
End Sub
Private Sub UserForm_Initialize() i = 0 For Each c In Range("A1", [A65000].End(xlUp)) Me.ComboBox1.AddItem Me.ComboBox1.List(i, 0) = c.Value Me.ComboBox1.List(i, 1) = c.Offset(0, 2).Value Me.ComboBox1.List(i, 2) = c.Offset(0, 3).Value i = i + 1 Next c End Sub