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 ?