Discussion :

[strifer]

Bonjour,
J'ai un problème depuis une journée sur une macro qui me permettrait de compléter un document avec 200 onglets.
Il faut que je rajoute deux cases à cocher dans chaque onglet.
Donc je me suis dit pourquoi pas faire un nouvelle macro qui ferais les 200 onglets vite fait (le contenu des onglets sont les mêmes)
Puis après il faut que je lie chaque case sur un document de rapport :
Par exemple Onglet 1 :
-Case a cocher 1 -> liés a la case I2
-Case a cocher 2 -> liés a la case J2
Onglet 2
-Case a cocher 3 -> liés a la case I3
-Case a cocher 4 -> liés a la case J3
Etc ..

Voici le début de mon code :

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
34
35
36
Sub Case_cocher()
 
For i = 1 To 200
 
    Sheets("" & i).Select
    ActiveSheet.CheckBoxes.Add(456, 16.5, 51, 24).Select
    ActiveSheet.Shapes("Check Box " & j).Select
    Selection.Characters.Text = "Nouveau Domaine"
    Selection.ShapeRange.ScaleWidth 1.97, msoFalse, msoScaleFromTopLeft
 
    With Selection
        .Value = xlOff
        .LinkedCell = "Récap!$J$" & i
        .Display3DShading = False
    End With
 
Next i
 
 
For j = 1 To 2000
 
    Sheets("" & j).Select
    ActiveSheet.CheckBoxes.Add(591.75, 14.25, 85.5, 30).Select
    ActiveSheet.Shapes("Check Box " & j).Select
    Selection.Characters.Text = "Domaine Renégocié"
    Selection.ShapeRange.ScaleWidth 1.24, msoFalse, msoScaleFromTopLeft
 
    With Selection
        .Value = xlOff
        .LinkedCell = "Récap!$K$" & j
        .Display3DShading = False
     End With
 
Next j
 
End Sub

J'ai déjà une erreur de compilation sur :

Code :

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

ActiveSheet.CheckBoxes.Add(456, 16.5, 51, 24).Select

Merci d’avance pour vôtre aide

Personne ne peut m'aider ?

[SfJ5Rpw8]

il faut éviter les select, activeSheet....selection ...qui sont des source d'erreurs...écrit plutôt un truc du genre !

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
 
Dim chk As CheckBox
For i = 1 To 200
 
   Set chk = Sheets(i).CheckBoxes.Add(456, 16.5, 51, 24)
   With chk
        .Text = "Nouveau Domaine"
        .ShapeRange.ScaleWidth 1.97, msoFalse, msoScaleFromTopLeft
        .Value = xlOff
        .LinkedCell = "Récap!$J$" & i
        .Display3DShading = False
    End With
   Set chk = Sheets(i).CheckBoxes.Add(591.75, 14.25, 85.5, 30)
   With chk
        .Text = "Domaine Renégocié"
        .ShapeRange.ScaleWidth 1.24, msoFalse, msoScaleFromTopLeft
        .Value = xlOff
        .LinkedCell = "Récap!$k$" & i
        .Display3DShading = False
    End With
Next
End Sub

[strifer]

erreur d'éxecutions 1004 sur :

Code :

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

Set chk = Sheets(i).CheckBoxes.Add(456, 16.5, 51, 24)

Impossible de lire la propriété Add de la Classe Checkboxes

Même genre d'erreur que tout à l'heure.

En tout cas merci pour ton aide.

[SfJ5Rpw8]

et dans ton classeur tu n'as que des feuilles de calculs ( pas des graphiques...? ou feuille de dialogue Excel 5.0)...?

[strifer]

Le classeur ce présente ainsi :

Un Onglet Récap qui récapitule tout ce qui est présent dans les autres onglets.

Puis 200 onglets numérotés de 1 à 200 :
Dans ces onglets, titre Action 1 à 200.
Dan chaque onglets il n'y a que des calculs qui sont liés à la feuille Récap.

[SfJ5Rpw8]

essai de voir la valeur de i au moment du plantage... par exemple en rajoutant .. :

Code :

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

1
2
3
debug.print "Traitement " & i & " .. feuille : " & sheets(i).name
 
Set chk = Sheets(i).CheckBoxes.Add(456, 16.5, 51, 24)

puis aprés le l'arrêt voir les messages dans fenêtre exécution (CTRL G)