Bonjour à vous.

J’avais un fichier Word me permettant de suivre l'apprentissage de mes élèves que j'imprimai chaque année.
Disposant d'une tablette et le fichier étant existant, j’ai voulu ne plus imprimer le fichier et plutôt m'orienter vers une version numérique.
Pour cela, j'ai seulement ajouté 70 CommandButton dans le tableau avec des actions quand on clique dessus.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "" Then
        CommandButton1.BackColor = &HFF8080 'violet
        CommandButton1.Caption = "ECA"
    ElseIf CommandButton1.Caption = "ECA" Then
        CommandButton1.BackColor = &H80FF80 'vert
        CommandButton1.Caption = "A"
    Else
        CommandButton1.BackColor = &H8000000F 'défault
        CommandButton1.Caption = ""
    End If
End Sub
Ce fichier fonctionne très bien, mais si je souhaite modifier un élément, par exemple changer la couleur, je devrais le faire 40 fois.
J'ai regardé sur internet et j'ai trouvé des exemples avec des modules de classe, etc. mais plutôt orienter sur Excel avec des UF ce dont je ne dispose pas sur Word.
Du coup, je me tourne vers vous pour savoir s'il existe une solution ?

Voici un exemple de mon fichier de base.
Fichier exemple.zip

Merci d'avance pour votre aide.