Discussion :

[ce223]

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 :

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

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,

[Philippe Tulliez]

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 :

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

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

[ce223]

Bonjour,

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

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