Docteur Excel te montre comment colorier toutes les valeurs supérieures à 10 (ou à n’importe quelle valeur de ton choix) avec une macro VBA
Transcription de la vidéo
Salut c’est docteur Excel
Aujourd’hui je vais te montrer comment faire pour surligner les valeurs qui sont supérieures à une valeur donnée en VBA.
Donc là par exemple je t’ai mis une série de nombres, on va voir comment surligner ceux qui sont supérieures à 10 par exemple.
On va faire ça avec une macro alors moi je vais l’écrire sous tes yeux et puis je t’ai mis le fichier en dessous donc tu peux le télécharger pour suivre avec moi ou si tu veux t’en inspirer le lien est sous la vidéo.
On va commence par faire une petite macro on va l’appeler surligner.
Nouvelle macro, qu’est ce qu’on va mettre dedans?
Alors déjà je vais mettre Option Explicit et puis alors je vais d’abord commencer par mettre une variable
dim valeur ou dim mavaleur ou plutôt Dim ma_valeur as Double par exemple tu peux mettre n’importe quoi tu pourras mettre un entier ou ce que tu veux un entier ou une valeur décimale.
On va commencer par dire ma valeur égale InputBox donc on va ouvrir une boîte de dialogue qui va qui va demander en fait inviter à l’utilisateur de rentrer une valeur et le message qu’on va demander est: “surligner si supérieur”… bon après tu pourras changer le texte si tu veux.
On va rajouter une deuxième variable – appelée Dim ma_cellule as Range et ensuite on va faire une boucle dans toutes les cellules de la sélection d’ailleurs la sélection on va la renommer on va dire Dim ma_plage as Range ici ( ma plage avec un p!) et on va les initialiser.
On va dire ma_plage on va dire que c’est égal à la sélection tu vois la c’est la plage qui est sélectionnée avant que tu lance la macro.
Maintenant on va dire for each donc on va prendre chaque chaque cellule donc for each ma_cellule in ma_plage si ma cellule si sa valeur (value) si ma_cellule.value donc la valeur de cette cellule est supérieure à ma valeur, alors if …then
Qu’est ce que je fais? je fais ma_cellule.interior.colorindex (donc ça veut dire la couleur de fond de cette cellule) On va mettre … je ne sais pas je crois que 46 c’est en orange donc on va la mettre en orange et on ferme la boucle donc End If.
Ensuite on passe à la cellule suivante: Next ma_cellule voilà donc la boucle est fermée, mon If est fermé et puis c’est tout voilà donc donc on va voir si ça marche! Et puis s’il y a un bug on corrigera ensuite!
Alors déjà si je fais cela une cellule vide.. Ah bah tu vois on a déjà un bug!
Ma plage égale sélection ouais pourquoi? Parce qu’i faut que je mette Set avant pour fixer la valeur.
Donc là si je sélectionne cette plage par exemple je fais ma macro.
Surligner si c’est supérieur à quelle valeur? je mets 10 et ça me surligne bien 14, ici c’est supérieur à 10.
Je vais le réinitialiser alors après: aucun remplissage. C’est à toi de voir si tu veux effacer la couleur automatiquement ou pas ou si tu veux le faire la main ou je te laisserais voir ça.
Donc là on va le faire par rapport à 10 toujours voilà et ça me souligne bien toutes les valeurs strictement supérieures à 10.
Donc je vais le remettre à zéro et et si je le fais par exemple supérieur à 9 je vais faire je suis qu’à neuf ce coup ci ça me surligne bien le dix.
Donc tu vois ça te permet de mettre en valeur toutes les valeurs dans une plage qui sont supérieures à la valeur que tu cherches du coup je te laisse télécharger le fichier qui est juste en dessous de la vidéo et puis moi je te dis à demain pour un nouveau tutoriel.
Salut!
