Cocher ou décocher des cellules par double-clic

Bonjour à tous,

Voici une petite application créée en 5 minutes et qui permet de cocher/décocher des cellules d'une plage définie.

Pour obtenir le fichier, cliquez ici.

et la vidéo :

A bientôt.

Pour marque-pages : Permaliens.

11 réponses à Cocher ou décocher des cellules par double-clic

  1. Michel dit :

    Super astuce
    Petit soucis quand je partage le fichier en réseau par OneDrive , ça ne fonctionne pas sur Excel online, !!!

    Y a t’il une solution?

  2. Gaetan Mourmant dit :

    Oui, exel online, à ma connaissance, n'a pas de VBA, mais une sorte de javascript.

  3. Alain dit :

    Bonjour M Mourmant,
    Sympa cette petite application et merci encore pour le partage.
    Des vidéos toujours aussi pro et des sujets toujours aussi bien traités.
    Sincèrement , je ne peux qu'inviter tous vos visiteurs à vous faire de la pub dans leur entourage en signe de remerciements et d'encouragement en terme de visibilité, car vous le mérité .
    Et + encore pour ceux qui le souhaitent en achetant quelqu’une de vos formations.

    Personnellement , je suis fan, j'ai testé par le biais d'achats, j'avoue n'avoir jamais été déçu.

    Bonne continuation à vous et au plaisir de lire et visionner de nouvelles astuces.

    Alain.S

  4. Gaetan Mourmant dit :

    Bonjour Alain,
    Un grand merci pour vos retours !
    Effectivement, je cherche à toujours améliorer mes formations.
    N'hésitez pas si vous voyez des améliorations.
    PS : est ce que je peux utiliser votre commentaire dans la présentation de mes produits?

  5. Sandrine dit :

    Bonjour,
    Super astuce mise en application de suite.
    Je ne sais pas comment modifier votre code pour mon application principale. J'aimerai poussé encore plus loin avec plusieurs plages nommées "Zone ..." sans les mêmes symboles :
    _ au moins 3 choix d'icônes à appliquer sur Zone 0
    _ 3 choix d'icônes à appliquer sur Zone 1 (OK/BOF/KO)
    _ 2 icônes sur Zone 2 (VRAI/FAUX) donc macro de l'exemple
    et lorsque plus de 1 caractère dans la cellule, je veux que la police WINGDINGS passe en CALIBRI (ou ARIAL selon la police du classeur) pour les plages nommées utilisées dans cette macro uniquement afin de pouvoir mettre du texte et non plus des symboles...

  6. Gaetan Mourmant dit :

    Bonjour Sandrine,

    Sans le fichier ca n'est pas évident, mais voici quelques pistes.
    Il faut parcourir la liste des noms et vérifier qu'ils commencent par Zone (quelque chose comme for each nom in thisworkbook.names)
    Pour les icônes, il faut changer la valeur de la cellule.
    Pour changer la police, de mémoire, ca va ressembler à ceci :
    Worksheets("Sheet1").Range("A1").Font.FontStyle = "Bold Italic"

    Ca donnerait quelque chose comme ceci :
    For Each nom In ThisWorkbook.Names
    If Left(nom.Name, 4) = "Zone" Then
    ....
    End If
    Next

    Cordialement.

  7. Céline Brien dit :

    Bonjour Gaëtan,
    Super astuce.
    Démonstration sans faille 😉
    Bravo !
    Céline

  8. Gaetan Mourmant dit :

    Bonjour Céline et Sandrine,
    Ceci devrait vous plaire :
    https://www.xlerateur.com/divers/2020/03/20/aller-plus-loin-avec-les-emoticones-10241/
    A bientôt.

  9. Bertrand HEINRICH dit :

    Bonjour,

    J'ai bien testé votre macro et cela fonctionne très bien. J'ai juste un souci c'est que nous ne pouvons plus double-cliquer dans une autre cellule qui ne fait pas partie de la sélection. Cela bug au niveau de la définition de la variable ilist. Je pense que cela est due que arrlist est nulle
    Il faudrait pouvoir faire un EXIT SUB quand on double-clique dans une cellule ne faisant pas partie de la sélection.
    Est-ce faisable?
    Merci de votre retour.

  10. Gaetan dit :

    Bonjour,
    A mons avis, le problème vient d'ailleurs
    If Intersect(Target, Range("FormXL")) Is Nothing Then Exit Sub
    fait exactement cela (Il faudrait pouvoir faire un EXIT SUB quand on double-clique dans une cellule ne faisant pas partie de la sélection.).
    Vous pouvez m'envoyer le fichier pour que je jette un oeil rapide.

  11. Gaetan Mourmant dit :

    Suite aux différents commentaires, j'ai modifié le fichier pour tester différemment la correspondance avec la zone.

Laisser un commentaire

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


La période de vérification reCAPTCHA a expiré. Veuillez recharger la page.

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