Bouton et variable

Bonjour,

peut on passer une variable via un bouton et la macro affectée à ce bouton récupérer la valeur de cette variable pour ce bouton ?

Daflinn

Bonjour daflinn

Tu peux rééééépéééter la questiooonnnn

Pas de prob.

Peux ton créer un bouton et lui affecter une valeur. Valeur qui serait transmise en tant que variable à la macro qui est associée à ce même bouton. Cette macro traiterait ensuite dans son algo la valeur de cette variable transmise.

Exemple :

• 3 mêmes boutons qui pointent tous sur une même macro
• Bouton 1 : on lui affecte la valeur "A"
• Bouton 2 : on lui affecte la valeur "B"
• Bouton 3 : on lui affecte la valeur "C"
• Les 3 boutons pointent sur la macro "ma_macro(ma_variable)"
• Je clique sur le Bouton 1 => il passe la valeur de "ma_variable" à la macro "ma_macro" ==> Sub ma_macro(A)
• la macro traite la variable, reconnait le contexte d'appel parce que la variable = "A" et exécute l'algo qui dépend de la valeur "A"

etc... pour chaque bouton.

Voilà

Bonjour mederick ou daflinn

Tu peux essayer ce code

Sub AppelBoutons()
  Dim NomBtn As String, MaVal As String
  NomBtn = Application.Caller
  MaVal = ActiveSheet.Shapes(NomBtn).TextFrame2.TextRange.Text
  Call Algo(MaVal)
End Sub

Sub Algo(MaVal As String)
  MsgBox MaVal
End Sub

Tu lies chaque bouton à la sub "AppelBouton"

A+