Afficher un texte sur un bouton à partir d'une celulle.

[Lone-wolf]

Bonsoir à tous,

Explications dans le classeur joint.

Attention le bouton est un contrôle de formulaire et non ActiveX.


A+ 😎

 

[MichD]

Re : Afficher un texte sur un bouton à partir d'une celulle.

Bonjour,

Question simpliste, tu débutes par le début, tu ajoutes un peu de sel et la réponse finale va te sauter aux yeux !
Oh, j'oubliais, la publication de ton fichier n'apporte rien.

J'ajoute ceci au cas où tu aurais de la difficulté à comprendre :

Private Sub Worksheet_Calculate()
With ActiveSheet.Shapes("bouton").OLEFormat.Object
.Text = [A20].Value
.Font.Name = "Cooper Black"
.Font.FontStyle = "Gras italique"
.Font.Size = 26
.Font.ColorIndex = 42
End With
End Sub

 

[Hulk]

Re : Afficher un texte sur un bouton à partir d'une celulle.

Hello,

Comme ça peut-être...

Private Sub Worksheet_Calculate()

    ActiveSheet.Shapes.Range("bouton").Select
    Selection.Characters.Text = [A20].Value

    With Selection.Characters
        .Font.Name = "Cooper Black"
        .Font.FontStyle = "Gras italique"
        .Font.Size = 26
        .Font.ColorIndex = 42
    End With
    
    ActiveCell.Select
    
End Sub

 

[Lone-wolf]

Re : Afficher un texte sur un bouton à partir d'une celulle.

Bonjour MichD, Hulk, 😀

C'est que je voulais répondre à quelqu'un sur un autre fil, mais je l'ai perdu. 😱

@MichD : Le code exemple est chez Boisgontier pour la personnalisation d'un shape.

@ Hulk: on est de retour??? Merci pour le raccourci. 😉

Et j'ai rajouté ceci.

If Range("total").Text = "" Then
ActiveSheet.Shapes("bouton").TextFrame.Characters.Text = "" 'Pour éviter d'afficher 0
End If


A+ 😎

 

[MichD]

Re : Afficher un texte sur un bouton à partir d'une celulle.

| @MichD : Le code exemple est chez Boisgontier pour la personnalisation d'un shape.

Pourquoi, le code soumis ne fonctionne pas ?

 

[Lone-wolf]

Re : Afficher un texte sur un bouton à partir d'une celulle.

Re, MichD

je viens d'ouvrir la PJ et chez moi ça fonctionne.

C'est la ligne: ActiveSheet.Shapes("bouton").OLEFormat.Object qui cause problème.


A+ 😎