Visual Basic, petite macro Excel Résolu/Fermé

Question

Bonjour,

Je travaille avec Excel 2003, je voudrais creer une macro mais ils me manquent quelques commandes...

L'idee:
Il y a un nombre entre 1 et 100 contenu dans une cellule. 
A cote, sur la meme ligne, il y a 10 cellules.

Si le nombre rentre dans la premiere cellule est 10.
On colorie la premiere cellule des 10 en verts et les 9 autres en rouge.

Si c'est 20, on colorie les 2 premieres en verte et les 8 autres en rouge...

etc.

Par la suite, j'essaierais de trouver une combine pour "arrondir":
si la cellule contient 33, on laisse 33 dans la cellule mais on ne colorie que les 3 premieres cases en vertes et les 7 autres en rouge.

Voila, si quelqu'un peut me donner quelques pistes !
Merci d'avance!!

Jeremy

michel_m · Answer

bonjour,
une macro ?
regarde cette maquette sans macro, peut-^tre que...
https://www.cjoint.com/?kqltcYJ7pV

mkos · Answer

Oui j'ai vu la mise en forme conditionnelle mais ca ne va pas, on ne peut donner que 3 choix:

Si compris entre X0 et Y0 ...
Si compris entre X1 et Y1 ...
Si compris entre X2 et Y2 ...

Moi il me faut beaucoup plus de si...
Mais merci! :)

mkos · Answer

ah mais nan ! je re essaye ! j'avais pas vu que ton fichier marchait !! :)
J'utilise excel 2003, je vais voir si ca marche aussi !

michel_m · Answer

bonjour,
une macro ?
regarde cette maquette sans macro, peut-^tre que...
https://www.cjoint.com/?kqltcYJ7pV

mkos · Answer

Merci Michel,
mais est ce que tu peux m'expliquer ta formule?
Car je n'arrive pas a reproduire ton fichier excel en adaptant a mon cas..

michel_m · Answer

=ENT($B2/10)>=COLONNE()-2

ENT($B2/10) te donne la dizaine du nombre en B2 par ex 17 en B2 renvoie 1; 33 renvoie 3

COlonne() te donne le numero de la colonne de la cellule par ex colonne C=3 

la cellule C2 dans mon exemple devant se mettre en vert si la dizaine est >=1 j'écris donc colonne()-2 pour retrouver 1
et en tirant vers la droite  on aura 2 en D, 3 en E, 4 en F....


si le nombre à évaluer est en A1, en B1 j'aurais écris
=ENT($A1/10)>=COLONNE()-1

si C1 en D1
=ENT($C1/10)>=COLONNE()-3

mkos · Answer

C'est bon ca marche pour mes 2 premieres conditions.
Juste encore un petit truc!
Si la valeur n'est pas entre 0 et 100, ou alors n'est pas un nombre, je voudrais mettre un fond gris par exemple.
J'ai essaye de mettre une 3eme condition mais ca ne marche pas
(ma cond 1 n'est plus la meme, car j'ai change mon nombre de colonnes a 20)

[B]cond 1) [/B]
=INT($Z31/5)>=COLUMN()-5     =  FOND VERT

[B]cond 2) [/B]

Cell value is between 0 et 100  =  FOND ROUGE

[B]cond 3) [/B]

Cell value is NOT between 0 et 100  =  FOND GRIS

Mais ma troisieme condition ne marche pas...
quelqu'un saurait m'aider a mettre ce fond gris?

michel_m · Answer

....
:-((

Visual Basic, petite macro Excel

8 réponses

Discussions similaires