Est-ce qu'une =E2me charitable pourrait me donner un exemple pour cr=E9er u=
ne liste d=E9roulante?
La combobox est en feuil, les donn=E9es sont en feuil2 sur la premi=E8re l=
igne =E0 partir de la colonne B. Les valeurs sont alphanum=E9riques.
For Each c In Range("rng") ActiveSheet.ComboBox1.AddItem c.Value Next
-- isabelle
Le 2012-11-28 15:04, JP a écrit :
Bonsoir à tous,
Est-ce qu'une âme charitable pourrait me donner un exemple pour créer une liste déroulante? La combobox est en feuil, les données sont en feuil2 sur la première ligne à partir de la colonne B. Les valeurs sont alphanumériques.
Merci
JP
bonjour JP,
For Each c In Range("rng")
ActiveSheet.ComboBox1.AddItem c.Value
Next
--
isabelle
Le 2012-11-28 15:04, JP a écrit :
Bonsoir à tous,
Est-ce qu'une âme charitable pourrait me donner un exemple pour créer une liste déroulante?
La combobox est en feuil, les données sont en feuil2 sur la première ligne à partir de la colonne B. Les valeurs sont alphanumériques.
For Each c In Range("rng") ActiveSheet.ComboBox1.AddItem c.Value Next
-- isabelle
Le 2012-11-28 15:04, JP a écrit :
Bonsoir à tous,
Est-ce qu'une âme charitable pourrait me donner un exemple pour créer une liste déroulante? La combobox est en feuil, les données sont en feuil2 sur la première ligne à partir de la colonne B. Les valeurs sont alphanumériques.
Merci
JP
JP
Bonsoir Isabelle,
Très bien, en fait les combobox ControleActiveX fonctionnent comme les co mbobox intégrées à un userform.
Une précision cependant, pour copier l'élément sélectionné de la liste déroulante , on écrit: variable = combobox1.value
Je viens d'y essayer et ça ne marche pas. Un conseil?
Merci
JP
Bonsoir Isabelle,
Très bien, en fait les combobox ControleActiveX fonctionnent comme les co mbobox intégrées à un userform.
Une précision cependant, pour copier l'élément sélectionné de la liste déroulante , on écrit: variable = combobox1.value
Je viens d'y essayer et ça ne marche pas.
Un conseil?
sur la page code de la feuil contenant le ComboBox
Private Sub ComboBox1_Change() Sheets("Feuil1").Range("A1") = ComboBox1 End Sub
-- isabelle
Le 2012-11-28 16:20, JP a écrit :
Bonsoir Isabelle,
Très bien, en fait les combobox ControleActiveX fonctionnent comme les combobox intégrées à un userform.
Une précision cependant, pour copier l'élément sélectionné de la liste déroulante , on écrit: variable = combobox1.value
Je viens d'y essayer et ça ne marche pas. Un conseil?
Merci
JP
isabelle
Le 2012-11-28 15:04, JP a écrit :
Bonsoir à tous,
Est-ce qu'une âme charitable pourrait me donner un exemple pour créer une liste déroulante? La combobox est en feuil, les données sont en feuil2 sur la première ligne à partir de la colonne B. Les valeurs sont alphanumériques.
Merci
JP
Le 2012-11-28 15:04, JP a écrit :
Bonsoir à tous,
Est-ce qu'une âme charitable pourrait me donner un exemple pour créer une liste déroulante?
La combobox est en feuil, les données sont en feuil2 sur la première ligne à partir de la colonne B. Les valeurs sont alphanumériques.
Est-ce qu'une âme charitable pourrait me donner un exemple pour créer une liste déroulante? La combobox est en feuil, les données sont en feuil2 sur la première ligne à partir de la colonne B. Les valeurs sont alphanumériques.
Merci
JP
JP
Bonjour Isabelle,
Je me suis peut-etre mal exprime. Je voudrais affecter la valeur de la combobox1 dans une variable pour la reexploiter apres. ' Proposition d'Isabelle Sheets("Nov-Fev").Range("A1") = ComboBox1 ' ce que je souhaite obtenir cl= valeur selectionnee dans la combobox1
cl = Sheets("Nov-Fev") = ComboBox1 ' cl prend la valeur de la selection de la combobox1.
Merci d'avance
JP
Bonjour Isabelle,
Je me suis peut-etre mal exprime.
Je voudrais affecter la valeur de la combobox1 dans une variable pour la reexploiter apres.
' Proposition d'Isabelle
Sheets("Nov-Fev").Range("A1") = ComboBox1
' ce que je souhaite obtenir cl= valeur selectionnee dans la combobox1
cl = Sheets("Nov-Fev") = ComboBox1 ' cl prend la valeur de la selection de la combobox1.
Je me suis peut-etre mal exprime. Je voudrais affecter la valeur de la combobox1 dans une variable pour la reexploiter apres. ' Proposition d'Isabelle Sheets("Nov-Fev").Range("A1") = ComboBox1 ' ce que je souhaite obtenir cl= valeur selectionnee dans la combobox1
cl = Sheets("Nov-Fev") = ComboBox1 ' cl prend la valeur de la selection de la combobox1.
Merci d'avance
JP
isabelle
si le code n'est pas dans un événement du combobox il faut spécifier la feuille ou ce trouve le combobox
cl = Sheets("?").ComboBox1
-- isabelle
Le 2012-11-29 01:28, JP a écrit :
Bonjour Isabelle,
Je me suis peut-etre mal exprime. Je voudrais affecter la valeur de la combobox1 dans une variable pour la reexploiter apres. ' Proposition d'Isabelle Sheets("Nov-Fev").Range("A1") = ComboBox1 ' ce que je souhaite obtenir cl= valeur selectionnee dans la combobox1
cl = Sheets("Nov-Fev") = ComboBox1 ' cl prend la valeur de la selection de la combobox1.
Merci d'avance
JP
si le code n'est pas dans un événement du combobox il faut spécifier la feuille ou ce trouve le combobox
cl = Sheets("?").ComboBox1
--
isabelle
Le 2012-11-29 01:28, JP a écrit :
Bonjour Isabelle,
Je me suis peut-etre mal exprime.
Je voudrais affecter la valeur de la combobox1 dans une variable pour la reexploiter apres.
' Proposition d'Isabelle
Sheets("Nov-Fev").Range("A1") = ComboBox1
' ce que je souhaite obtenir cl= valeur selectionnee dans la combobox1
cl = Sheets("Nov-Fev") = ComboBox1 ' cl prend la valeur de la selection de la combobox1.
si le code n'est pas dans un événement du combobox il faut spécifier la feuille ou ce trouve le combobox
cl = Sheets("?").ComboBox1
-- isabelle
Le 2012-11-29 01:28, JP a écrit :
Bonjour Isabelle,
Je me suis peut-etre mal exprime. Je voudrais affecter la valeur de la combobox1 dans une variable pour la reexploiter apres. ' Proposition d'Isabelle Sheets("Nov-Fev").Range("A1") = ComboBox1 ' ce que je souhaite obtenir cl= valeur selectionnee dans la combobox1
cl = Sheets("Nov-Fev") = ComboBox1 ' cl prend la valeur de la selection de la combobox1.
Merci d'avance
JP
JP
Bonsoir Isabelle,
Elle est dedans regarde le code:
Private Sub ComboBox1_Change() Sheets("Nov-Fev").Select 'Efface les valeurs de la combobox ComboBox1.Clear 'complète la combobox For Each c In Sheets("EqPeda").Range("B1:R1") ActiveSheet.ComboBox1.AddItem c.Value Next ... ... Sheets("EqPeda").Select nb_cl = WorksheetFunction.CountA(Range("B1:AR1")) 'Efface équipe péda sur feuille Nov-Fev Sheets("Nov-Fev").Range("I1:I7", "F1:F7").ClearContents 'Affecte la selection à la variable cl cl = Sheets("Nov-Fev") = ComboBox1 MsgBox cl
For i = 2 To nb_cl + 1 If cl = Sheets("EqPeda").Cells(1, i) Then col = Columns(i).Column
... ... ... End if Next i End Sub
JP
Bonsoir Isabelle,
Elle est dedans regarde le code:
Private Sub ComboBox1_Change()
Sheets("Nov-Fev").Select
'Efface les valeurs de la combobox
ComboBox1.Clear
'complète la combobox
For Each c In Sheets("EqPeda").Range("B1:R1")
ActiveSheet.ComboBox1.AddItem c.Value
Next
...
...
Sheets("EqPeda").Select
nb_cl = WorksheetFunction.CountA(Range("B1:AR1"))
'Efface équipe péda sur feuille Nov-Fev
Sheets("Nov-Fev").Range("I1:I7", "F1:F7").ClearContents
'Affecte la selection à la variable cl
cl = Sheets("Nov-Fev") = ComboBox1
MsgBox cl
For i = 2 To nb_cl + 1
If cl = Sheets("EqPeda").Cells(1, i) Then
col = Columns(i).Column
Private Sub ComboBox1_Change() Sheets("Nov-Fev").Select 'Efface les valeurs de la combobox ComboBox1.Clear 'complète la combobox For Each c In Sheets("EqPeda").Range("B1:R1") ActiveSheet.ComboBox1.AddItem c.Value Next ... ... Sheets("EqPeda").Select nb_cl = WorksheetFunction.CountA(Range("B1:AR1")) 'Efface équipe péda sur feuille Nov-Fev Sheets("Nov-Fev").Range("I1:I7", "F1:F7").ClearContents 'Affecte la selection à la variable cl cl = Sheets("Nov-Fev") = ComboBox1 MsgBox cl
For i = 2 To nb_cl + 1 If cl = Sheets("EqPeda").Cells(1, i) Then col = Columns(i).Column
... ... ... End if Next i End Sub
JP
Jacky
Bonsoir,
A première vue..... Initialiser un combobox sur son propre changement (Change()), n'est AMHA pas une bonne idée
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonsoir Isabelle,
Elle est dedans regarde le code:
Private Sub ComboBox1_Change() Sheets("Nov-Fev").Select 'Efface les valeurs de la combobox ComboBox1.Clear 'complète la combobox For Each c In Sheets("EqPeda").Range("B1:R1") ActiveSheet.ComboBox1.AddItem c.Value Next ... ... Sheets("EqPeda").Select nb_cl = WorksheetFunction.CountA(Range("B1:AR1")) 'Efface équipe péda sur feuille Nov-Fev Sheets("Nov-Fev").Range("I1:I7", "F1:F7").ClearContents 'Affecte la selection à la variable cl cl = Sheets("Nov-Fev") = ComboBox1 MsgBox cl
For i = 2 To nb_cl + 1 If cl = Sheets("EqPeda").Cells(1, i) Then col = Columns(i).Column
... ... ... End if Next i End Sub
JP
Bonsoir,
A première vue.....
Initialiser un combobox sur son propre changement (Change()), n'est AMHA pas une bonne idée
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
2bc053da-8af5-4304-a48c-b92245243715@googlegroups.com...
Bonsoir Isabelle,
Elle est dedans regarde le code:
Private Sub ComboBox1_Change()
Sheets("Nov-Fev").Select
'Efface les valeurs de la combobox
ComboBox1.Clear
'complète la combobox
For Each c In Sheets("EqPeda").Range("B1:R1")
ActiveSheet.ComboBox1.AddItem c.Value
Next
...
...
Sheets("EqPeda").Select
nb_cl = WorksheetFunction.CountA(Range("B1:AR1"))
'Efface équipe péda sur feuille Nov-Fev
Sheets("Nov-Fev").Range("I1:I7", "F1:F7").ClearContents
'Affecte la selection à la variable cl
cl = Sheets("Nov-Fev") = ComboBox1
MsgBox cl
For i = 2 To nb_cl + 1
If cl = Sheets("EqPeda").Cells(1, i) Then
col = Columns(i).Column
A première vue..... Initialiser un combobox sur son propre changement (Change()), n'est AMHA pas une bonne idée
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonsoir Isabelle,
Elle est dedans regarde le code:
Private Sub ComboBox1_Change() Sheets("Nov-Fev").Select 'Efface les valeurs de la combobox ComboBox1.Clear 'complète la combobox For Each c In Sheets("EqPeda").Range("B1:R1") ActiveSheet.ComboBox1.AddItem c.Value Next ... ... Sheets("EqPeda").Select nb_cl = WorksheetFunction.CountA(Range("B1:AR1")) 'Efface équipe péda sur feuille Nov-Fev Sheets("Nov-Fev").Range("I1:I7", "F1:F7").ClearContents 'Affecte la selection à la variable cl cl = Sheets("Nov-Fev") = ComboBox1 MsgBox cl
For i = 2 To nb_cl + 1 If cl = Sheets("EqPeda").Cells(1, i) Then col = Columns(i).Column
tu pourrais utiliser l'événement activate de la feuille ayant le combobox pour alimenter celui-ci
-- isabelle
Le 2012-11-29 14:22, JP a écrit :
Bonsoir Jacky,
Comment dois je faire? Juste charger le combobox par la boucle for each et ensuite déclencher une autre macro où je mettrai combobox1.clear en fin de procédure? A ton avis?
JP
bonjour JP,
tu pourrais utiliser l'événement activate de la feuille ayant le
combobox pour alimenter celui-ci
--
isabelle
Le 2012-11-29 14:22, JP a écrit :
Bonsoir Jacky,
Comment dois je faire?
Juste charger le combobox par la boucle for each et ensuite déclencher une autre macro où je mettrai combobox1.clear en fin de procédure?
A ton avis?
tu pourrais utiliser l'événement activate de la feuille ayant le combobox pour alimenter celui-ci
-- isabelle
Le 2012-11-29 14:22, JP a écrit :
Bonsoir Jacky,
Comment dois je faire? Juste charger le combobox par la boucle for each et ensuite déclencher une autre macro où je mettrai combobox1.clear en fin de procédure? A ton avis?