Afficher la valeur d'une cellule dans le Caption d'un Command Button

Bonsoir,

Peut-on afficher la valeur d'une cellule dans le Caption d'un CommandButton et surtout qu'il reste quand, j'ouvre mon userform ?

Merci par avance,

Bonjour

On peut, en se servant de la propriété "Value" du controle "CommandButton"

Bye !

je suis d'accord car je possède ce code là :

Private Sub CommandButton1_Click()

CommandButton1.Caption = Sheets("BDD").Range("B2")

UserForm1.TextBox1 = Sheets("BDD").Range("B2")

End Sub

Sauf que , quand j'ouvre mon Userform, le nom de la commandButton1 est CommandButton1

capture 10

Salut Storm,

simple, tu initialises ton CommandButton à l'ouverture de l'Userform...

Private Sub UserForm_Activate()
'
Me.CommandButton1.Caption = Sheets("BDD").Range("B2")
'
End Sub

A+

ok mais mon code est dans UserformX_Initialize

Non cela ne fonctionne pas ...

J'ai toujours le CommandButton1 comme nom du bouton ...

Bonjour,

UserformX_Initialize n'existe pas.

Quelque soit l'UF ça sera toujours Userform_Initialize.

Initialize n'est appelé n'est appelé qu'une seule fois si tu ne décharges pas l'UF avec Unload.

Avec UserForm_Activate proposé par curulis il sera appelé et mis à jour à chaque .Show, même si non déchargé.

eric

ça ne fonctionne pas désolé.

Je vais voir autre chose

Voici les codes que je possède dans mon userform :

Private Sub Userform7_Activate()

Call CommandButton826_Click

Me.CommandButton1.Caption = Sheets("BDD").Range("B62")

UserForm7.Controls("CommandButton2").Caption = Sheets("BDD").Range("B63").Value

UserForm7.Controls("CommandButton3").Caption = Sheets("BDD").Range("B64").Value

UserForm7.Controls("CommandButton4").Caption = Sheets("BDD").Range("B65").Value

UserForm7.Controls("CommandButton5").Caption = Sheets("BDD").Range("B66").Value

UserForm7.Controls("CommandButton6").Caption = Sheets("BDD").Range("B67").Value

UserForm7.Controls("CommandButton7").Caption = Sheets("BDD").Range("B68").Value

UserForm7.Controls("CommandButton8").Caption = Sheets("BDD").Range("B69").Value

UserForm7.Controls("CommandButton9").Caption = Sheets("BDD").Range("B70").Value

UserForm7.Controls("CommandButton10").Caption = Sheets("BDD").Range("B71").Value

UserForm7.Controls("CommandButton11").Caption = Sheets("BDD").Range("B72").Value

UserForm7.Controls("CommandButton12").Caption = Sheets("BDD").Range("B73").Value

UserForm7.Controls("CommandButton13").Caption = Sheets("BDD").Range("B74").Value

UserForm7.Controls("CommandButton14").Caption = Sheets("BDD").Range("B75").Value

UserForm7.Controls("CommandButton15").Caption = Sheets("BDD").Range("B76").Value

End Sub

Private Sub CommandButton1_Click()

CommandButton1.Caption = Sheets("BDD").Range("B62").Value

UserForm1.TextBox1 = Sheets("BDD").Range("B62")

End Sub

Private Sub CommandButton2_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B63")

CommandButton2.Caption = Sheets("BDD").Range("B63").Value

End Sub

Private Sub CommandButton3_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B64")

CommandButton3.Caption = Sheets("BDD").Range("B64").Value

End Sub

Private Sub CommandButton4_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B65")

CommandButton4.Caption = Sheets("BDD").Range("B65").Value

End Sub

Private Sub CommandButton5_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B66")

CommandButton5.Caption = Sheets("BDD").Range("B66").Value

End Sub

Private Sub CommandButton6_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B67")

CommandButton6.Caption = Sheets("BDD").Range("B67").Value

End Sub

Private Sub CommandButton7_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B68")

CommandButton7.Caption = Sheets("BDD").Range("B68").Value

End Sub

Private Sub CommandButton8_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B69")

CommandButton8.Caption = Sheets("BDD").Range("B69").Value

End Sub

Private Sub CommandButton9_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B70")

CommandButton9.Caption = Sheets("BDD").Range("B70").Value

End Sub

Private Sub CommandButton10_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B71")

CommandButton10.Caption = Sheets("BDD").Range("B71").Value

End Sub

Private Sub CommandButton11_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B72")

CommandButton11.Caption = Sheets("BDD").Range("B72").Value

End Sub

Private Sub CommandButton12_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B73")

CommandButton12.Caption = Sheets("BDD").Range("B73").Value

End Sub

Private Sub CommandButton13_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B74")

CommandButton13.Caption = Sheets("BDD").Range("B74").Value

End Sub

Private Sub CommandButton14_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B75")

CommandButton14.Caption = Sheets("BDD").Range("B75").Value

End Sub

Private Sub CommandButton15_Click()

UserForm1.TextBox1 = Sheets("BDD").Range("B76")

CommandButton15.Caption = Sheets("BDD").Range("B76").Value

End Sub

Il faut lire les réponses si tu veux avancer :

[size=150]UserformX_Initialize n'existe pas.

Quelque soit l'UF ça sera toujours UserForm_Initialize.[/size]

Et c'est pareil pour tous les événements des Userform, y compris le Activate

Donc tu enlèves le 7 de Userform7_Activate()

Ne déclare jamais toi-même les proc événementielles, utilise toujours la liste déroulante en haut à droite (choisir l'objet dans celle de gauche avant)

Non seulement ça te permet de voir à quels événements tu as droit, mais en plus la syntaxe sera exacte, avec ses paramètres.

eric

ok ok

merci de ta réponse en caractère gras et rouge ...

J'adore me faire engueuler quand je débute en VBA.

Rechercher des sujets similaires à "afficher valeur caption command button"