Case à cocher

[crysiol]

Bonjour,

J'ai une centaine de case à cocher, j'aimerais savoir si il existe un moyen pour faire en sorte cue la cellule attribué soi toujours celle qui est 4 case à coter de celle dans laquelle elle se trouve, car devoir taper l'adresse de la cellule pour 200 cases est un peu long (sans macro si possible).

Merci.

 

[kjin]

Re : Case à cocher

Bonsoir,

...J'ai une centaine de case à cocher...

De quelle boîte à outils sont-elles issues ?

...(sans macro si possible)...

Ca c'est moins sûr
A+
kjin

 

[crysiol]

Re : Case à cocher

euh, formulaire, activeX, c'est ce dont tu parle?
Si oui, formulaire.

 

[Guest]

Re : Case à cocher

Bonsoir Crysiol, Kjin,

Kjin semble absent alors:

voici avec une macro, parceque sans, je ne vois pas.

Sub AffecterLinkCellCaseAcocher()
    Dim shp As Shape
    For Each shp In Sheets("[SIZE=3][COLOR=red]feuil1[/COLOR][/SIZE]").Shapes
        'Si le nom ressemble à "Check box"
        If shp.Name Like "Check Box *" Then
            'Lier à la cellule qui se trouve 4 colonnes à droite
            shp.DrawingObject.LinkedCell = shp.TopLeftCell.Offset(, [SIZE=4][COLOR=red]4[/COLOR][/SIZE]).Address
 
        End If
    Next shp
End Sub

Où feuil1 est le nom de la feuille contenant les cases à cocher
Pour lier à 4 colonnes à gauche remplacer 4 par -4.

A bientôt