Sujet Précédent Sujet Suivant

Probleme de comparaison de couleur help please

Résolu
nafuns Messages postés 7 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 26 août 2008 - 26 août 2008 à 21:32
nafuns Messages postés 7 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 26 août 2008 - 26 août 2008 à 22:24
Desolé si je ne suis pas au bonne endroit je savais pas trop mettre ce sujet...

voila je travail sur visual basic via EXCEL

j'ai fait un p'tit prog et je comprend pas pourquoi sa veut pas tourner snif...
    If Range("A1") (Interior.ColorIndex 2) Then Range("A3") = Z    Elself Range("A1") (Interior.ColorIndex 15)
    Range("A3") = Z    Elself Range("A1") (Interior.ColorIndex 35)
    Range("A3") = Z
    Else
    Range("A2") = X
    End If

je vous remerci

7 réponses

Réponse 1 / 7
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
26 août 2008 à 22:01
If Range("A1").Interior.ColorIndex = 2 Or _
   Range("A1").Interior.ColorIndex = 15 Or _   Range("A1").Interior.ColorIndex 35 Then Range("A3") "Z" Else Range("A2") = "X"

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
3
Réponse 2 / 7
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
26 août 2008 à 22:15
ben compare avec le code que je te donne :
If Range("A1")(Interior.ColorIndex 2 )   --->  If Range("A1").Interior.ColorIndex = 2
Range("A3") Z  --->  Range("A3") " Z"

Le reste ce n'est que de la mise en forme, une autre façon de faire les tests.

---- Sevyc64  (alias Casy) ----<hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
3
Réponse 3 / 7
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 1
26 août 2008 à 22:19
Salut ,
Ca sera mieux avec ce code:

If Range("A1").Interior.ColorIndex = 2 Then
Range("A3").Value = "Z"
ElseIf Range("A1").Interior.ColorIndex = 15 Then
Range("A3").Value = "Z"
ElseIf Range("A1").Interior.ColorIndex = 35 Then
Range("A3").Value = "Z"
Else
Range("A2").Value = "X"
End If

J'espère avoir bien répondu.
A+
3
Réponse 4 / 7
nafuns Messages postés 7 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 26 août 2008
26 août 2008 à 21:48
Peut etre que je m'y prend mal
je souhaite comparer la couleur de fond de la cellule A1
si elle est blanche ecrire "Z" (valeur fictive pour simplifier)
si ellle est verte pareil que blanche et si si grise idem

Pour toute autre couleur ecrire "X"

j'espere que cela aidera ceux qui souhaiterai m'aider...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
nafuns Messages postés 7 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 26 août 2008
26 août 2008 à 22:08
yes trop bien merci
mais pour culture pouquoi mes lignes de prog ne fonctionner pas
si tu c'est sa m'interesse pour culture perso
mais encore merci
0
Réponse 6 / 7
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
26 août 2008 à 22:21
Un peu tard mais c'est ça

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
0
Réponse 7 / 7
nafuns Messages postés 7 Date d'inscription vendredi 8 août 2008 Statut Membre Dernière intervention 26 août 2008
26 août 2008 à 22:24
ha ouais j'etais pas si loin en faite
merci pour votre aide
0
Rejoignez-nous