Insérer une case à cocher dans un cellule

[Alex]

Bonjour,

J'aimerais SVP un grand conseil.

Je cherche à insérer une case à cocher dans une cellule, enfin dans 1 colonne de 32 lignes avec donc 32 cases. Ensuite affecter à 1 autre colonne des conditions logiques suivant si la case est cochée ou non.
ex: si la case est cochée alors A1=(calcul), sinon elle retse vide.

J'espère avoir été assez explicite et vous remercie par avance de votre aide.

 

[stanol69]

Bonsoir,

lorsque tu insères une case à cocher (grâce à la barre d'outils 'formulaire', fais un clic-droit pour accéder à 'format de contrôle' et choisis une cellule liée.

La cellule liée renverra 'VRAI' ou 'FAUX' selon que la case est cochée ou non.

Il te suffit ensuite de travailler avec la valeur de la cellule liée:
Si(A1='vrai'; ; )

A+

 

[Alex]

merci bcp ...

 

[_Thierry]

=> DEMO Insérer 50 CheckBox sur Sheet par VBA

Bonjour Alex, Stanol, le Forum

Voici une Démo pour auto-générer tes CheckBox par VBA.

NB ces checkbox à l'opposé du conseil de Stanol, sont des ActiveX et proviennent de la barre 2 ci-dessous :



La première est la plus ancienne (XL 4) elle semble plus facile d'usage pour les débutants car elle n'utilise pas de VBA sauf si on assigne une macro auxdifférents objets qu'elle contient (comme on le fait pour un bouton) Elle fait partie des Objets d'une feuille Excel.

La seconde n'est pas réélement 'propriété' d' Excel et elle n'existe dans Excel que depuis XL97. Ce sont des controls ActiveX, qui sont un héritage d'Access et donc '10000' fois plus puissants que la vieille boite formulaire... Par contre plus délicats à utiliser sans connaissance VBA. De plus ces activeX sont les 'Rois' dans un UserForms (ils sont principalement faits pour çà) et ils sont un peu moins facilement contrôlables au sein d'une feuille... (Voir le Fil avec Ti pour les OLEObjects..)

Petite précision pour cette barre 'Boite à Outils Contrôles' utilisée sur une feuille, car contrairement à l'autre vieille barre, il faut d'abord de mettre en MODE DESIGN pour accéder au menu contextuel du click droit...
Le mode DESIGN s'obtient cette même barre d'outil 'Boite à Outils Contrôles', c'est le premier bouton en partant de la gauche de cette barre, il ressemble à une équerre bleue avec une règle et un crayon...

Je conseille toutefois de faire l'effort de virer au fur et à mesure l'usage de la barre 'Formulaire'... et de passer le cap en apprenant à maitriser les Controls ActiveX.

Bonne Journée@+Thierry
[file name=XLD-Auto-generation-OLEObjects-CheckBox_20050324081629.zip size=20242]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/XLD-Auto-generation-OLEObjects-CheckBox_20050324081629.zip[/file]

 

[malvira180]

Re : Insérer une case à cocher dans un cellule

Bonjour @ tous,

Quel est la propriété qui permet de virer cet affreux CheckBox1, 2...
modifier le label de l'objet CheckBox

Merci d'avance

 

[cathodique]

à tester

Option Explicit

Sub Inserer_Cases_a_cocher_Liees()
  Dim rngCel As Range
  Dim ChkBx As CheckBox

  For Each rngCel In Selection
  With rngCel.MergeArea.Cells
  If .Resize(1, 1).Address = rngCel.Address Then
  .NumberFormat = ";;;"
  Set ChkBx = ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height)
  With ChkBx
  'valeur initiale :
  .Value = xlOff  'pourrait être True ou False
  'cellule liée
  .LinkedCell = rngCel.MergeArea.Cells.Address
  End With
  End If
  End With
  Next rngCel
End Sub