ToggleButton boucle module

Bonjour,

J'ai effectué une macro VBA dans module pour créer le nombre de ToggleButton dont j'ai besoin. Je les ai renommés "bouton" & i & j (où i est le numéro de ma ligne et j celui de ma colonne). Mes ToggleButton se placent bien dans la case du tableau correspondant cependant le texte qu'il y a écrit dessus n'est pas "lisible" : le texte est trop gros et je n'arrive pas à modifier le format de ma case (à l'intérieur j'ai un nombre j'aimerais qu'il n'y ait que 2 décimales).

De plus, j'aimerais créer dans ma worksheet("Calcul") n private sub correspondant à chaque bouton ("Private Sub bouton" & i & j "_Click()") afin de donner les instructions à effectuer quand on clique sur les ToggleButton. Cependant je n'arrive pas à ce que le code de mon module crée un code dans une autre worksheet.

Voilà mon premier code pour créer mes ToggleButton :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

For i = 0 To nb_lign - 2 For j = 1 To nb_col - 1 Set Cbut = (ActiveWorkbook.ActiveSheet.OLEObjects.Add("Forms.toggleButton.1")) 'taille des boutons fassent la taille de la cellule With Cbut .Top = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Top .Left = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Left .Width = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Width .Height = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Height .Name = "bouton" & i & j .Object.Caption = Cells(lign_coeff + i + 1, col + j) 'prend la valeur d'une case dans un autre tableau End With Next Next

---

Merci d'avance,

Bonjour,
Si l'on fait un copier/coller de votre code dans un module ayant l'Option Explicit en début de procédure, on a un nombre incalculable du message Variable non définie
Après avoir fait la déclaration des premières variables qui semble évidentes

Code:

---

1 2 3 4 5

Dim i As Long Dim j As Long Dim nb_lign As Long Dim nb_col As Integer Dim cbut As Object

---

On a un nouveau message identique pour la variable lign et ce n'est que la première. Et là on a beau regarder sa boule de cristal, impossible de savoir d'où vient cette variable

Donc, pour pouvoir vous aider, il faudrait voir le code complet et qu'au minima, vos variables soient correctement déclarées et typées

Bonjour,

Ci-dessous, un code qui devrait fonctionnner pour générer un nombre important de boutons.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub bouton() Dim i As Long Dim j As Long Dim nb_lign As Integer Dim nb_col As Integer Dim cbut As Object Dim nb_lign_pass As Integer Dim nb_col_pass As Integer   lign = 22 col = 2 nb_lign_pass = 10 nb_col_pass = 5   For i = 0 To nb_lign_pass - 2 For j = 1 To nb_col_pass - 1 If Cells(lign + i + 1, col) + Cells(lign, col + j) <= Cells(lign + nb_lign_pass - 1, col) + 1 Then Set cbut = (ActiveWorkbook.ActiveSheet.OLEObjects.Add("Forms.toggleButton.1")) 'taille des boutons fassent la taille de la cellule With cbut .Top = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Top .Left = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Left .Width = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Width .Height = Range(Cells(lign + i, col + j), Cells(lign + i, col + j)).Height .Name = "bouton" & i & j .Object.Caption = 1.56284864238411 + i + j ' le bouton a la valeur du coeff de passage correspondant End With End If Next Next   End Sub

---