Valeurs dans zone de texte selon ComboBox

K

kjin

XLDnaute Barbatruc

• 4 Mars 2009

• #2

Re : Valeurs dans zone de texte selon ComboBox

Bonsoir Hulk,
Le plus simple

Code:

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 4 Mars 2009

• #3

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.

 

Dernière édition: 4 Mars 2009

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Mars 2009

• #4

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é

 

Pièces jointes

• Hulk_v01.xls

  38.5 KB · Affichages: 84
• Hulk_v01.xls

  38.5 KB · Affichages: 87
• Hulk_v01.xls

  38.5 KB · Affichages: 100

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Mars 2009

• #5

Re : Valeurs dans zone de texte selon ComboBox

Bonjour Hulk,

essaie plutôt ceci:

Code:

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 😉

 

Dernière édition: 4 Mars 2009

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Mars 2009

• #6

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Mars 2009

• #7

Re : Valeurs dans zone de texte selon ComboBox

La version light:

Code:

Private Sub CommandButton1_Click()

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

End Sub

 

Dernière édition: 4 Mars 2009

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 5 Mars 2009

• #8

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.

 

Vote positif 0 Vote négatif