Discussion :

[manuseverine]

Bonjour,

Je suis en train de créer un formulaire, comme ma l'a conseillé Mercatoq mais j'ai un petit problème que je ne trouve pas dans les tutoriels.

J'ai donc créer un userform et à l'intérieur une combobox. Dans les propriétés je suis allé voir dans RowSource car il est dit dans un tutoriel que si l'on met l'emplacement de notre liste, il l'a reprendra.
J'ai testé ça marche mais moi je suis intéressé par une liste que j'avais créer grâce à la validation des données et donc je ne peux pas lui mettre de lien.Ces valeurs sont dans aucune case, je les ai noté directement. J'ai essayé de mettre ce que j'avais mis dans la validation des données mais ça ne marche pas. Ce ne sont pas des cellule mais des valeurs.
ex : clio;mégane;scénic

J'ai essayé dans le code de mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

combobox1.List()="clio";"mégane"

mais ça ne marche pas

[mercatog]

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim maTab
 
maTab = Array("mégane", "clio", "R4")
Me.ComboBox1.List() = maTab
End Sub

mais c'est non évolutif pour l'utilisateur; vaut mieux définir une plage de cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim LastLig as long
 
LastLig=sheets("Feuil4").cells(rows.count,"C").end(xlup).row 'dernière ligne
Me.ComboBox1.rowsource="Feuil4!C1:C" & Lastlig
End Sub

[manuseverine]

Tu as raison, c'est pourquoi je vais suivre ton conseil et je viens donc de saisir une liste dans une feuille 6. Le titre étant en cellule A1, ma liste commence à A2, j'ai donc fais les changements dans ton code mais ça ne marche pas. J'ai dû me tromper quelque part. Je te donne ce que j'ai fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim LastLig as long
 
LastLig=sheets("Feuil6").cells(rows.count,"A").end(xlup).row 'dernière ligne
Me.ComboBox1.rowsource="Feuil6!A2:A" & Lastlig
End Sub

[mercatog]

Où tu as mis ce code?
bien sûr sur l'évènement Initialise de ton userform
en mode création, double click sur ton userform, il te donne par défaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub UserForm_Click()
 
End Sub

tu choisi à droite l'évènement initialize

[manuseverine]

oui oui c'est ce que j'ai fais, d'ailleurs je l'ai fais mais je n'ai pas compris pourquoi on ne mets pas ce code dans le code de la combobox car c'est elle qui est concerné. Quelque chose m'échappe sous VBA apparemment.

En tout cas, je l'ai bien mis ou tu m'as dis et quand clic sur mon bouton j'ai une fenêtre qui s'ouvre : erreur d'éxécution 9 : l'indice n'appartient pas à la sélection

je viens de faire un test que je trouve bizarre

Etant donné que la formule ne marche pas et que tu as l'air surpris. Apparemment ça devrait marcher. J'ai essayé de remettre les cellules nouvellement saisie dans Rowsource, à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil6!A2:A50

et bien ça ne marche pas.

Par contre quand je remplace simplement le 6 par 1
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1!A2:A50

et bien ça marche.

En fait, ça marche pour la feuil1 et la feuil2. Si je met exactement la même formule pour les autres feuilles 3, 4,5 ou 6 ça ne marche pas. Il me dit :Impossible de définir la propriété Rowsource. Valeur de propriété non valide ???????????

C'est surement pour ça aussi que ton code ne marche pas

[mercatog]

tu as bien une feuille nommée feuil6?
mets en pj un extrait de ton fichier

[manuseverine]

le voilà, j'ai supprimé beaucoup de chose bien sûr

apparemment mon fichier est trop lourd. Je n'arrête pas de supprimer des choses, il n'y a plus grand chose, mais c'est toujours trop lourd

je réessaie dans 2 minutes, le temps de supprimer encore

j'ai presque tous supprimer et mon fichier fais encore 460ko ??

[mercatog]

fais un fichier test simplifié avec peu de données (j'ai XL03)
Edit, j'ai pu provoquer ton erreur, tu n'as pas Feuil6 dans ton classeur

[manuseverine]

je t'assure que j'ai bien une feuille 6 dans mon classeur. Je l'ai créer quand tu m'as dis que je devrais utiliser un code avec des références a des cellules et pas des nom directement (je ne sais pas si tu te souviens, c'est plus haut dans la discussion)

[manuseverine]

merci beaucoup,

je ne comprends pas car pour moi c'est exactement ce que j'ai fais.
Il y a surement un conflit quelque part, je ne sais pas...

Je ne sais pas si c'est autorisé sur le forum mais est-ce que je peux t'envoyer mon fichier par mail car mon fichier fait à peine 300Ko et quand je le transforme en version 97-203, il fait plus de 707ko et si je réduit trop tu ne pourra peut-être pas voir mon problème ?

[mercatog]

Charte du forum oblige, pas de questions techniques par MP
crée un autre usf avec une combo
ne touche rien aux propriétés
insère le code fourni à l'évènement Initialize de ton usf

[grisan29]

bonjour manuseverine et mercatog ainsi que le forum

pour ma part quand j'ai une liste de validation sur un autre feuille que celle qui est ouverte je n'ai pas de soucis pour avoir la liste dans le combox de l'userform, il faut donné un nom a ta list de la feuille 6 et l'écrire en row source de ta combobox et le tour est joué

cordialement

Pascal

[patricktoulon]

bonjour a tous

j'ai essayer tes bouts de code et effectivement des fois ca bug

pourquoi n'essaie tu pas de le faire sous forme de tableau

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub ComboBox1_Enter()
'******************************************************************************************************************************************
'a chaque fois que tu entre dans la combobox elle se netoie et se reremplie avec la plage a jour en cas de modification en cour de route
ComboBox1.Clear
'*****************************************************************************************************************************************
 
'*****************************************************************************************************************************************
'DECLARTATION DE L'EXISTANCE DES VARIABLES REPRESENTANT LE NUMERO DE LA DERNIERE LIGNE RENSEINGNEE ET LA LISTE A OBTENIR ET LEUR TYPE
Dim derniereligne As Long
Dim liste As Variant
'*****************************************************************************************************************************************
 
 
'*****************************************************************************************************************************************
'determination de la derniere ligne renseignée
derniereligne = Sheets("Feuil6").Cells(Rows.Count, "A").End(xlUp).Row 'dernière ligne
'*****************************************************************************************************************************************
 
 
'*****************************************************************************************************************************************
'remplissage de la liste avec la plage a1 jusqu a a la derniere ligne renseignée
liste = Sheets("feuil6").Range("a1" & ":a" & derniereligne)
'*****************************************************************************************************************************************
 
 
'*****************************************************************************************************************************************
 'remplissage de la combobox avec la liste obtenue
ComboBox1.List = liste
'*****************************************************************************************************************************************
 
 
End Sub

j'ai mis combox1.clear au debus comme ca quand tu modifie une donnée sur la feuille6 a chaque fois que tu entrera dans le combobox1 il sera a jour
c'est tout simple et il ne peut pas y avoir d'erreur

en plus le code est placer dans le enter de la combobox comme tu le souhaitais

au plaisir

re:

l'idée de grizan est bonne au sujet de nomer la plage de cellule a condition que cette plage ne soie pas modifiée en terme de nombre de lignes

je vois que le petit scarabée(grizan) a oublié mes lecons precedentes

se sera donc 2 heures de colle et 500 lignes de punition

hihhihi


pour mapart l'utilisation de la premiere et la derniere ligne renseignée est la plus sur pour que les eventuels changement soient pris en compte



au plaisir

[mercatog]

@patricktoulon
Ce code (très basique et trivial)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_initialize()
Dim LastLig as long
 
LastLig=sheets("Feuil6").cells(rows.count,"A").end(xlup).row 'dernière ligne
Me.ComboBox1.rowsource="Feuil6!A2:A" & Lastlig
End Sub

et ceci

j'ai essayer tes bouts de code et effectivement des fois ca bug

des fois ça bug, il serait judicieux de dire précisément quand.
Du moment que des données existent en colonne A de la feuille Feuil6, je ne vois pas de bug.
à toi d'éclaircir le forum

[patricktoulon]

j' ai constaté que c'est dans la facon de l'ecrire


en fet je ne sais pas pourquoi mais je cherche

en fet l'adresse d'une celule c'est une ou plusieurs letres e un ou plusieur chiffres

et dans le:Me.ComboBox1.rowsource="Feuil6!A2:A" & Lastlig
ce qui est entre guillemet semble prendre en compte les deux points ce qui est inexacte par contre ne me demande pas pourquoi

j'ai remarqué que ca le fait beaucoup quand je reinitialise le combobox trop rapidement plusieures fois sans doute un probleme de memoire pourtant je n'en manque pas

c'est pour ca que quand je marque ca:
liste = Sheets("feuil6").Range("a1" & ":a" & derniereligne)
je separe les deux point du premier repere (a1) pour ne pas qui l'interprete autrement j'avais deja eu le probleme et ca venait de la


au plaisir

[mercatog]

Attention de ne pas risquer d'induire les lecteurs en erreur, les arguments invoqués ne me semblent pas corrects.

Syntaxe
object.RowSource [= String]

c'est l'aide d'excel

La relecture de ce tuto est intéressante sur ces points, Tutoriel

[manuseverine]

J'ai enfin réussi a réduire mon dossier, je vous le joins avec des modifs pour protéger mes clients bien sûr.

Mercatoq, tu verras le bouton intitulé "Filtre" est sur la page Véhicules

Merci

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim LastLig As Long
LastLig = Sheets("Listes déroulantes").Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.RowSource = "'Listes déroulantes'!A2:A" & LastLig
End Sub

Tu as mélangé le nom de la feuille (Listes déroulantes) et son CodeName (Feuil6). journées perdues

[manuseverine]

désolé, je pensais que si je laissais "feuil6" au lieu du nom de la feuille, c'était pareil. Que le code feuil marchait pareille.

J'avais essayé avec le nom de la feuille mais j'avais dû faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim LastLig As Long
LastLig = Sheets("'Listes déroulantes'").Cells(Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.RowSource = "'Listes déroulantes'!A2:A" & LastLig
End Sub

c'est à dire que j'avais mis des ' dans les parenthèses.

Merci et désolé pour cette perte de temps.

[patricktoulon]

bonjour a tous les deux


non effectivement mercatog a raison

soit tu utilise le nom de la feuil:

"Listes déroulante"'

soit tu utilise son index:

sheets(6) et non pas sheets("feuil6")


au plaisir