Comportement dynamique de boutons dans un tableau excel vba

Version imprimable

Bonjour,

J'ai une feuille excel qui se rempli dynamiquement de boutons pour former un tableau de boutons par le code:
Code:

1 2 3 4 5 6 For lig = 2 To Sheets("Var").Range("LiTab").Value + 1 For col = 2 To Sheets("Var").Range("ColTab").Value ActiveSheet.Buttons.Add(Cells(lig, col).Left, Cells(lig, col).Top, Cells(lig, col).Width, Cells(lig, col).Height).Select Next col Next lig
- J'aimerais que l'aspect de chaque bouton soit déterminé par l'état d'une cellule dans un autre tableau (par exemple fond du bouton et couleur du texte). Pour cela j'ai mis une condition dans la boucle, mais je n'arrive pas à faire le lien entre le bouton concerné et la condition.

- J'aimerais également que l'action déclenchée par l'utilisation de chaque bouton prenne en compte la ligne et la colonne du bouton concerné.

Je suis débutant en vba et je me noie un peu.

Merci à tous

On va nommer les boutons d'une manière explicite btnB4 est le bouton contenu dans la cellule B4,btnC12-> cellule C12...
un exemple à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Btn As Object
Dim Lig As Integer, Col As Integer
 
For Lig = 2 To Sheets("Var").Range("LiTab").Value + 1
    For Col = 2 To Sheets("Var").Range("ColTab").Value
        With Cells(Lig, Col)
            On Error Resume Next
            ActiveSheet.Buttons("Btn" & .Address(0, 0)).Delete
            On Error GoTo 0
            Set Btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
            Btn.Name = "Btn" & .Address(0, 0)
            Btn.Caption = "Bouton " & Lig - 1 & "." & Col - 1
            Btn.Font.ColorIndex = Lig
            Set Btn = Nothing
        End With
    Next Col
Next Lig

14/11/2010, 16h51
babaothe
salut

C'est au moment même de la création, que tu dois agir.
Je reprends ici l'exemple que je t'ai donné dans ton autre discussion et y ajoute une "modif"
Code:

1 2 3 4 For i = 1 To 4 ActiveSheet.Buttons.Add(Cells(1, i).Left, decal, Cells(1, i).Width, Cells(1, i).Height).Select Selection.Font.ColorIndex = Cells(1, i).Font.ColorIndex Next
Dans cet exemple ; au moment de la création, je donne à la police du bouton la même couleur que celle de la police de la cellule.
Il va de soi que tu peux, de la même manière (selon la même méthode) modifier d'autres propriétés de ton bouton (mais uniquement celles correspondant, bien évidemment, à des propriétés modifiables d'un bouton, hein)
14/11/2010, 20h06
Ok371

OnAction conditionnel ?

Merci à tous les 2

J'ai bien compris comment affecter les noms, mais je reste coincé sur la suite de l'opération, mais peut-être n'ai-je pas suffisamment extrapolé à partir des codes que vous m'avez envoyé.

L'action qui doit être faite ensuite dépend de l'en-tête de ligne et de l'en-tête de colonne du bouton qui a été activé.

Comment faire pour, dans la procédure qui suit le OnAction, repérer le bouton qui a été cliqué pour récupérer son en-tête de ligne et son en-tête de colonne ?

Merci à vous