Valeurs dans zone de texte selon ComboBox

[Hulk]

Hello les amis,

J'essaye, depuis un moment, d'afficher dans une zone de text des valeurs selon le choix fait dans la ComboBox... en vain.

Si quelqu'un pouvait m'aider 😀

Voyez le fichier joint.

Cdt, Hulk.

 

[kjin]

Re : Valeurs dans zone de texte selon ComboBox

Bonsoir Hulk,
Le plus simple

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex <> -1 Then
    ActiveSheet.Shapes("Zone").Select
    Selection.Characters.Text = ""
    Selection.Characters.Text = CStr(Cells(ComboBox1.ListIndex + 1, 2))
End If
End Sub

A+
kjin

 

[Hulk]

Re : Valeurs dans zone de texte selon ComboBox

Hello,

Merci impec Kjin !

Juste une petite question : C'est quoi CStr ?

Cdt, Hulk.

EDIT: Ok je sais. Ca renvoie une chaine de caractères. Merci.

 

[Robert]

Re : Valeurs dans zone de texte selon ComboBox

Bonsoir Hulk, bonsoir le forum,

En pièce jointe ton fichier modifié et commenté.

Édition

Ooops en retard... Salut Kjin on s'est croisé

 

[skoobi]

Re : Valeurs dans zone de texte selon ComboBox

Bonjour Hulk,

essaie plutôt ceci:

Private Sub CommandButton1_Click()
Dim x As Integer
Dim y As Shape

x = ComboBox1.ListIndex + 1
Set y = ActiveSheet.Shapes("Zone")
If ComboBox1 <> "" Then
    With y
      y.TextFrame.Characters.Text = Range("B" & x)
    End With
End If

End Sub

Edit: oullaaa, suis à la bourre moi, hello Robert et kjin 🙂

PS: une version sans Select 😉

 

[kjin]

Re : Valeurs dans zone de texte selon ComboBox

Re,
C'est les restes d'une vieille manie (phobie) qui consiste à convertir en Texte les valeurs Numériques.
Tu peux t'en passer dans le cas présent
Edit : salut à Robert et skoobi 🙂
A+
kjin

 

[skoobi]

Re : Valeurs dans zone de texte selon ComboBox

La version light:

Private Sub CommandButton1_Click()

If ComboBox1.ListIndex <> -1 Then ActiveSheet.Shapes("Zone").TextFrame.Characters.Text = Range("B" & ComboBox1.ListIndex + 1)

End Sub

 

[Hulk]

Re : Valeurs dans zone de texte selon ComboBox

Hello,

Wouha cool les amis toutes vos versions sont bien !

Merci pour les commentaires Robert.. toujours utiles 😉

Kjin merci pour le CStr, effectivement on peut l'enlever dans ce cas 🙂

Skoobi cool ta version "short", et au fait je n'étais pas très loin de ta première version si je me souviens bien 🙄

Bref merci à tous 😀

Au plaisir de vous lire, Hulk.