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 :
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 :
ActiveSheet.CheckBoxes.Add(456, 16.5, 51, 24).Select
Merci d’avance pour vôtre aide
Personne ne peut m'aider ?
Partager