Mise en forme conditionnelle

Mise en forme conditionnelle - VB/VBA/VBS - Programmation

Marsh Posté le 23-07-2005 à 16:28:13    

Bonjour à tous,  
 
Je cherche à faire une mise en forme conditionnelle sur une plage de cellules (E4:E23) avec 5 conditions...  
 
Les voici :  
 

  • de 0,00 à 0,49 : fond de cellule rouge
  • de 0,50 à 0,79 : fond de cellule orange
  • de 0,80 à 0,99 : fond de cellule jaune
  • de 1,00 à 1,33 : fond de cellule vert et police blanche
  • de 1,34 à 9,99 : fond de cellule bleu et police blanche


D'avance merci pour vos aides.
 
Matt

Reply

Marsh Posté le 23-07-2005 à 16:28:13   

Reply

Marsh Posté le 24-07-2005 à 08:23:47    

Et où est le problème???
As-tu essayé?


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 24-07-2005 à 13:06:47    

Le problème, c'est que je ne sais pas faire... !!!

Reply

Marsh Posté le 24-07-2005 à 19:28:21    

Mais as-tu, au moins, cherché???
Mise en forme conditionnelle est dans le menu Format.
 
Tu veux pas qu'on te prenne par la main, aussi?


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 24-07-2005 à 20:08:00    

Mais pas pour 5 conditions... !  
Format = 3 conditions !  
Pas la peine qu'on me prenne en main, juste savoir comment on met 5 conditions...
Merci

Reply

Marsh Posté le 24-07-2005 à 21:00:25    

Zytop a écrit :

Mais pas pour 5 conditions... !  
Format = 3 conditions !  
Pas la peine qu'on me prenne en main, juste savoir comment on met 5 conditions...
Merci


ben la tu codes  :pt1cable:  
algo:
pour toutes tes cases :
        si valeur comprise entre a et b alors couleur1...
 
 :bounce:

Reply

Marsh Posté le 25-07-2005 à 08:45:07    

Zytop a écrit :

Format = 3 conditions !


Dommage qu'il faille attendre le troisième message pour savoir enfin où est le problème!
 
Nous n'avons pas (tous) la science infuse!
Pas moi, en tout cas.
Je ne connaissais pas cette limite, donc je ne savais pas sur quoi tu butais.
 
Avoue que tu aurais gagné du temps en nous le disant du premier coup (plutôt que "Je sais pas faire" )
 
Bon, un peu de code pour commencer:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Not Intersect(Target, Range("E4:E23" )) Is Nothing Then
    With Target
      Select Case Target.Value
        Case Is < 0.5
          .Interior.ColorIndex = 3
        Case 0.5 To 0.79
          .Interior.ColorIndex = 44
        Case 0.8 To 0.99
          .Interior.ColorIndex = 6
      End Select
    End With
  End If
End Sub


Le reste, tu devrais pouvoir trouver tout seul.
Pense à l'enregistreur de macros pour trouver les valeurs de ColorIndex.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 25-07-2005 à 23:13:16    

Bonsoir tout le monde,
 
Zytop, je te fais une proposition sans macro. J'epère être assez clair pour que tu puisse le comprendre toute la démarche à suivre :
 
Sélectionne la Plage [E4:E23] fait clic droit et choisi format de cellules. Active l'onglet Nombre et dans la liste standard coche Personnalisée.
 
Dans le champ Type saisi [Rouge][<0.49]Standard;[Orange]Standard. Valide par Ok.
 
Laisse la Plage [E4:E23] sélectionnée et déroule format, Mise ne forme conditionnelle. Remplis les champs de condition 1 pour avoir la valeur de la cellule qui est comprise entre 0.80 et 0.99. Clique sur format Active Motif et clique sur Jaune.
Dans la condition 2 remplis les champs afin d'obtenir la valeur de la cellule qui est comprise entre 1 et 1.33 puis clique sur format et dans motif sélectionne vert et dans police clique sur blanc.
Dans la troisième condition valeur comprise entre 1.34 et 9.99. clique sur format active Motif cliquer sur bleu et dans police clique sur blanc.
Et enfin clique deux fois sur OK.
 
J'espère que tu puisse en tirer partie.
 
A+

Reply

Marsh Posté le 26-07-2005 à 23:08:31    

Bonjour,  
 
Merci Alain, ça fonctionne, aucun problème !
Effectivement j'aurais pu tout dire du premier coup... :)
 
17dt38, dans la ligne "[Rouge][<0.49]Standard;[Orange]Standard", la valeur "Orange" ne semble pas être reconnue... Erreur !?! Mais je vois où tu veux en venir, j'ai pigé la logique !  
 
Merci pour vos aides,  
Cdt,  
Matt

Reply

Marsh Posté le 26-07-2005 à 23:48:19    

17dt38,  
 
Après recherches, ça fonctionne avec [Couleur44] !
 
Merci,  
Matt

Reply

Marsh Posté le 26-07-2005 à 23:48:19   

Reply

Marsh Posté le 27-07-2005 à 00:14:21    

Zytop a écrit :

17dt38,  
 
Après recherches, ça fonctionne avec [Couleur44] !
 
Merci,  
Matt


 
Bonsoir Zytop,
 
Je n'avais pas controler les données auparavent mais je l'ais fait cette après midi et j'avais remarqué le problème j'ai contourné la difficulté en inversant la couleur orange et la couleur jaune.
 
En effet forme par cellule oblige de prendre les 8 couleurs de base d'après l'aidene ligne.
 
D'autre part tu n'interdit pas les nombres négatifs ni les nombres supérieurs ou égaux à 10. Si tu le veux tu dois passer par outils puis validation prendre personalisé et tu rentre la formule :
 
=Et(taplage>=0;taplage<10)
 
A+


---------------
Le plus fort c'est ailleurs,
Reply

Marsh Posté le 11-06-2008 à 17:00:11    

Super pratique le code d'Alain... Résout le problème d'un maximum de 3 Mises en Forme Conditionnelles!

Reply

Marsh Posté le 23-06-2008 à 15:47:50    

dblf a écrit :

Super pratique le code d'Alain... Résout le problème d'un maximum de 3 Mises en Forme Conditionnelles!


 
Bonjour bonjour
je vais peut etre faire le boulet mais bon j'ai copier le code d'alain telquel dans VBA
et il se passe rien...
j'ai rien dans mes macros qd je suis sur ma feuille excel, et ça ne marche pas
 
Quelqu'un pourrait il m'aider car je suis sure que j'ai juste oublier quelque chose...
 
Merci
 
Zazou

Reply

Marsh Posté le 25-06-2008 à 15:51:26    

Le code fonctionne très bien mes moi je vais en demandé un peu plus lol
 
j'aimerais par exemple que quand j'écris 1 dans la case A1 les case de C1 a Z1 ce mettent en gris
 
cela fonctionne bien avec la fonction de mise en forme conditionnelle mes il m'en faut 12 et pas 3 lol
 
Merci de vos réponse ;)


Message édité par ricardo cardo le 25-06-2008 à 18:09:32

---------------
-VIP- J.cedric Super Admin de la team des Viperes
Reply

Marsh Posté le 25-06-2008 à 18:26:57    

Voila ce que je veux faire comme quand j'ai écris 4 ou 5 la ligne ses coloré le seul problème que j'ai ses que je tourne avec la mise en forme conditionnelle et que moi j'ai 12 différant état
Merci de votre aide  :??:  
 
http://img383.imageshack.us/img383/3902/sanstitrexw5.png


---------------
-VIP- J.cedric Super Admin de la team des Viperes
Reply

Marsh Posté le 26-06-2008 à 10:26:08    

Bonjour Ricardo
Je me doute qu'il fontionne, mais ou ai je fais une erreur? j'ai copier dand mon éditeur VBA excel , faut il faire par la suite une manipualtion qu eje n'ai pas su ou oublié de faire?
 
Merci  pour ton aide

Reply

Marsh Posté le 26-06-2008 à 11:47:50    

bonjour zazou84
 
je pense qu'il faut copier le code dans thisworbook et non pas dans un module.


Message édité par 86vomito33 le 26-06-2008 à 11:48:24
Reply

Marsh Posté le 26-06-2008 à 12:09:49    

Merci j'essaye.......
snif...
ça marche toujours pas....
pfff une autre idée?

Reply

Marsh Posté le 26-06-2008 à 15:07:11    

mets ton fichier sur cjoint ca sera plus rapide

Reply

Marsh Posté le 26-06-2008 à 15:30:05    

86vomito33 a écrit :

mets ton fichier sur cjoint ca sera plus rapide


http://cjoint.com/?gApCFzf2Ck
Bon en gros j'ai trouvé deux macro et j'ai essayé les deux
on m'a dis que mon codé était incomplet...
D'accord mais moi je suis pas du tout informaticienne donc il est peut etre incomplet mais je sais pas ce qu'il faut que j'avoute ou enleve
 
Merci de m'aider "vomito"

Reply

Marsh Posté le 26-06-2008 à 16:05:24    

ce surnom vient d'une soiree trop arrosee (a ce qu'il parait je m'en rappele plus)
 
sinon tu n'avais pas fait ce que je tai demande :(
 
voila ton fichier qui marche
http://cjoint.com/?gAqespcgt8
 
a+


Message édité par 86vomito33 le 26-06-2008 à 16:06:11
Reply

Marsh Posté le 02-07-2008 à 10:33:53    

lol je l'avais pas vu celui la de thisworkbook....
merci ça marche trop trop bien!!!
 
Par contre j'ai une question...
Si je rajoute une ligne le programme beugue...comment ça se fait?
J'ai affecté le programme à tout une colonne mais ça change rien, il bug
 
SI quelqeu'un à une idée


Message édité par zazou84 le 02-07-2008 à 10:43:33
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed