Discussion :

[james17]

Bonjour, voila je viens de créer un USF.
Mais je rencontre un souci avec mais code

j'ai rempli toutes mais ComboBox comme suite:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
ComboBox1.RowSource = ("Atelier")  'ComboBox1.RowSource = ("Atelier")
Me.ComboBox1.Font = "Arial"
Me.ComboBox1.Font.Size = 14
ComboBox2.RowSource = ("Admin")  'ComboBox1.RowSource = ("Admin")
Me.ComboBox2.Font = "Arial"
Me.ComboBox2.Font.Size = 14
End sub

Mais j'arrive pas a remplir mais textBox.
ex: dans texBox1 je choisis JAMES dans ma texBox 06.00.00.00.00

mais impossible d'y arrivé

merci Beaucoups

[unparia]

Bonjour
Comment veux-tu que l'on te réponde sans tenter de deviner, sur la base de telles explications ?
Que veux-tu faire ?
- remplir une textbox lors du clic sur un article de ta combobox ?
- de quelle combobox ? On en voit deux dans ton code ...
- combien de colonnes contient ta combobox ?
- à quelles plages de cellules correspondent "Atelier" et "Admin" ?
- dans quelle colonne de quelle combobox se trouve (ton "exemple) "JAMES" et dans quelle colonne de quelle combobox se trouve "06.00.00.00.00" ?
Te rends-tu au moins compte du caractère à la fois flou et incomplet de ta question ?

[Jean-Philippe André]

Salut,

pour Textbox la syntaxe est:

Code :

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

Me.Textbox.value= "plop"

[james17]

Bonjour,
remplir une textbox lors du clic sur un article de ma combobox....
Dans ma combo j'ai les NOMS, j’aimerais quand je choisi le nom en question cela mette le numéro dans ma Txtbox
Les NOMS ce trouve dans la 1ere colonne et le Numéro dans la 3eme

cordialement

[unparia]

Ah !
Au clic sur ma combobox :

Code :

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

Combobox1.list(combobolx.listindex)

te retourne le contenu de la 1ère colonne de l'élément cliqué

Code :

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

Combobox1.list(combobox1.listindex,2)

te retourne le contenu de la 3ème colonne de l'élément cliqué
Où ai-je donc trouvé tout cela ? -->> ben -->> dans l'aide VBA ! (qu'est-ce que je suis "fort", hein ... de lire mon aide VBA !)

[james17]

Salut et merci de ta réponse
J'ai mis les codes après:

Code :

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

ComboBox2.RowSource = ("Admin")  'ComboBox1.RowSource = ("Admin")

mais ca me met des erreurs

peut être qu'il faut que je change mon code

cordialement

[james17]

Re-bonjour,
j'ai trouvé un code pour une mais comment mettre pour plusieurs

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
Private Sub Admin_Change()
With Sheets("Admin")
        TextBox1 = .Cells(Admin.ListIndex + 2, 2)
        Me.TextBox1.Font = "Arial"
        Me.TextBox1.Font.Size = 18
End With
End Sub
 
Private Sub UserForm_Initialize() 'Permet d'initialiser les valeurs dans les zones souhaitées
Dim H As Integer
With Sheets("Admin")
For H = 2 To .Range("a65536").End(xlUp).Row
Admin.AddItem .Range("a" & H).Value
Me.Admin.Font = "Arial"
Me.Admin.Font.Size = 14
Next H
End With
End Sub

merci de l'aide que vous m'apportez..

[unparia]

J'ai des difficultés à mettre en rapport la raison du sujet que tu as ouvert et cette nouvelle question, qui est un autre aspect technique, totalement distinct.

[james17]

Bonjour,
tous fonctionné impeccablement pour 14 combo mais sauf pour une.
alors que j'ai mis la même choses....

Code :

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

1
2
3
4
5
6
7
Private Sub ORL_Change()
With Sheets("ORL")
        TextBox12 = .Cells(ORL.ListIndex + 1, 2)
        Me.TextBox12.Font = "Times New Roman"
        Me.TextBox12.Font.Size = 18
End With
End Sub

Code :

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

1
2
3
Me.ORL.RowSource = "ORL!A1:A8" & Sheets("ORL").Cells(1, 1).End(xlDown).Row
Me.ORL.Font = "Times New Roman"
Me.ORL.Font.Size = 14

cela me mais


je ne comprend pas d’où cela peut venir
Ma feuille ce nome: ORL, la zone nom: ORL

merci d'avance

[unparia]

Ceci est pour moi incompréhensible

Code :

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

Me.ORL.RowSource = "ORL!A1:A8" & Sheets("ORL").Cells(1, 1).End(xlDown).Row

1) Si ORL est une feuille : une feuille n'a pas de propriété Rowsource
2) si ORL est une combobox, sa propriété RowSourne ne saurait qu'être du type (exemple) :

Code :

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

= "nom_de_la_feuille!plage_de_cellules"

3) je suis quasi effrayé par toute cette confusion où ORL serait ici un contrôle, là une feuille, etc .... et surtout par un RowSource ainsi construit !

[james17]

Salut unparia,
Ha ok ben cela fonctionne pour toutes les autres

je ne peut mettre pour l'instant le fichier a cause des données personnels

mais si tu a une solution je suis preneur

merci

[unparia]

je ne peut mettre pour l'instant le fichier a cause des données personnels

mais si tu a une solution je suis preneur

je ne peux en aucun cas en avoir une dans de telles conditions ! Et ne peux non plus m'asseoir sur ta chaise, utiliser ton clavier, etc ...
1) Qu'est ORL dans Me.ORL ? Si ce n'est ni une combobox, ni une ListBox, cela n'a aucun sens !
2) insère donc un simple

Code :

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

msgbox "ORL!A1:A8" & Sheets("ORL").Cells(1, 1).End(xlDown).Row

et regarde toi-même si cela correspond à la syntaxe que je t'ai montrée !

[james17]

Je vais essayer

Merci de l'aide..

[Philippe Tulliez]

Bonjour,
Comme te l'a très justement écrit Unparia que je salue au passage, l'instruction ci-dessous

Code :

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

Me.ORL.RowSource = "ORL!A1:A8" & Sheets("ORL").Cells(1, 1).End(xlDown).Row

ne peut pas te donner satisfaction même si tu affirmes

tous fonctionné impeccablement pour 14 combo mais sauf pour une.
alors que j'ai mis la même choses....

Eventuellement (mais sans avoir testé) et en supposant que le Combobox et ta feuille porte le même nom

Code :

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

Me.ORL.RowSource = "ORL!A1:A" & Sheets("ORL").Cells(1, 1).End(xlDown).Row

Le plus simple lorsque tu as une adresse à référencer dans la propriété RowSource c'est l'utilisation de la propriété Address de l'objet Range avec l'argument nommé External à True
(Attention écrit de mémoire)

[james17]

Bonjour Philippe, je ne mets pas en doute ce que dit unparia.

ce que je comprends pas c'est que sa marche pour les 14 autres cobo et text que j'ai fait

après peut être que j'ai mal codé le tous, je recherche d'ailleurs de meilleurs solution...

je vais effacer les données personnels et mettre en liens.

cordialement

[unparia]

Bonjour Philippe Tulliez


En espérant que sa colonne A ne soit pas vide ou que seule la cellule A1 soit remplie (sinon --->> le row est le Rows.count et l'on outrepasse la capacité de gestion d'une combobox, même en oubliant ce "8" )
Mais il s'en serait rendu compte s'il avait seulement vérifié (je le lui ai dit) par :

2) insère donc un simple

Code :

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

1
2
 
msgbox "ORL!A1:A8" & Sheets("ORL").Cells(1, 1).End(xlDown).Row

et regarde toi-même si cela correspond à la syntaxe que je t'ai montrée !

[james17]

Je les fait unparia

car je prend a cœur toutes les infos que l'on me donne..

je mais mon fichier en pièces jointes, j'ai supprimé les donné et mis des numéros.

Liste de garde a imprimer James2.xls

merci

[unparia]

Je n'ouvre (et n'ouvrirai) jamais un classeur tiers. Désolé !
Mets ici en copié/collé ce que t'a affiché la msgbox !

[james17]

et rien a changé dans VBA

[unparia]

Je viend donc de créer un classeur avec une feuille nommée ORL
et j'ai créé un userform avec une combobox nommée ORL
et ce code dans le userform :

Code :

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

1
2
3
Private Sub UserForm_Activate()
 ORL.RowSource = "ORL!A1:A810"
End Sub

et je n'ai pas ton message d'erreur (celui dont tu as joint une image).
Ton erreur est donc ailleurs. Et probablement dans le fait que tu as également baptisé ORL autre chose encore (si bien que VBA ne s'y retrouve plus).

A moins (puisque j'en suis aux devinettes) que ta feuille ne soit pas nommée ORL, mais autrement. Ou qu'un espace indu ait été mis devent ou derrière son nom (" ORL" ou "ORL ") !