Tuto:Créer automatiquement case à cocher liée cellule en-dessous

Je viens de tester ça : il y a quelques défauts avec cette méthode.

Par exemple tu ne peux pas te servir de la valeur de la cellule pour faire des calculs ou alors tu te les compliques.
En effet tu es chaque fois obligé d'y associer du code VBA, ce qui n'est pas le cas avec mon script : on utilise VBA seulement pour créer les cases à cocher mais après elles sont indépendantes.
De plus, avec ces fausses cases à cocher, il faut chaque fois adapter le script VBA pour avoir la bonne plage de cellule.

Pour conclure, c'est plus du bricolage qu'une vraie solution.
Mais ça peut être pratique même si c'est plutôt limité.

Merci pour ta réponse :)

Bonjour,
Merci de vos commentaires.

Bonjour pijaku,
Merci, je constate que tu as lu dans mes pensées (pt 4).
De mon côté cela va bien pour mon âge.
A la question : Acceptes tu de poursuivre ce sujet? C'est non pour l'instant j'ai d'autres engagements qui ..... !
Je te souhaite une agréable et excellente semaine.
Amicales salutations.
Le Pingou

Pas de souci.
Si tu as le temps, par ci par là, et que tu peux jeter ton oeil dans le coin, ce ne sera pas de refus.
Je vais donc continuer ici.
Merci pour l'agréable semaine. A toi également
Amicalement,
Franck

Bonjour,

Merci pour ta réponse : tu soulèves des points importants. :D

1) Alors tout d'abord pour répondre aux 4ème et 1er points : J'ai été trop expéditif et j'aurai dû préciser ma pensée plus clairement ^^

En effet, je trouve la solution de Le Pingou vraiment intéressante :

- Concernant la programmation sur Excel, je suis encore débutant : son code m'apparaît déjà assez ingénieux et au-dessus de mon niveau. Il est vraiment instructif :D

- Le visuel de la cellule est même meilleur : la case peut-être agrandie et facilement centrée; et elle a la classe en plus (le "v" est plus esthétique") ;)

Il y a cependant quelques inconvénients inhérents à cette méthode mais on peut les surmonter :

- Il y aura toujours besoin de code, de plus il faut personnaliser le code pour une plage de cellules :/ Mais on pourrait imaginer une macro qui recrée ton script pour la plage sélectionnée. Le code reste mais on a pas besoin de le modifier à la main, donc tout le monde peut l'utiliser :D

- La valeur de la cellule est monopolisée mais on pourrait peut-être jouer dessus avec le format de la cellule (Standard, Nombre, Monétaire ...) pour afficher du texte ou autres.

- La cellule ne peut pas être sélectionnée via un déplacement depuis une case adjacente : mais ça c'est tout à fait logique. C'est plus de la triche ^^

- Pour utiliser la valeur de la cellule : on peut créer une macro qui renvoie la valeur de la cellule en fonction de s'il y un "o" ou pas par exemple, ou qui converti automatiquement un "o" en un chiffre lors du calcul.

Après je sais pas si on peut s'en servir pour depuis une cellule sans passer par VBA mais sinon plus simplement on peut aussi utiliser une des opérations qui cherchent un ou des termes dans la valeur de la cellule ;)

- Si on en utilise beaucoup c'est plus lourd pour l'ordinateur puisqu'il a pas mal de code à gérer, enfin ça dépend du nombre de plage.

La dernière fois j'ai utilisé une macro qui reprend mon premier script en l'utilisant 10 fois sur un nombre de ligne à définir.
Pour un grand nombre de ligne, le pc était à la traîne puisqu'à chaque fois il devait rafraîchir les cases à cocher quand je me baladais sur le document.

Donc c'est peut-être même moins lourd puisque c'est du texte. Surtout que je dois utiliser ma macro sur tablette après ^^

Pour conclure, c'est vraiment intéressant, et plutôt malin même mais faut que l'on s'occupe des limites techniques et voir si c'est encore intéressant en fonction de l'utilisation qui peut en être faite. ;)

2) Je connais pas trop la programmation sur Excel mais de ce que j'ai pu apercevoir les modules de classes peut être vraiment utiles surtout pour "simplifier" le script de Le Pingou : on pourrait calculer les valeurs plus facilement après.

Par exemple : on prend un paramètre pour la valeur de la cellule soit 1 soit 0; puis on joue avec le format de la cellule pour afficher les caractères que l'on veut, ex : si paramètre égal 1 alors afficher "þ". Et la cellule a toujours une valeur de 1 ou de 0 donc c'est tranquille pour le calcul ^^

3) Et effectivement, il faut que je modifie mon introduction : c'est vraiment plus rapide et efficace une fois installé mais pour juste quelques cases à cocher c'est pas moins rapide puisqu'il faut le temps de copier tout ça :)

@ Le Pingou :

J'espère que tu veux bien continuer ce projet et excuse moi si j'ai pu être te paraître désobligeant mais sache que ce n'était pas voulu :)

Salut Eriiic,

Participe, mais participe donc.
Je te relirais au calme, là je t'ai lu en diagonale.

Je trouvais la solution de Le Pingou astucieuse et originale. Il me semble que l'adapter au cas précis de ce jour ne doit pas être compliqué. J'essaierai demain.

Ensuite, la solution la plus "voisine" de la solution manuelle reste le module de classe. Dans ce cas, l'utilisateur installe lui-même ses cases à cocher, avec des copié-collé s'il le veut...

Reste la solution de Vendreur Jack
Petite remarque: il me semble que le If ne sert à rien.
Perso j'aurais plutôt une grosse remarque sur le Dim range As Range...

A voir aussi le comportement de ces CheckBox avec des cellules fusionnées. Ca je ne sais pas, me battant becs et ongles pour que plus personne ne fusionne! (euh je parle d'excel là, vous fusionnez avec qui vous voulez quand vous voulez...)

Franck

Salut Eriiic et Franck,


Il faudrait que j'essaye pour le If et sinon pour le Dim range As Range j'ai vu ça sur un site dans un exemple.

En fait, j'avais jamais codé en VBA jusqu'à samedi dernier : j'ai "appris" sur le tas en enregistrant des macros et en regardant des exemples ^^ Donc hésitez pas à me signaler mes (nombreuses) erreurs :D


@ Eriiic

Du coup j'ai déjà répondu en partie un plus haut ^^

T'as clairement raison de te méfier pour les feuille avec trop d'objet ça lague à partir d'un certain nombre.

Et sinon, quand je disais "En effet tu es chaque fois obligé d'y associer du code VBA, ce qui n'est pas le cas avec mon script " j'entendais par là qu'une fois la macro utilisée, il n'y a plus besoin de code actif, les cases à cocher créées ne sont liées à aucune macro. ;)


@Franck

Et si j'ose demander quel est le problème avec la fusion, c'est plutôt pratique je trouve : ça évite à mon script de créer des cases à cocher inutiles; et puis c'est plus simple pour la mise en forme du texte. ^^

Bonjour pijaku,
J'ai fait un petit détour, bravo pour le complément c'est super. J'en profite pour un petit salut à eriiic.
A une prochaine.
Le Pingou

Salut,

Merci à toi, mais...
Le mérite est à attribuer à Eric.
enfin, je prends quand même ;-)
A+
Franck

Salut,

est-il possible de l'appliquer à tout le document, la police spéciale servant "d'activateur" ?
Oui, bien sur. Mais ce n'est pas le but du tutoriel que de répondre à tous les cas de figure. Il s'agit ici de créer une fiche pratique sur la création automatique de cases à cocher liées à des cellules.

Sinon, pour info, il suffit d'ajouter une apostrophe devant la première ligne de la macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'restriction de la plage
  '  If Target.Column > 10 Or Target.Row > 20 Then Exit Sub    'plage A1:J20
    If Target.Count = 1 Or Target.MergeCells Then
        If Target.Font.Name = "Wingdings" Then
            With Target    'cellule "liée"
                .Value = Abs(.Range("A1").Value - 1)
                .NumberFormat = """þ"";General;""o"";@"
                Application.EnableEvents = False
                .Range("A1").Offset(, 1).Select
                Application.EnableEvents = True
            End With
        End If
    End If
End Sub 

ps : si j'ai le temps, j'écrirais le texte de cette fiche dans la journée...

J'ai eu le temps, je mets ça en ligne et compte sur vous pour une relecture.
Pour toutes corrections, vous pouvez, au choix, utiliser ce sujet ou me MP...

Merci encore à tous.

https://www.commentcamarche.net/faq/41456-excel-creation-automatique-de-cases-a-cocher-liees-aux-cellules-en-dessous

Je vais ajouter la formule donnant la somme.

et Merci à toi!

Bonjour à tous,

Impeccable ;-)

Suggestions partie 1 :
- préciser le type de checkbox utilisé : Formulaire
- ajouter la déprotection de la cellule liée. Si la feuille est protégée on a le message d'alerte, la coche est basculée mais pas la valeur liée = > déphasage.
- j'ai un doute sur le bien fondé de .NumberFormat = ";;;".
un débutant risque d'être perdu de ne pas voir le résultat dans la cellule liée, et ça complique le contrôle d'un décompte. Je le mettrai plutôt en 'option
Eventuellement mettre Remplissage sur automatique pour masquer au moins partiellement le résultat (?)
Mais bon... ça se discute :-)

partie 2 :
Pour la détection de la plage je mettrais bien qq chose comme :

If Intersect(Union([A2:A10], [D2:D10])) Is Nothing Then Exit Sub

pour montrer comment faire si plusieurs plages distinctes.

eric

Salut Eriiic,

Modifications enregistrées :

- sauf pour : Eventuellement mettre Remplissage sur automatique pour masquer au moins partiellement le résultat (?)
Motif : le but n'est pas de lister toutes les possibilités et tous les cas de figure. Comme ça nous aurons plus de questions sur les forums ;-)

- Avec une toute petite nuance, ajout de Target dans ton Intersect.

If Intersect(Union([A2:A10], [D2:D10]), Target) Is Nothing Then Exit Sub

Motif : le but n'est pas de lister toutes les possibilités et tous les cas de figure. Comme ça nous aurons plus de questions sur les forums ;-)
Disons que sans le format ;;; la superposition du VRAI et de la case à cocher transparente fait un peu caca, opaque ça passe un peu mieux... :-)

Avec une toute petite nuance...
C'était pour voir si tu le verrais ;-)

eric

Disons que sans le format ;;; la superposition du VRAI et de la case à cocher transparente fait un peu caca, opaque ça passe un peu mieux... :-)
Effectivement. Mais bon comme j'ai dit plus haut : ça fera l'objet de questions sur les forums...

C'était pour voir si tu le verrais ;-)
Et bien figure toi que je ne l'ai vu qu'à la dernière minute... Je n'allais tout de même pas tester tes propositions Nanmého ! ;-))

Salut Le Pingou,
Tout le mérite, ou du moins le tiers, t'en revient.

Merci et à toi également, bonne fin de semaine.
A+