Discussion :

[Ok371]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Ok371]

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