Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Apres choix dans une combobox renvoit d'une valeur dans une texbox, deuxieme.

Apres choix dans une combobox renvoit d'une valeur dans une texbox, deuxieme.

6 réponses
Avatar
loic.
Bonjour =E0 tous ! :)

Finalement j'ai gard=E9 le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c =3D .Find(hotc1, LookIn:=3DxlValues)
If Not c Is Nothing Then firstaddress =3D c.Address
End With
hoti1 =3D Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :=20


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource =3D Range([a5], [a5].End(xlDown)).Address
End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c =3D .Find(hotc1, LookIn:=3DxlValues)
If Not c Is Nothing Then firstaddress =3D c.Address
End With
hoti1 =3D Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver =E0 :
Dans la combobox "hotc" les valeurs sont stock=E9s de A5 =E0 Ax
Des la s=E9lection d'une valeur dans la list, la valeur=20
=E9quivalent dans la col B est affich=E9 dans la textbox=20
appel=E9 ici "hoti".

Le pb c'est que le programme se lance sans err, le d=E9bug=20
ne me dis rien et que je ne saisi pas ou se situe=20
l'erreur :))))

Merci d'avance et bonne semaine!=20

ps: bjr Camille et Misange ;-)
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
loic.
bonjour.

j'ai suivi pas à pas l'exemple que tu m'as envoyé, en
résult un bug que je n'arrive pas à identifier :/

-----Message d'origine-----
re bonjour
l'exemple que je t'ai envoyé fait exactement ce que tu
demandes....


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





"loic." a écrit dans le message de news:
05b401c35a6d$e8999420$
Bonjour à tous ! :)

Finalement j'ai gardé le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource = Range([a5], [a5].End(xlDown)).Address
End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver à :
Dans la combobox "hotc" les valeurs sont stockés de A5 à
Ax

Des la sélection d'une valeur dans la list, la valeur
équivalent dans la col B est affiché dans la textbox
appelé ici "hoti".

Le pb c'est que le programme se lance sans err, le débug
ne me dis rien et que je ne saisi pas ou se situe
l'erreur :))))

Merci d'avance et bonne semaine!

ps: bjr Camille et Misange ;-)


.



Avatar
loic.
yop :)

C'est exactement la meme chose :/
Rappel :
hoti c la textbox
hotc c la combobox.

Le soft tourne sans err mais aucun retour dans la textbox
lors d'un choix dans la combobox. Dois je passe par un
bouton VALIDER obligatoirement ?

-----Message d'origine-----
Salut,

Tout est nickel sauf :
Set c = .Find(hotc1, LookIn:=xlValues)
qu'il me semble falloir remplacer par :
Set c = .Find(hotc, LookIn:=xlValues)

A suivre...
Camille

-----Message d'origine-----
Bonjour à tous ! :)

Finalement j'ai gardé le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource = Range([a5], [a5].End(xlDown)).Address
End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver à :
Dans la combobox "hotc" les valeurs sont stockés de A5 à
Ax

Des la sélection d'une valeur dans la list, la valeur
équivalent dans la col B est affiché dans la textbox
appelé ici "hoti".

Le pb c'est que le programme se lance sans err, le débug
ne me dis rien et que je ne saisi pas ou se situe
l'erreur :))))

Merci d'avance et bonne semaine!

ps: bjr Camille et Misange ;-)
.

.





Avatar
loic.
hum par contre dans ce code je ne saisi pas bien ou le
fait que :

combo text
A5 = B5
A6 = B6
Ax = Bx

est défini ? !

-----Message d'origine-----
Salut,

Tout est nickel sauf :
Set c = .Find(hotc1, LookIn:=xlValues)
qu'il me semble falloir remplacer par :
Set c = .Find(hotc, LookIn:=xlValues)

A suivre...
Camille

-----Message d'origine-----
Bonjour à tous ! :)

Finalement j'ai gardé le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource = Range([a5], [a5].End(xlDown)).Address
End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver à :
Dans la combobox "hotc" les valeurs sont stockés de A5 à
Ax

Des la sélection d'une valeur dans la list, la valeur
équivalent dans la col B est affiché dans la textbox
appelé ici "hoti".

Le pb c'est que le programme se lance sans err, le débug
ne me dis rien et que je ne saisi pas ou se situe
l'erreur :))))

Merci d'avance et bonne semaine!

ps: bjr Camille et Misange ;-)
.

.





Avatar
loic.
Raaaaaa pinaise !!!!!
Merci Camille.... en ayant mis le point sur le premiere
faute, à savoir : hotc1 au lieu de hotc j'ai pu trouvé la
seconde : hoti1 au lieu de hoti ...
C'est coooool ça marche ;-)

Me reste maintenant à créer un bouton qui permette de
détruire la ligne choisi dans la combobox (en cas
d'erreur)...

Merci à vous les filles :)

-----Message d'origine-----
Bonjour à tous ! :)

Finalement j'ai gardé le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource = Range([a5], [a5].End(xlDown)).Address
End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver à :
Dans la combobox "hotc" les valeurs sont stockés de A5 à
Ax

Des la sélection d'une valeur dans la list, la valeur
équivalent dans la col B est affiché dans la textbox
appelé ici "hoti".

Le pb c'est que le programme se lance sans err, le débug
ne me dis rien et que je ne saisi pas ou se situe
l'erreur :))))

Merci d'avance et bonne semaine!

ps: bjr Camille et Misange ;-)
.



Avatar
loic.
comme précisé à l'instant ... la formule était bonne, par
contre je me plantais dans le nom de la combo et de la
textbox...
Merci à toi d'avoir mis le point sur cette erreur (le 1 en
plus).


-----Message d'origine-----
ReBonjour,

Ote-moi d'un doute : c'est bien le résultat de ce qui est
choisi dans la ComboBox qui génère l'affichage dans le
TextBox ?
Donc si ta ComboBox s'appelle "hotc", il faut :
Set c = .Find(hotc, LookIn:=xlValues)
Bien entendu il n'y a d'affichage que si tu choisis un
autre élément dans la Combobox (Private Sub hotc_Change).

Camille

-----Message d'origine-----
yop :)

C'est exactement la meme chose :/
Rappel :
hoti c la textbox
hotc c la combobox.

Le soft tourne sans err mais aucun retour dans la
textbox


lors d'un choix dans la combobox. Dois je passe par un
bouton VALIDER obligatoirement ?

-----Message d'origine-----
Salut,

Tout est nickel sauf :
Set c = .Find(hotc1, LookIn:=xlValues)
qu'il me semble falloir remplacer par :
Set c = .Find(hotc, LookIn:=xlValues)

A suivre...
Camille

-----Message d'origine-----
Bonjour à tous ! :)

Finalement j'ai gardé le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource = Range([a5], [a5].End
(xlDown)).Address




End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver à :
Dans la combobox "hotc" les valeurs sont stockés de A5
à



Ax
Des la sélection d'une valeur dans la list, la valeur
équivalent dans la col B est affiché dans la textbox
appelé ici "hoti".

Le pb c'est que le programme se lance sans err, le
débug



ne me dis rien et que je ne saisi pas ou se situe
l'erreur :))))

Merci d'avance et bonne semaine!

ps: bjr Camille et Misange ;-)
.

.


.


.







Avatar
Ellimac
Attention aux prénoms mixtes !!!!

-----Message d'origine-----
Raaaaaa pinaise !!!!!
Merci Camille.... en ayant mis le point sur le premiere
faute, à savoir : hotc1 au lieu de hotc j'ai pu trouvé la
seconde : hoti1 au lieu de hoti ...
C'est coooool ça marche ;-)

Me reste maintenant à créer un bouton qui permette de
détruire la ligne choisi dans la combobox (en cas
d'erreur)...

Merci à vous les filles :)

-----Message d'origine-----
Bonjour à tous ! :)

Finalement j'ai gardé le code de camille, qui disait :
Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

ce qui donne en tout est pour tout :


' page 1
Private Sub UserForm_Initialize()
hotc.RowSource = Range([a5], [a5].End(xlDown)).Address
End Sub

Private Sub hotc_Change()
With Range([a5], [a5].End(xlDown))
Set c = .Find(hotc1, LookIn:=xlValues)
If Not c Is Nothing Then firstaddress = c.Address
End With
hoti1 = Range(firstaddress).Offset(0, 1).Value
End Sub

Ce code pour moi devrait arriver à :
Dans la combobox "hotc" les valeurs sont stockés de A5 à
Ax

Des la sélection d'une valeur dans la list, la valeur
équivalent dans la col B est affiché dans la textbox
appelé ici "hoti".

Le pb c'est que le programme se lance sans err, le débug
ne me dis rien et que je ne saisi pas ou se situe
l'erreur :))))

Merci d'avance et bonne semaine!

ps: bjr Camille et Misange ;-)
.

.