Visual Basic, petite macro Excel

Résolu
mkos -  
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
Configuration: Windows XP Internet Explorer 6.0

8 réponses

  2. mkos Auteur
    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?
    1. michel_m Contributeur
      =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

      1. mkos Auteur
        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..
        3. mkos Auteur
          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 !
          1. mkos Auteur
            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! :)