Case à cocher

Bonjour,

J'ai dans excel la liste de tous mes livres.

Je souhaiterai faire un inventaire et pour cela, je voudrais utiliser les cases a cocher.

Mon probleme est que je n'arrive pas à insérer une case a cocher dans une cellule, donc comment faire pour qu'il y ai une case a cocher par ligne de mon tableau?

Cest case a cocher me serviront juste de repere visuel, lorsque le livre sera present dans la bibliotheque, je cocherai la case, sans autre incidence sur le tableau.

Merci.

Affiche la boîte à outils Formulaires, tu trouveras une icône Case à cocher. Clic sur l'icône, puis clic dans une cellule.

Il te restera à supprimer le texte d'accompagnement.

Pour modifier la position de la case à cocher, sélectionner avec le clic droit, puis clic gauche pour cliquer-déplacer.

Cordialement,

Merci,

Je connaissai deja , mais je voulais savoir si on pouvait directement inserer une case a cocher dans une cellule, un peu comme quand on met du texte, c'est a dire que si je fait un clic droit sur la case a cocher, il n'y a pas le cadre qui s'affiche, et donc on ne peut pas la redimensionner comme les autres objets. Par exemple, pour la centrer, il faudrait utiliser l'option centrer comme pour l'ecriture.

Re,

Ce que tu demandes est possible dans Word, mais à ma connaissance pas dans Excel.

Par contre, tu pourrais bien insérer un caractère spécial (genre case carrée), et avec un peu de VBA, le transformer par double clic en case cochée. Je ne suis pas spécialiste du VBA, mais je vais chercher au cas où.

Cordialement,

Salut le forum

Une petite macro qui insère une case à cocher sur la cellule active

Sub CreationCaseACocher()
'
' Macro par Mytå
'
Dim chk As CheckBox

Set chk = ActiveSheet.CheckBoxes.Add(30, 69, 0, 0)

  With chk
    .Text = ""
    .Value = xlOff
    .ShapeRange.Left = ActiveCell.Left
    .ShapeRange.Top = ActiveCell.Top
  End With

End Sub

Peut-être un début de solution.

Mytå

Bonsoir,

Dans quelle colonne veux-tu la case à cocher ?

A te relire

Dan

Re le forum

On pourrait aussi le faire avec une boucle sur une colonne en remplacant

ActiveCell

par

Cells(Ligne,Colonne)

Mytå

Re,

Une solution avec des caractère spéciaux qui se changent par double clic.

https://www.excel-pratique.com/~files/doc/Case_A_cocher.xls

Cordialement,

RE,

Salut Mytå,

Super, ton code ! (comme d'habitude...)

Peux-tu me dire à quoi correspondent les 4 valeurs numériques dans la ligne de code suivante ?

Set chk = ActiveSheet.CheckBoxes.Add(30, 69, 0, 0)

Merci d'avance,

Merci à tous,

Mais je ne comprend pas grand chose à ce que vous racontez, je ne sais même pas ce qu'est une VBA.

Je m'y attaquerai peut-etre plus tard au calme (les enfants ne sont pas encore couchés).

Pour le moment je vais utiliser les cases a cocher que je mettrai manuellement au bon endroit. C'est deja un debut pour pouvoir verifier mes livres.

Ensuite j'essaierai avec vos conseils de me faire un fichier correcte et propre.

re,

Bon, si tu réponds à ma question j'ai quelque chose à te proposer.

A te relire

Dan

Re,

Envoie donc ton fichier, on peut te mettre le code dedans (celui de Mytå, il correspond exactement à ce que tu veux), et ensuite tu n'auras plus qu'à t'en servir... jusqu'à ce que tu aies le temps de te pencher plus avant sur la question.

Pour joindre un fichier, cliquer ICI.

Cordialement,

Salut le forum

V_Elbie a écrit :

Peux-tu me dire à quoi correspondent les 4 valeurs numériques dans la ligne de code suivante ?

Set chk = ActiveSheet.CheckBoxes.Add(30, 69, 0, 0)

Exemple : ActiveSheet.CheckBoxes.Add(30, 69, 10, 15)

30 pour la position horizontale

69 pour la position verticale

10 pour la taille horizontale de la case a cocher (Largeur)

15 pour la taille verticale de la case a cocher (Hauteur)

Mytå

P.S. Dan, petite crise de dent

J'ai fait des essais, mais entre la position et la taille, je ne m'y retrouvais pas !

Bonne soirée,

re,

Lol ! Myta, pas de crise de dent.

Simplement que nous avons réalisé une appli à ce sujet qui crée le nombre de case à cocher désirées.

Pour que le code soit adapté à son fichier, il faut qu'il me dise dans quelle colonne il souhaite ses cases à cocher car comme tu l'expliques, il faut déterminer la position sur la feuille.

Amicalement

Dan

Les cases a cocher devrait se trouver dans la colonne D.

Colonne A: titre; Colonne B Auteur; Colonne C: collection; et donc colonne D les cases a cocher.

Voila mon fichier:

https://www.excel-pratique.com/~files/doc/liste_livre.xls

Bonjour,

Ton fichier en retour.

Pour ajouter d'autres cases, sélectionner la ou les cellules concernées, puis cliquer sur le bouton Créer cases. Cela déclenche l'exécution de la macro Création case à cocher.

https://www.excel-pratique.com/~files/doc/liste_livre_1.xls

J'ai figé les volets pour plus de commodité.

Cordialement,

V_Elbie

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

hello

pourquoi ne pas faire simple ?

une case de chaque ligne est consacrée à une croix (en fait on tape la lettre X)

Rien du tout à programmer, même pas de formule.

par rapport à une case à cocher, c'est plus long à remplir par l'usager, c'est vrai, mais sommes-nous dans le cas d'une utilisation en gros volumes ?

Ceci étant dit, bravo pour les efforts et les compétences déployées.

Merci beaucoup , ça marche très bien, je vais pouvoir faire mon inventaire tranquillement.

Rechercher des sujets similaires à "case cocher"