créer une macro pour déclencher clignotement de cellules Résolu/Fermé

Question

Bonjour le forum

Je suis débutant excel et je cherche à faire clignoter des cellules suivant conditions  
Nombre>à        et  texte .

Je voudrais joindre mon fichier  pour explications
Merci pour votre aide
jassbass33

Mike-31 · Answer

Bonsoir,

Tu es débutant sur Excel et tu veux déjà te lancer dans le VBA, tu as du courage  
j'espère que le Visual Basic te dit quelque chose !
pour joindre ton fichier, sert toi de ce lien
https://www.cjoint.com/

jassbass33 · Answer

Bonjour Mike 31

Après quelques recherches sur le net j'ai tenté de coder sur module1 et woorbook  sur mon fichier.
voici en pièce jointe
http://www.cjoint.com/c/EFxrQeeRzju


Merci d'avance pour ton aide
jassbass33

jassbass33 · Answer

re Mike 31

As tu reçu mon dernier post avec le fichier à étudier pour ouvrir une macro qui déclenche des cellules clignotantes suivant conditions.
http://www.cjoint.com/c/EFxuwE6WkHy

Est-ce réalisable et merci pour une éventuelle aproche..

jassbass33

Mike-31 · Answer

Re,

regarde comme cela

 https://www.cjoint.com/c/EFxvcE2F8Nj

jassbass33 · Answer

Re,

je ne peux pas ouvrir ton fichier: illisible...

J'attend avec impatience

jassbass33

Mike-31 · Answer

Re,

bizarre, regarde  celui ci
 https://www.cjoint.com/c/EFxvsjlioWj 

et si tu as encore des problèmes télécharge ton fichier sur ce lien
 http://dl.free.fr/getfile.pl?file=/YklgYzUX
pour la suite on verra demain
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

Re,

C'est bon j'ai pu télécharger par free.

EXCELLENT  TRAVAIL  Mike31

Juste deux modifs si possible:  Faire clignoter en rouge JOYEUX ANNIVERSAIRE
et je me suis apercu que la couleur rouge reste fixe en modifiant la date.

Bonne idée  les 2 boutons  et bravo la macro

Bonne nuit

Jassbass33

Mike-31 · Answer

Re,

comme cela
 https://www.cjoint.com/c/EFyfKoGtepj 
 si le lien ne fonctionne pas, prend celui ci
 http://dl.free.fr/getfile.pl?file=/MWa8s4y4

les boutons pourront être supprimés et remplacer par simplement le changement d'onglet ou déplacement sur la feuille, mais actuellement utile pour arrêter et relancer à sa guise les codes, on verra plus tard leur utilité
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

Re,

Super   BOULOT  Mike-31

Pour corser un peu,  une alarme sonore peut-elle se déclencher sur JOYEUX anniversaire?

A  priori  les boutons sont indispensables...

Grace à toi je découvre Excel...        immensité  de possibilités

Thanks
Jassbass33

Mike-31 · Answer

Re,

alors pour le son plusieurs possibilités soi on se contente d'un petit BEEP inclus dans Excel soit on joue une musique mais il faudra que le fichier son soit dans le même répertoire que le fichier autrement il faudra saisir sans se tromper le chemin complet du fichier 
 aujourd'hui je n'aurai pas le temps de poster un exemple, mais demain sans problème
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

Re,

Pour l'alarme son, j'aurais une préférence sur une musique "happy birthday to you..."    si c'est gérable !!!

Bon courage pour la mise en place.
Jassbass33

Mike-31 · Answer

Re,

c'est à voir, peux tu mettre le fichier son dans un post comme tu as fait pour ton fichier parce que des happy birthday to you il en existe de nombreuses versions, et si le fichier son est trop lourd je te dirais comment procéder  
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

re,

Je n'ai pas trouvé d'happy birthday to you ... a défaut un autre  morceau.
https://www.cjoint.com/c/EFyuRLYViry

Faut-il ne prendre qu'une séquence?

Dis moi si tu le recois

Jassbass33

Mike-31 · Answer

Re,
Bien reçu mais dans google tape happy birthday to you 
ensuite choisi vidéo, écoute les différentes versions puis copie l'adresse URL du lien qui te plait je verrais pour le récupérer

jassbass33 · Answer

Re,

Ok, je verrai ca demain,  merci  pour l'aide à d'un pro

jassbass33

jassbass33 · Answer

Re,

Bjr,  ci joint une version mp3  parmi d'autres
https://www.cjoint.com/c/EFzn4pQE6cy

une vidéo:  https://www.youtube.com/watch?v=4MpMOWldf1c&feature=youtu.be

Bon courage pour la mise en place

Jassbass33

jassbass33 · Answer

Re,

As-tu reçu mon dernier lien mp3  happy birthday to you..

J'ai hate de voir..finalisé

Jassbass33

Mike-31 · Answer

Re,

Récupère le fichier sur ce lien, c'est un dossier Zippé parce qu'il contient le fichier Excel et le fichier son.
pour accéder aux fichiers il faut ouvrir le dossier zip et sortir le dossier initial dans lequel se trouve tes fichiers, une fois le dossier sorti du zip tu peux supprimer le dossier zip.
il est impératif que les deux fichiers se trouvent au même endroit ou il faudra modifier le code et surtout le compliquer, donc si tu les déplaces ils doivent être dans le même répertoire
j'ai également personnalisé les formules de la colonne D et revu le mode de déclenchement lorsqu'on quitte et que l'on revient sur la feuille, lorsque les infos sont modifiés manuellement, lorsqu'on ouvre le dossier ou avec les boutons pour pouvoir travailler tranquillement 

http://dl.free.fr/getfile.pl?file=/lhaaFKWo 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

Re,

"Chapeau bas"  Mike31 !!!
En fait j'ai mis le fichier complet dézippé  sur le bureau  et  fonctionne  à merveille.   impressionnant.   
Je regarderai demain tes changements et fonctionnalités .

Merci au pro VBA

Jassbass33

Mike-31 · Answer

Re,

En contrôlant le fichier, j'ai remarqué une petite erreur dans mon code pas gênante mais qui pourrait le devenir, remplace le fichier Excel de ton dossier par celui ci qui retrouvera automatiquement le fichier son
 http://dl.free.fr/getfile.pl?file=/c8HAxBLs
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

Re,

Ok  bien  reçu,  j'ai remplacé l'ancien fichier par ton nouveau.En effet le son arrive direct.

Je me demandai si on pourrait mettre toute la cellule "JOYEUX ANNIV " colorée en rouge avec le texte qui contraste. a voir;    bonne idée avec le prénom qui suit .

thanks
jassbass33

Mike-31 · Answer

Re,

la cellule rouge, pas de problème mais le texte en contraste il va falloir jouer avec les couleur pour qu'il tranche, peut être jaune ou vert brillant à voir, je viens de faire un essai fond noir et vert brillant tu fais de essais et pourquoi pas simplement mettre en gras et rouge le texte pour le rendre plus visible
par contre je vais créer des constantes de sorte à saisir les bornes de plages en début de module ce qui rendra plus facile les modifications et éviter mon oublie 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

jassbass33 · Answer

Re,

Bon courage pour toute la mise en coloration de la cellule et contraste si possible pour avoir un beau visu.
Déjà, c'est très satisfaisant avec l'écriture rouge en gras  et le son qui accompagne !!!
Thanks

Jassbass33

Mike-31 · Answer

Re,

alors teste le fichier en retour, 
en début de module j'ai mis les constantes qui pilotent l'ensemble des codes, si ton tableau évolue change les valeurs exemple 20 qui correspond à la ligne 20 en 50  
et encore il serait possible de définir automatiquement les bornes du tableau
(tout compte fait je vais regarder)

Public Const Col_C As String = "C2:C20"
Public Const Col_D As String = "D2:D20"
Public Const Col_A_D As String = "A2:D20"
Public Const Col_A_B As String = "A2:D20"  
 
 https://www.cjoint.com/c/EFBnrUAu17j

Mike-31 · Answer

Re,

tu ne peux pas le télécharger par Cjoint !

alors voilà le dernier que j'ai encore amélioré, en début de module dans le visual tu verras cette ligne

Public Const Der_Lig As String = "20"

le 20 est la dernière ligne prise en compte, si ton tableau grandi, il suffit de changer le numéro de ligne toujours entre parenthèse sans toucher au reste des codes
 http://dl.free.fr/getfile.pl?file=/w57WiGK4

Mike-31 · Answer

Re,

toujours à la recherche d'épurer les codes et simplifier leur utilisation, j'ai mis en début de module deux constantes pour faciliter les modifications des plages et le remplacement du titre de musique

Public Const Der_Lig As String = "20" 
Public Const Music As String = "Happy_Birthday.mp3"

vire ton ancien fichier et remplace le par celui ci, je pense que ce sera le dernier parce que je ne vois pas ce qu'il est encore possible d'améliorer
 http://dl.free.fr/getfile.pl?file=/BRMUUKUo

jassbass33 · Answer

Re,

Bien reçu ton dernier post,

Je vois que ton super fichier interresse quelques uns  ;  un exemple à retenir.

Ta dernière version différente en visu reste originale par son concept.  texte vert sur fond noir , why not!

J'apprécie tout autant le rouge gras basique...

En tout cas,  MERCI !!!!!!!!!!!       et quelle macro !!!!!

Jassbass33

Mike-31 · Answer

Re,

Si tu n'arrives pas à modifier le code, fait signe et explique quelle animation tu retiens
Si tes attentes sont satisfaites confirme le moi que je passe le statut de la discussion en résolu

jassbass33 · Answer

Re,

J'ai compris pour modifier le chiffre 20    en début de macro.

Après réflexion je garde les 2 versions
Celle colorée en noire et texte  vert  flash   est  Top  et  l'autre  rouge caractère gras  différente   mais top aussi.

Merci  Mike-31  pour tout le boulo et énergie consacrés à ce fichier anniv et de ton attention   pour un débutant  excel.

Résolu

Jassbass33

jassbass33 · Answer

Re Mike-31

Je me permet de revenir  sur le fichier anniv  avec la cellule clignotante "JOYEUX ANNIVERSAIRE"  en Rouge GRAS, a partir de la ligne 19, quand j'écris un nouveau prénom, ddn etc..  les cellules de la colonne Age clignotent bizarrement. Je voudrais mettre environ 50 prénoms.

Pourrais-tu vérifier ce qui se passe ?
En te remerciant d'avance..
http://www.cjoint.com/c/EFEpYSEO7fy
Jassbass33

Mike-31 · Answer

Re,

Mais c'est normal tu utilises un des premier fichier, télécharge mon dernier fichier sur le post 28 dans lequel j'ai créé des constantes en début de code pour moduler rapidement et facilement l'extension des plages 
et lorsque tu saisis de nouveau noms et incrémente tes lignes de formules arrête le clignotement

jassbass33 · Answer

Re,

Merci bcp  et  excuses pour le repost

Ca marche super!!!

Jassbass33

Créer une macro pour déclencher clignotement de cellules

32 réponses

Discussions similaires