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
Daniel.C
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
%23OSZMBHfIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-(
Merci de vos réponses
Jacques
Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
Jacques
Bonjour,
Sur un UserForm
Merci
"Daniel.C" a écrit dans le message de news:
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
Bonjour,
Sur un UserForm
Merci
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uvsQxOHfIHA.5348@TK2MSFTNGP03.phx.gbl...
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
%23OSZMBHfIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-(
Merci de vos réponses
Jacques
Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
Daniel.C
For Each cell In [A1:A10] For Each ctrl In Me.Controls If Left(ctrl.Name, 4) = "cbo_" Then ctrl.AddItem cell.Value End If Next ctrl Next Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
Sur un UserForm
Merci
"Daniel.C" a écrit dans le message de news:
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
For Each cell In [A1:A10]
For Each ctrl In Me.Controls
If Left(ctrl.Name, 4) = "cbo_" Then
ctrl.AddItem cell.Value
End If
Next ctrl
Next
Daniel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
%239bg0VHfIHA.1900@TK2MSFTNGP02.phx.gbl...
Bonjour,
Sur un UserForm
Merci
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uvsQxOHfIHA.5348@TK2MSFTNGP03.phx.gbl...
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
%23OSZMBHfIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-(
Merci de vos réponses
Jacques
Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo
For Each cell In [A1:A10] For Each ctrl In Me.Controls If Left(ctrl.Name, 4) = "cbo_" Then ctrl.AddItem cell.Value End If Next ctrl Next Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
Sur un UserForm
Merci
"Daniel.C" a écrit dans le message de news:
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
Xavier powaga
Suivant la technique de Daniel. C voici une autre version
A = [A1:A10] For Each Ctrl In Me.Controls If TypeOf Ctrl Is ComboBox Then Ctrl.List = A Next Ctrl
"Daniel.C" a écrit dans le message de news:
For Each cell In [A1:A10] For Each ctrl In Me.Controls If Left(ctrl.Name, 4) = "cbo_" Then ctrl.AddItem cell.Value End If Next ctrl Next Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
Sur un UserForm
Merci
"Daniel.C" a écrit dans le message de news:
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo
With CboCtrl .AddItem "Coucou" End With
Next
Suivant la technique de Daniel. C voici une autre version
A = [A1:A10]
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is ComboBox Then Ctrl.List = A
Next Ctrl
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
un884kHfIHA.1184@TK2MSFTNGP04.phx.gbl...
For Each cell In [A1:A10]
For Each ctrl In Me.Controls
If Left(ctrl.Name, 4) = "cbo_" Then
ctrl.AddItem cell.Value
End If
Next ctrl
Next
Daniel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
%239bg0VHfIHA.1900@TK2MSFTNGP02.phx.gbl...
Bonjour,
Sur un UserForm
Merci
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uvsQxOHfIHA.5348@TK2MSFTNGP03.phx.gbl...
Bonjour.
Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ?
Daniel
"Jacques" <jac_be@hotmail.com> a écrit dans le message de news:
%23OSZMBHfIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-(
Merci de vos réponses
Jacques
Dim LC As Integer '
Dim NomCbo As String
Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M
NomCbo = "cbo_" & CStr(Chr(LC))
CboCtrl.Name = NomCbo
Suivant la technique de Daniel. C voici une autre version
A = [A1:A10] For Each Ctrl In Me.Controls If TypeOf Ctrl Is ComboBox Then Ctrl.List = A Next Ctrl
"Daniel.C" a écrit dans le message de news:
For Each cell In [A1:A10] For Each ctrl In Me.Controls If Left(ctrl.Name, 4) = "cbo_" Then ctrl.AddItem cell.Value End If Next ctrl Next Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
Sur un UserForm
Merci
"Daniel.C" a écrit dans le message de news:
Bonjour. Ils se trouvent où, tes combo ? sur une feuille ou sur un formulaire ? Daniel "Jacques" a écrit dans le message de news: %
Bonjour,
J'ai plusieurs Combobox qui doivent contenir la même liste.
cbo_a, cbo_B, cbo_C, ..., cbo_M
Comment alimenter toutes ces listes ?
J'ai essayé ceci mais sans succés :-( Merci de vos réponses
Jacques
Dim LC As Integer ' Dim NomCbo As String Dim CboCtrl As ComboBox
For LC = 66 To 77 ' de B à M NomCbo = "cbo_" & CStr(Chr(LC)) CboCtrl.Name = NomCbo