Bonjour tout le monde,

Je suis nouveau sur ce forum et je viens vers vous afin de trouver de l'aide pour développer un outils Excel simple et pratique

Pour l'instant, j'ai besoin de créer des tableaux remplis avec des checkbox et associer chaque case du tableau à la checkbox qui sera dessus.
Existe-t-il un outil qui puisse faire ça rapidement ? Ou alors Est-ce que je dois insérer les centaines de checkbox à la main et les associer une par une à la case du tableau correspondante ?

Dans l'attente d'un coup de pouce,

Merci d'avance

Edit :
J'ai réalisé un premier code qui a fait planté Excel ... 2 fois !

Edit 2 :
Mon code me génère bien mes checkboxs et dans les bonnes cases du tableau, cependant il n'y aucune cellule lié aux checkboxs ...
Quelqu'un a-t-il une solution pour ça svp ?

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
37
38
39
40
41
42
43
44
Sub addcb()
'
' addcb Macro
'
 
'
Dim numli As Integer
Dim numcol As Integer
 
numli = 26 'Initialisation numéro de ligne
While numli <= 35
' Boucle while tourne pour parcourir les lignes de 26 à 35
 
    numcol = 4 'Initialisation numéro de colonne
 
    While numcol <= 10
    ' Boucle while tourne pour parcourir les colonnes de 2 à 8 (B à H)
        Dim top As Double 'Décalaration de la position verticale
        Dim left As Double 'Décalaration de la position horizontale
 
        Cells(numli, numcol).Select
        top = Selection.top 'Affectation valeur position horizontale de la cellule sellectionnée
        left = Selection.left 'Affectation valeur position verticale de la cellule sellectionnée
 
        ActiveSheet.CheckBoxes.Add(left - 5, top + 5, 19, 18).Select 'Création et sélection de la checkbox avec les coordonnées de la cellules
 
        With Selection
 
            .Value = xlOff
            .Display3DShading = False
            .Characters.Text = ""
            .LinkedCell = Cells(numli, numcol) ' Problème ici, je n'ai pas de message d'erreur mais après compilation rien ne s'est passé
 
        End With
 
        numcol = numcol + 1
 
    Wend
 
    numli = numli + 1
 
Wend
 
End Sub