XL 2016 Alimenter plusieurs Cbx précis

pompaero · 10 Mars 2019

Bonjour le forum,

Je cherche à alimenter plusieurs combobox précis d'une même liste d'items.
Les Cbx sont de Cbx2 à Cbx6
Les items sont dans l'onglet "Liste item"colonne E2:E
Après recherche j'ai trouvé ce code qui se rapproche de mon attente mais n'arrive pas à l'adapter à ma liste d'item, je viens donc vers vous chercher de l'aide, merci.

VB:

'Alimentation des combobox cité ci-dessous
Dim combo
combo = Array(ComboBox2, ComboBox3, ComboBox4, ComboBox5, ComboBox6) 'met les combobox ici
For i = 0 To UBound(combo)
combo(i).List = Array("Liste unique", "neant") 'à adapter'
Next

Cdlt
pompaero

ChTi160 · 10 Mars 2019

Re
une autre version
j'ai modifié la procédure
jean marie

pompaero · 10 Mars 2019

Bonjour Chti160,

ça va bien ?
Merci de ton aide, ton retour répond à la requete sauf que la liste ne se met pas jour en cas d'ajout d'item.

Cdlt
pompaero

ChTi160 · 10 Mars 2019

Re
Erreur de fichier excuses !
met ce code.

VB:

Private Sub UserForm_Initialize()
Dim combo
combo = Array(CBx2, CBx3, CBx4, CBx5, CBx6) 'met les combobox ici
With Worksheets("Liste item")
derlgn = .Cells(.Rows.Count, 5).End(xlUp).Row
Tablo = .Range(.Cells(2, 5), .Cells(derlgn, 5)).Value
End With
For i = 0 To UBound(combo)
combo(i).List = Tablo
Next
End Sub

jean marie

pompaero · 10 Mars 2019

Re,

Super cela fonctionne...
J'essai de construire un fichier d'analyse d’activités journalière avec possibilité de statistique par période... pas facile mais j'avance doucement (mon codage ne sera certainement pas au top).
Merci à toi

@ bientôt

pompaero · 10 Mars 2019

Re,
Petite demande hors sujet, est-il possible de simplifier ce code ?
car je dois le faire 5 fois.
Si textbox5 ="" et textbox6 <>"" alors msgbox "heure début" et label8 passe en rouge ou
si textbox6 ="" et textbox5 <>"" alors msgbox "heure fin" et label8 passe en rouge ou
si textbox5 et textbox 6 <>"" et Combobox2 ="" alors msgbox "indiquer niveau"et label8 passe en rouge

VB:

If TextBox5 = "" And TextBox6 <> "" Then
  If Not IsDate(Me.TextBox5) Then
    MsgBox "Saisir l'heure début baisse de niveau !"
    Me.TextBox5 = "": Me.TextBox5.SetFocus
    Label8.ForeColor = &HEF&
    Flag = 1
    Exit Sub
  End If
End If
If TextBox6 = "" And TextBox5 <> "" Then
  If Not IsDate(Me.TextBox6) Then
    MsgBox "Saisir l'heure fin baisse de niveau !"
    Me.TextBox6 = "": Me.TextBox6.SetFocus
    Label8.ForeColor = &HEF&
    Flag = 1
    Exit Sub
  End If
End If
If TextBox5 <> "" And TextBox6 <> "" And ComboBox2.Text = "" Then
    MsgBox "Saisir le niveau !"
    Me.ComboBox2.SetFocus
    Label8.ForeColor = &HEF&
    Flag = 1
    Exit Sub
  End If

Merci

pompaero

XL 2016 Alimenter plusieurs Cbx précis

pompaero

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Pièces jointes

pompaero

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

pompaero

XLDnaute Impliqué

pompaero

XLDnaute Impliqué

Discussions similaires