Bonjour,
J'ai reprit une partie du code de Myta car ce que j'avais à te proposer ne convenait pas tout à fait à cause de ton titre "liste de livres".
Essaye avec ce code :
Sub Caseacocher()
'Macro pour Celya77 - le 08/06/08
Dim chk As CheckBox
Dim n As Integer, i As Integer, lig As Integer, nbrecase As Integer
Application.ScreenUpdating = False
On Error GoTo Erreur
nbrecase = Application.InputBox("Entrer le nombre de cases à cocher que vous désirez - minimum 1")
lig = Application.InputBox("Mentionner le numéro de la ligne devant contenir la première case à cocher")
If lig > 1 Then n = 15 * (lig - 1) '15 correspond à la hauteur de ligne en points
For i = 1 To nbrecase 'nombre de cases
Set chk = ActiveSheet.CheckBoxes.Add(600, n, 2, 2)
With chk
.Text = ""
.Value = xlOff
End With
lig = lig + 1
n = n + 15
Next
Exit Sub
Erreur:
MsgBox "Relancer le procédure en mettant un chiffre égal ou supérieur à 1"
End Sub
Code à placer dans un module en VBA.
Ensuite tu peux ajouter un raccourci clavier par Outils / macro / macro. Dans la fenêtre clique sur "option" et ajoute une lette (je te suggère par exemple "e" - attention à ne pas utiliser un lettre déjà utiliser par excel) puis OK.
Il te reste à faire CTRL + e sur ton clavier pour exécuter cette macro.
Veille à régler la hauteur de ligne. Sur ton fichier elle se trouve à 12 points. Ici je te propose 15 points soit 0,53 cm.
Amicalement
Dan