Cocher ou décocher des cellules par double-clic

Bon­jour à tous,

Voici une petite appli­ca­tion créée en 5 min­utes et qui per­met de cocher/décocher des cel­lules d’une plage définie.

Pour obtenir le fichi­er, cliquez ici.

et la vidéo :

A bien­tôt.

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel
Pour marque-pages : permalien.

8 réactions à Cocher ou décocher des cellules par double-clic

  1. Michel a écrit:

    Super astuce
    Petit soucis quand je partage le fichi­er en réseau par OneDrive , ça ne fonc­tionne pas sur Excel online, !!!

    Y a t’il une solu­tion?

  2. Gaetan Mourmant a écrit:

    Oui, exel online, à ma con­nais­sance, n’a pas de VBA, mais une sorte de javascript.

  3. Alain a écrit:

    Bon­jour M Mour­mant,
    Sym­pa cette petite appli­ca­tion et mer­ci encore pour le partage.
    Des vidéos tou­jours aus­si pro et des sujets tou­jours aus­si bien traités.
    Sincère­ment , je ne peux qu’in­viter tous vos vis­i­teurs à vous faire de la pub dans leur entourage en signe de remer­ciements et d’en­cour­age­ment en terme de vis­i­bil­ité, car vous le mérité .
    Et + encore pour ceux qui le souhait­ent en achetant quelqu’une de vos for­ma­tions.

    Per­son­nelle­ment , je suis fan, j’ai testé par le biais d’achats, j’avoue n’avoir jamais été déçu.

    Bonne con­tin­u­a­tion à vous et au plaisir de lire et vision­ner de nou­velles astuces.

    Alain.S

  4. Gaetan Mourmant a écrit:

    Bon­jour Alain,
    Un grand mer­ci pour vos retours !
    Effec­tive­ment, je cherche à tou­jours amélior­er mes for­ma­tions.
    N’hésitez pas si vous voyez des amélio­ra­tions.
    PS : est ce que je peux utilis­er votre com­men­taire dans la présen­ta­tion de mes pro­duits?

  5. Sandrine a écrit:

    Bon­jour,
    Super astuce mise en appli­ca­tion de suite.
    Je ne sais pas com­ment mod­i­fi­er votre code pour mon appli­ca­tion prin­ci­pale. J’aimerai poussé encore plus loin avec plusieurs plages nom­mées “Zone …” sans les mêmes sym­bol­es :
    _ au moins 3 choix d’icônes à appli­quer sur Zone 0
    _ 3 choix d’icônes à appli­quer sur Zone 1 (OK/BOF/KO)
    _ 2 icônes sur Zone 2 (VRAI/FAUX) donc macro de l’ex­em­ple
    et lorsque plus de 1 car­ac­tère dans la cel­lule, je veux que la police WINGDINGS passe en CALIBRI (ou ARIAL selon la police du classeur) pour les plages nom­mées util­isées dans cette macro unique­ment afin de pou­voir met­tre du texte et non plus des sym­bol­es…

  6. Gaetan Mourmant a écrit:

    Bon­jour San­drine,

    Sans le fichi­er ca n’est pas évi­dent, mais voici quelques pistes.
    Il faut par­courir la liste des noms et véri­fi­er qu’ils com­men­cent par Zone (quelque chose comme for each nom in thisworkbook.names)
    Pour les icônes, il faut chang­er la valeur de la cel­lule.
    Pour chang­er la police, de mémoire, ca va ressem­bler à ceci :
    Worksheets(“Sheet1”).Range(“A1”).Font.FontStyle = “Bold Ital­ic”

    Ca don­nerait quelque chose comme ceci :
    For Each nom In ThisWorkbook.Names
    If Left(nom.Name, 4) = “Zone” Then
    .…
    End If
    Next

    Cor­diale­ment.

  7. Céline Brien a écrit:

    Bon­jour Gaë­tan,
    Super astuce.
    Démon­stra­tion sans faille 😉
    Bra­vo !
    Céline

  8. Gaetan Mourmant a écrit:

    Bon­jour Céline et San­drine,
    Ceci devrait vous plaire :
    http://www.xlerateur.com/divers/2020/03/20/aller-plus-loin-avec-les-emoticones-10241/
    A bien­tôt.

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.