Case à cocher dans Excel 2007 [Résolu]

Je remercie d'avance à toutes les âmes charitables qui voudront bien se pencher sur mon problème.

Dans works, j'avais réussi à mettre une colonne à gauche "case à cocher" sur chaques lignes. (Voir capture d'image car parfois c'est plus parlant).

Malheureusement, ma mémoire me fait défaut et je ne sais plus comment j'y suis parvenue.





Maintenant, je voudrais savoir s'il est possible de le faire avec Excel 2007 ?

Il a bien une méthode dans Excel via l'onglet Développeur pour y insérer une case à cocher mais c'est sous forme d'image et je dois l'insérer manuellement à chaques lignes (1200 lignes) donc ce n'est pas ce que je recherche.

Ma façon de procéder dans works avait été simple et rapide, juste une petite manip à cocher dans les paramétres. Excel permet t'il aussi cette manip ?

Voilà, voilà....

Je progresse. En recherchant, j'ai pû retrouver comment j'avais procédé dans works pour pouvoir afficher ses cases.

Ma demande correspond à ces termes : Comment marquer des fiches d'un document pour les imprimer ? Réponse <<ici>>

Maintenant, j'aimerai faire la même chose avec Excel 2007 si cela est possible.

Bonjour Marylou et bonne Année 2009,

te propose cette solution

1)preparer ta feuille:les entêtes
colonne A1="titre 1"
colonne B1= "titre 2 de ton libellé"

2)puis definir un nom dans Insertion > nom > définir
en te mettant bien dans la feuille concernée

mazone = DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$A:$A)-1)

3)macro à copier dans la feuille concernée de ton classeur, faire ALT+F11

cliques 2 fois sur le nom de ta feuille située dans la fenêtre de gauche
dans la fenetre ouverte, tu recopies la macro:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Teste si la cellule ayant recu un double-clic fait partie de la plage mazone
' Cette plage a été définie de manière dynamique à l'aide de la fonction suivante :
' =DECALER(Feuil1!$B$2;;;NBVAL(Feuil1!$A:$A)-1)
' Voir le menu Insertion - Nom - Définir

If Not (Intersect(Target, Range("mazone")) Is Nothing) Then
'Mise en forme de la cellule
Target.Font.Name = "Wingdings"
Target.Font.FontStyle = "Gras"
Target.Font.Size = 14
Target.HorizontalAlignment = xlCenter

'Empêche la sélection de la cellule après le double-clic
Cancel = True
'Teste de la valeur de la cellule
If Target.Value = "o" Then
Target.Value = "ý"
ElseIf Target.Value = "ý" Then
Target.Value = "o"
Else: Target.Value = "ý"
End If
Target.Select
End If
End Sub


tu sauvegardes ton fichier, puis tu entres un chiffre ou un texte quelconque dans la colonne A de ta feuille (à partir de A2...)

par exemple A2=1
ou A2="Marylou"

et tu cliques 2 fois dans la cellule B2 et miracle! la case cochée s'affiche
si tu recliques 2 fois dans B2, la case est décochée

et ainsi de suite A3=2 ou A3="willy" et tu cliques 2 fois dans B3

j'espère que cela te conviendra.Une âme charitable.....

willyplaisir

Merci pour tes bons voeux et à mon tour de te présenter les miens et avec le moins de bug possible.

Moi qui voulait une méthode simple et bien j'ai tout gagné avec toi
Hônnetement, je ne comprend pas tout. J'envie ton savoir
J'espérai une méthode simple comme dans works.

Ma base de données comporte 1200 lignes.

Si il n'y a pas plus simple, je vais me pencher sur ta solution mais à reculons.

Merci pour ton âme charitable.

Je te tiens au courant.

willyplaisir

Bon, je suis pas du genre à baisser les bras mais là je crois que je vais me les couper. Ce ne fût pas une partie plaisir mon cher willy

Aprés m'être penchée sur ta solution, j'abandonne ma requête. Pour moi c'est un peu du chinois alors que je suis persuadée que tu m'as bien guidée.

Je vais continuer cette base de données sous works même si je préfères Excel. C'est pas la fin du monde non plus.

Mille excuses de t'avoir fait perdre de ton précieux temps et encore merci .

bonjour Marylou,


pas encore manchot...ouf! ne baisse pas les bras,
voici un lien qui te permettra de comprendre la macro créee :

http://www.cijoint.fr/cjlink.php?file=cj200901/cijQtz7gJo.xls

ainsi tu pourras cliquer à volonté!
c'est avec Plaisir que j'essaie d'aider les internautes de 01Net

willyplaisir


Et bien non, j'ai pas baissé les bras. En fin de compte, j'ai opté la procédure avec la fonction d'Excel Dévelloppeur Contrôles de formulaire.

Cela a été moins rapide qu'avec Works mais j'ai fais des copier-coller.

Voilà un exemple de ce que cela peut donner :



Donc problème Résolu.

Merci infiniment et au plaisir....