userform et combobox

plus simple :-)
sur une feuille de ton classeur (data)
en colonne A chat chien poisson, table chaise...
en colonne B animal animal animal meuble meuble...
Insertion/nom/définir : dans la case du haut tu écris maliste
dans la case du bas tu recopies :
ÞCALER(data!$A$1;;;NBVAL(data!$A:$A);2)

tu n'écris rien d'autre dans ces colonnes A et B

dans le code de ton userform :

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "data!maliste"
End Sub


Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Column(1, ComboBox1.ListIndex)
End Sub


Un exemple dans ta BAL


--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !=========== >



"Ellimac" <PasDePubellimacNiSpam_cremelier@hotmail.com> a écrit dans le
message de news: 0a6901c35839$dca273c0$a601280a@phx.gbl...
Voilà qui est nettement plus clair !!! :)

Private Sub ComboBox1_Change()
With Range([a1],[a1].end(XlDown))
Set c = .Find(ComboBox1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
TextBox1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Camille (qui se sauve en WE)

-----Message d'origine-----
ok :)

vais détailler un max alors :)))

On a des valeurs en A5 jusqu'à Ax (ou x est varaible)
On a des valeurs correpondante en B5.

Exemple :

A5 B5
chat animal
table meuble


Dans la combobox aujourd'hui, on trouverai : Chat / table
et ce grace à ton aide :)
Mais j'aimerais que quand Chat soit choisi, dans une
textbox apparaisse la correspondance cad : animal.

C'est mieux là?:)))
Par contre je viens de m'apercevoir qu'il serait tres
utile de pouvoir Supprimer des valeurs en A5 (si erreur
de

validation par exemple). Le mieux ne serait 'il pas une
combobox qui repprenne les valeurs de la colonne A et qui
une fois la valeur selectionner autorise le click sur un
bouton "delete" pour supprimer la ligne?

Tres intéressant tout ça :)

-----Message d'origine-----
Re,

Je ne comprend toujours pas !!!
A quoi sert la combobox et quel lien avec la TextBox ?

Camille

-----Message d'origine-----
Excellent, pil poil ce que je cherchais merci Camille.

explication du 2/ :
Une fois le choix sélectionné dans la combobox,
j'aimerais

qu'un résultat différent s'affiche dans une textbox...
J'ai su faire grrrr :///

Merci !;-)

ps: désolé pour le doublon

-----Message d'origine-----
Rebonjour,

1) Une zone qui part d'une cellule jusqu'à la dernière
cellule remplie : Range([A3],[A3].End(XlDown)).Address
2) Pas compris !!

Camille

-----Message d'origine-----
eheheheh
Merci camille ! :)


Deux petites questions en complément si cela ne
t'ennuie

pas.
dans ce code : Test.RowSource = Range
("a1:a3").Address

on

sous entends que la range est défini (que l'on
connait

le

nombre de ligne ...) cependant cette range dépends du
nombre de valeur inscrite depuis un formulaire de
saisie... ya moyen de corriger cela?
Sinon que faire pour que la textbox sélectionné soit
en

concordance avec la valeur selectionné dans la combox?

Je prends des notes hein, pour pas avoir à
redemander :)

THK

-----Message d'origine-----
Salut Loïc,

Private Sub UserForm_Initialize()
Test.RowSource = Range("a1:a3").Address
End Sub

Camille

-----Message d'origine-----
Bonjour,


J'ai essayé d'adapter le code :

Private Sub Userform_Initialize()
test = [a5]
End Sub

ou "test" n'est pas une textbox mais une combobox.
Pb je ne sais pas que faire pour que la combobox
contiennent une ligne de choix et non pas les
valeurs

d'une seule cellule ...
j'ai essayé diverses choses mais je ne trouve
pas...

Merci à vous ;)

ps: Merci à toi Camille qui va encore me répondre
je

le

sens bien :ppp

bonne journée
.

.

.

.

.

.

.

-----Message d'origine-----
euh, c'est à loic que j'ai envoyé le classeur, pas à
toi :-))

--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
============

"Misange" <misange@devinez-où.net> a écrit dans le
message de news:

#wkEwIEWDHA.3924@tk2msftngp13.phx.gbl...

plus simple :-)
sur une feuille de ton classeur (data)
en colonne A chat chien poisson, table chaise...
en colonne B animal animal animal meuble meuble...
Insertion/nom/définir : dans la case du haut tu écris
maliste

dans la case du bas tu recopies :
=DECALER(data!$A$1;;;NBVAL(data!$A:$A);2)

tu n'écris rien d'autre dans ces colonnes A et B

dans le code de ton userform :

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "data!maliste"
End Sub


Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Column(1,
ComboBox1.ListIndex)

End Sub


Un exemple dans ta BAL


--
Misange migrateuse http://www.excelabo.net
==Attention, Disciplus a migré et devient excelabo !
============

"Ellimac" <PasDePubellimacNiSpam_cremelier@hotmail.com>
a écrit dans le

message de news: 0a6901c35839$dca273c0
$a601280a@phx.gbl...

Voilà qui est nettement plus clair !!! :)

Private Sub ComboBox1_Change()
With Range([a1],[a1].end(XlDown))
Set c = .Find(ComboBox1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
TextBox1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Camille (qui se sauve en WE)

-----Message d'origine-----
ok :)

vais détailler un max alors :)))

On a des valeurs en A5 jusqu'à Ax (ou x est varaible)
On a des valeurs correpondante en B5.

Exemple :

A5 B5
chat animal
table meuble


Dans la combobox aujourd'hui, on trouverai : Chat /
table

et ce grace à ton aide :)
Mais j'aimerais que quand Chat soit choisi, dans une
textbox apparaisse la correspondance cad : animal.

C'est mieux là?:)))
Par contre je viens de m'apercevoir qu'il serait tres
utile de pouvoir Supprimer des valeurs en A5 (si erreur
de

validation par exemple). Le mieux ne serait 'il pas une
combobox qui repprenne les valeurs de la colonne A et
qui

une fois la valeur selectionner autorise le click sur
un

bouton "delete" pour supprimer la ligne?

Tres intéressant tout ça :)

-----Message d'origine-----
Re,

Je ne comprend toujours pas !!!
A quoi sert la combobox et quel lien avec la TextBox ?

Camille

-----Message d'origine-----
Excellent, pil poil ce que je cherchais merci
Camille.

explication du 2/ :
Une fois le choix sélectionné dans la combobox,
j'aimerais

qu'un résultat différent s'affiche dans une
textbox...

J'ai su faire grrrr :///

Merci !;-)

ps: désolé pour le doublon

-----Message d'origine-----
Rebonjour,

1) Une zone qui part d'une cellule jusqu'à la
dernière

cellule remplie : Range([A3],[A3].End
(XlDown)).Address

2) Pas compris !!

Camille

-----Message d'origine-----
eheheheh
Merci camille ! :)


Deux petites questions en complément si cela ne
t'ennuie

pas.
dans ce code : Test.RowSource = Range
("a1:a3").Address

on

sous entends que la range est défini (que l'on
connait

le

nombre de ligne ...) cependant cette range dépends
du

nombre de valeur inscrite depuis un formulaire de
saisie... ya moyen de corriger cela?
Sinon que faire pour que la textbox sélectionné
soit

en

concordance avec la valeur selectionné dans la
combox?

Je prends des notes hein, pour pas avoir à
redemander :)

THK

-----Message d'origine-----
Salut Loïc,

Private Sub UserForm_Initialize()
Test.RowSource = Range("a1:a3").Address
End Sub

Camille

-----Message d'origine-----
Bonjour,


J'ai essayé d'adapter le code :

Private Sub Userform_Initialize()
test = [a5]
End Sub

ou "test" n'est pas une textbox mais une
combobox.

Pb je ne sais pas que faire pour que la combobox
contiennent une ligne de choix et non pas les
valeurs

d'une seule cellule ...
j'ai essayé diverses choses mais je ne trouve
pas...

Merci à vous ;)

ps: Merci à toi Camille qui va encore me répondre
je

le

sens bien :ppp

bonne journée
.

.

.

.

.

.

.

.