ma 1ère COMBOBOX

Version imprimable

16/10/2008, 14h20
abouhossam

ma 1ère COMBOBOX

salut
sur ma 1ère USERFORM j'ai fait un COMBOBOX dont le but est de m'afficher la liste
source est:

Code:

sheets("f1").range("b2:b" & sheets("f1").Range("b65535").End(xlUp).Row)

veuillez m'aider svp
n'oubliez surtout pas que c'est ma 1ère USERFORM
merci.
16/10/2008, 17h27
zazaraignée
Tu as sans doute affiché la fenêtre de propriétés dans l'éditeur VBA. Sinon, appuie sur F4. En examinant la liste des propriétés de ton ComboBox, tu devrais trouver la propirété RowSource
Code:

1 2 3 Private Sub UserForm_Activate() ComboBox1.RowSource = sheets("f1").range("b2:b" & sheets("f1").Range("b65535").End(xlUp).Row) End Sub
16/10/2008, 18h47
abouhossam

lorsque je remplis la case concernant la proprieté RowSource par
par exemple:

Code:

feuil56!a2:a50

j'obtiens un message:

Code:

impossible de définir la propriété RowSource. valeur de propriété non valide

merci.
16/10/2008, 19h47
abouhossam

salut
voici l'exemple ci-joint
je veux que la combobox m'envoie la liste des articles qui se trouvent dans la colonne b de la feuille "mvt article"
merci infiniment
16/10/2008, 19h48
fring
Bonjour,

feuil56 est bien le nom (Name) de la feuille et pas son nom de code (CodeName) ?

[EDIT]
Selon ton fichier, insère le code ci-dessous dans le module du UserForm
Code:

1 2 3 Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = Sheets("mvt article").Range("B2:B" & Sheets("mvt article").Cells(Rows.Count, 2).End(xlUp).Row).Address End Sub
17/10/2008, 10h21
abouhossam

slt
merci bcp fring ça marche.
:yaisse2::king:
17/10/2008, 10h48
abouhossam

excuse moi fring
j'ai un problème:
si la feuille "mvt article" est masquée le combobox prend les valeurs de la feuille active à l'overture.
merci.

j'ai bien essayé
Code:

1 2 3 4 Private Sub UserForm_Initialize() Sheets("mvt article").activate Me.ComboBox1.RowSource = Sheets("mvt article").Range("B2:B" & Sheets("mvt article").Cells(Rows.Count, 2).End(xlUp).Row).Address End Sub
et ça marche mais le prob c'est que j'obtien un message:
mémoire insuffisante pour afficher en entier.
merci.

oups...sorry, je ne l'avais testé qu'avec la feuille active, le code ci-dessous fonctionne même si la feuille est masquée

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
    Dim plage As Range, DerL As Integer
 
    With Sheets("mvt article")
        DerL = .Range("B65535").End(xlUp).Row
        Set plage = .Range("B2:B" & DerL)
    End With
 
    Me.ComboBox1.List = plage.Value
End Sub

17/10/2008, 13h07
abouhossam

merci fring:king:
le code ça marche très bien
est ce que vous pouvez m'expliquer la diffirence entre

Code:

DerL = .Range("B65535").End(xlUp).Row

et

Code:

Set plage = .Range("B2:B" & DerL)

càd le 1er sans Set et le 2eme avec.
autre chose; pourquoi vous avez changé :

Code:

Me.ComboBox1.RowSource

par

Code:

Me.ComboBox1.List

merci
n'oubliez pas que je suis un débutant.
17/10/2008, 13h28
decondelite

Pour ta première question:

Code:

.Range("B65535").End(xlUp).Row

renvoie un numéro de ligne, que tu stockes dans DerL

Code:

.Range("B2:B" & DerL)

renvoie une référence à un objet de type Range, et on utilise Set pour affecter une référence à une variable. Si on n'avait pas mis Set, la ligne aurait affecté la valeur de la plage (Range.Value) à la variable, ce que l'on ne cherche pas à faire.
Beaucoup de personnes te conseilleront de toujours mettre le .Value quand tu veux récupérer le contenu de ta plage, même si c'est bien souvent facultatif. En effet, comme ça on est sûr que c'est bien la valeur et pas la référence à la cellule qui est pris en compte, et en plus ça rend le code plus clair.

Pour ta deuxième question:

Code:

Me.ComboBox1.RowSource

tu alimentes Rowsource avec une adresse, ce qui crée une liste pour ta combobx

Code:

Me.ComboBox1.List

là tu alimentes List avec un tableau de valeurs, qui en l'occurence est le tableu de valeur renvoyé par plage.Value

En fait ce sont juste 2 façons différentes de voir les choses. Après, le choix de l'une ou l'autre c'est selon le goût et l'envie d'écrire plus ou moins long ou performant.
17/10/2008, 13h55
abouhossam

merci
mais pour ma 1ere question c'est sur le rôle de la proprieté Set
merci
17/10/2008, 14h11
decondelite

Je te l'ai déjà expliqué, mais visiblement c'est pas bien passé.
Je vais donc expliquer plus en détail.

Pendant l'exécution, tu as des données stockées dans la RAM de ton PC: les variables, les objets et les références (en fait il y a d'autres trucs mais bon là je fais simple et je me limite au cadre qui nous intéresse).
Pour affecter une valeur à une variable, simple tu fais:

Code:

mavariable = mavaleur

En revanche, un objet on ne peut le désigner qu'avec des références. Je ne vais pas te faire un cours sur les objets et références (tu as plein de tutos et FAQ pour ça), mais je vais te réexpliquer le rôle du Set.
Si tu tapes:

Code:

Set mareference = Range("A1")

VBA lit ça comme "déclare moi la variable mareference comme étant une référence à la plage A1"
En revanche si tu tapes:

Code:

mareference = Range("A1")

VBA lit ça comme "donne moi la valeur de la plage A1 (Range("A1").Value) et stocke la dans la variable mareference". Et là en l'occurence mareference n'est pas une référence mais une bête variable.

Bref, le mot clé Set (et c'est un mot clé, pas une propriété ;)) sert juste à dire à VBA que tu veux travailler avec la référence et non la valeur. A noter que cela est également valable pour d'autres objets que Range, mais là je n'ai pas d'exemple en tête. Dans d'autres langages (comme le C++), tu ne trouveras pas d'équivalent du mot clé Set car il n'y a pas besoin de mot clé pour préciser s'il s'agit d'une variable ou d'une référence.
17/10/2008, 17h01
abouhossam

merci bcp decondelite :king::king::king: