Case à cocher formulaire

[meldja]

Bonjour,
Existe-t-il une formule de calcul à mettre dans le format de contrôle d'une case à cocher formulaire pour que les références de la cellule liée s'incrémente (EX ; 1ère case à cocher B1, deuxième à cocher case B2 etc..)
Je ne sais pas si je suis explicite dans ma demande, mais j'ai plein de cases à cocher sur une feuille que je veux lier à une cellule qui se trouve sur la même ligne que la case à cocher mais sur une autre colonne.
Pour l'instant, et c'est très fastidieux, je suis obligé de faire un clique droit sur chaque case à cocher, puis de cliquer sur "cellule liée" puis de lui indiquer la cellule. Au bout de 10 cases à cocher, ça commence à saouler.

 

[skoobi]

Re : Case à cocher formulaire

Bonjour,

voici une macro qui lie la cellule se trouvant 3 colonne à droite de la coche:

Sub lien()
For Each coche In ActiveSheet.Shapes
    If coche.Name Like "Check*" Then
        coche.ControlFormat.LinkedCell = coche.TopLeftCell.Offset(0, 3).Address
    End If
Next
End Sub

 

[meldja]

Re : Case à cocher formulaire

Merci skooby,
Je viens de tester ton code, c nickel. Dommage que je sois obligé d'apprendre par coeur comme un âne bâté parce que je ne maîtrise pas le VBA.
A plus