Fonction si d'apres une couleur

Résolu
texastina Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour

je voudrai savoir si il était possible sous excel (fonction ou avec le VBA) de faire en sorte que :
"si la cellule A1 est de couleur verte, alors la cellule A2 affichera "VRAI""

OU alors :
" si la cellule A1 est de couleur Verte, alors la cellule A2 sera de couleur Blanche"

Jespere que vous allez pouvoir m'aider
A voir également:

1 réponse

Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

Malheureusement, je ne crois pas qu'excel soit capable d'apporter une solution sur ce genre de problème. En effet, les formules simples ne traitent pas les couleurs.

Par contre, on peut très bien faire ce que vous demandez mais il est obligatoire de passer par du VBA.

En VBA, votre demande serait traitée ainsi :

Sub COULEUR()

If Range("A1").Font.Interior.Color = RGB(x, x, x) Then
   Range("A2").Value = "VRAI"
End If

End Sub


Pour la couleur, j'ai mis (x, x, x), il faut en effet me donner la couleur exacte que vous utilisez. Pour cela, sélectionnez une cellule où la couleur est celle que vous voulez. Cliquez sur le bouton "Couleur de Remplissage" (la petite flèche à coté). Allez dans "Autres couleurs" puis dans l'onglet "Personnalisées" et donnez moi les valeurs du Rouge, du Vert et du Bleu.

Si votre fichier comporte plusieurs lignes à traiter, alors dans ce cas, j'ai besoin de savoir à quelle ligne commencent les données (sans les titres donc). Et on peut faire un code qui s'exécutera automatiquement sur toutes les lignes de votre fichier.

Cordialement.
0
texastina Messages postés 52 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Merci pour votre réponse, toute fois, jai essayé de copier coller votre code dans le VBA et le message d'erreur "Propriété ou méthode non gérée par cette objet" apparait.
J'ai bien sur changer les code couleurs comme vous m'avez dit RGB(50,250,255)

Concernant les cellules je n'ai besoin que de la cellule A1
0
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
En même temps j'ai fait une erreur. Je vous prie de m'excuser.

Sub COULEUR()

If Range("A1").Interior.Color = RGB(50, 250, 255) Then
   Range("A2").Value = "VRAI"
End If

End Sub
0
texastina Messages postés 52 Date d'inscription   Statut Membre Dernière intervention   > Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention  
 
Super merci beaucoup je suis arrivé a faire ce que je voulais :)
0
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Mais de rien.

Passez le sujet en résolu svp.

Bonne journée.
0