récupération de la valeur dela listbox dans text box

[hidozo]

Bonjour

Pourquoi cela ne veut pas marcher ?

Private Sub ValidNom_Click()
Dim VTexte As String
VTexte = ""
If Me.ComboBox1 = True Then
VTexte = VTexte & Me.ComboBox1 & vbCrLf
Me.nomphoto = VTexte
End If
End Sub

et pour la nomphoto :

nomphoto = Vtext

cordialement

 

[tototiti2008]

Re : récupération de la valeur dela listbox dans text box

Bonjour hidozo,

Et ça plante où ? c'est quoi nomphoto (un label, une textbox, ...?)

 

[hidozo]

Re : récupération de la valeur dela listbox dans text box

Bonjour,

Nomphoto est une textbox

9a ne plante pas, pas de bug, mais rien ne s'affiche dans ma textbox.

En fait je déroule ma listbox (combobox1), je cklique sur une photo qui s'affiche et en validant avec le bouton validnom je voudrais que le nom de la phto sur leqiuel je viens de cliquer s'affiche dans ma textbox (nomphoto)

Cordialement

 

[Lii]

Re : récupération de la valeur dela listbox dans text box

Bonjour,

Que testes-tu là :
If Me.ComboBox1 = True then ... ?

Ne serait-ce pas
If Me.ComboBox1 <>"" Then ... ?

 

[hidozo]

Re : récupération de la valeur dela listbox dans text box

Rien ne marche,

je crise

 

[tototiti2008]

Re : récupération de la valeur dela listbox dans text box

Bonjour à tous,

et avec

Private Sub ValidNom_Click()
Me.nomphoto = Me.ComboBox1
End Sub

ça donne quoi ?

 

[hidozo]

Re : récupération de la valeur dela listbox dans text box

tototiti2008

Un immense merci. 9a fonctionne merveilleusement bien

Maintenant je veux récupérer le début d'un nom dans une autre textbox. Je m'explique :

le nom de la photo est IMGP1254-kjhkjhkjh

le nom du film est IMGP1254

comment puis-je faire pour récupérer ça dans une autre textbox ?

Cordialement
hidozo

 

[tototiti2008]

Re : récupération de la valeur dela listbox dans text box

Quelquechose comme :

Me.textbox2=left(Me.nomphoto,instr(1,Me.nomphoto,"-")-1)

 

[hidozo]

Re : récupération de la valeur dela listbox dans text box

Trop géant merci

Problème résolu