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.
Cocher ou décocher des cellules par double-clic
Pour marque-pages : Permaliens.
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?
Oui, exel online, à ma connaissance, n'a pas de VBA, mais une sorte de javascript.
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
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?
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...
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.
Bonjour Gaëtan,
Super astuce.
Démonstration sans faille 😉
Bravo !
Céline
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.
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.
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.
Suite aux différents commentaires, j'ai modifié le fichier pour tester différemment la correspondance avec la zone.