[XL-2003] Combobox d'une feuille en vba excel [Résolu]

[hobine]

Bonjour,
Tout est dans le titre.
J'ai un combobox situé sur une feuille "Feuil1" . Je veux aller dans la feuille"Feuil2" de mon fichier aspirer les données pour alimenter la liste de mon combobox.
Comment faire ? je n'y arrive pas.

Je sais parfaitement comment le faire si mon combobox se trouve dans un userform.

Mais le cas actuel, le combobox est directement dans le fichier.

Un grand merci par avance pour votre aide.

[jfontaine]

Bonjour,

Pour alimenter une combobox en liant avec les données saisies dans une feuille

Dans un userform

Code :

Combobox1.RowSource = "Feuil1!A1:A10"

Dans un onglet

Code :

Combobox1.ListFillRange = "Feuil1!A1:A10"

Dans les 2 cas on peut aussi utiliser la propriété AddItem

[hobine]

d'abord pour vos propositions
c'est quoi la propriété Additem? comment l’intégrer dans mon programme ci-dessous?
alors j'ai voulu intengrer le code mais cela ne fonctionne. comment faire?

Code :

1
2
3
4
5
Private Sub ComboBox1_Change()
 
ComboBox1.ListFillRange = "Admin_Systemes!A1:A10"
 
End Sub

[jfontaine]

Ce n'est pas dans le bon évènement

Code :

Private Sub UserForm_Initialize()

Ou directement en modifiant la propriété de l'objet dans la fenêtre propriété de VBA

[hobine]

j'ai intergré comme convenu mais cela ne fonctionne tjrs pas.
Je vous mets mon fichier en Pièce jointe pour que vous puissiez tester par vous-même.

cordialement

[jfontaine]

Désolé, ma précédente réponse correspondait à un Userform

Code :

1
2
3
Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "Admin_Systemes!A1:A10"
End Sub

[pc75]

Bonjour,

Pour alimenter une combo avec des données d'une autre feuille, il existe la "validation de données" qui permet de faire ça.

Données => Validation => autoriser Liste => Nom de la plage de données

[hobine]

pc75, je veux le faire par vba non par manipulation.

jfontaine, j'ai copié ton programme et colle sur vbaprojet de la feuille contenant le combobox et j'ai activé le combobox, aucune liste n’apparaît.
par la suite j'ai esssayé en collant le code dans un module, aucune changement de la liste
en mettant également sur thisworkbook, tjrs pas d'usure positive.
Pouvez le faire dans le fichier que je vous ai envoyé s'il vous plaît? et me l'envoyer?

merci

j'ai trouvé ce code sur le net et j'ai voulu adapter à ma sauce malheuresemnt je ne parviens tjrs pas à recuperer les données de la feuille Admin_systemes pour faire la liste de mon combobox se trouvant dans la feuille Feuil1

merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ComboBox1_Change()
 
 
End Sub
 
 
 
Private Sub Worksheet_Activate()
    Dim Cell As Range
    Me.ComboBox1.Clear
    With Sheets("Admin_Systemes")
        For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
            Me.ComboBox1.AddItem (Cell)
        Next
    End With
End Sub

[jfontaine]

Le code étant dans l’évènement Activate de l'onglet, il faut sortir et entrée dans ce dernier pour que le code s’exécute

combobox (1).xls

[hobine]

Jerome,
je vais passer pour une bete mais je ne comprends toujours comment vous avez vous fait? qu'avez vous exactement fait de plus ? Pourquoi ici, je n'utilise pas

désole si ma question vous semble bête. J'ai besoin de comprendre.

Code :

1
2
3
Private Sub ComboBox1_Change()
 
End Sub

[jfontaine]

On met dans l’évènement Change les actions a faire quand on change la valeur choisie dans la combobox (F1 sur l’évènement pour l'aide)