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 :
J'ai déjà une erreur de compilation sur :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
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
Merci d’avance pour vôtre aideCode:ActiveSheet.CheckBoxes.Add(456, 16.5, 51, 24).Select
Personne ne peut m'aider ?