Condiion avec couleur

[lolo44]

Bonjour le Forum,
Lorsque ma cellule B1 est d'une couleur (fond jaune par exemple), j'aimerais que le chiffre 1.5 soit inscrit en D1. Si ma cellule n'a aucun remplissage, il sera alors inscrit le chiffre 1.
Est ce possible?
Merci pour votre aide
Lolo

 

[ROGER2327]

Re : Condiion avec couleur

Bonjour lolo44

Une fonction personnalisée devrait convenir.
Par exemple :

Function jaune(r As Range)
  If r.Interior.ColorIndex = 6 Then jaune = 1.5 Else jaune = 1
End Function

Ce code est à placer dans un module standard quelconque du classeur.
En D1, écrire

=jaune(B1)

Lorsque vous modifiez la couleur de la cellule B1, faites ensuite F2 puis Entrée.​

ROGER2327
#5062

Mardi 17 Pédale 138 (Saint Dricarpe, prosélyte, SQ)
21 Ventôse An CCXIX
2011-W10-5T10:12:07Z

 

[lolo44]

Re : Condiion avec couleur

Merci,
Je fais un essai ce soir chez moi et je vous tiens au courant.
Lolo

 

[lolo44]

Re : Condiion avec couleur

Bonsoir,
j'ai mis le code et ça ne fonctionne pas.
Est-ce que j'ai bien mis au bon endroit?
Y-a-t-il une manip à faire?
Merci pour votre aide
Lolo

 

[ROGER2327]

Re : Condiion avec couleur

Re…

J'ai regardé et essayé votre fichier : pas de problème, la fonction est au bon endroit et… …elle fonctionne.
Je ne sais pourquoi elle ne fonctionne pas sur votre machine. Désolé de ne pouvoir vous dépanner.​

ROGER2327
#5065

Mardi 17 Pédale 138 (Saint Dricarpe, prosélyte, SQ)
21 Ventôse An CCXIX
2011-W10-5T21:06:17Z

 

[lolo44]

Re : Condiion avec couleur

oui, lorsque j'ai ouvert à nouveau le fichier, ça fonctionne.
Par contre lorque je supprime un fond jaune ou que j'en rajoute un, il ne se passe rien. Il y a une manip à faire?
Merci

 

[ROGER2327]

Re : Condiion avec couleur

Re…

(…)
Par contre lorque je supprime un fond jaune ou que j'en rajoute un, il ne se passe rien. Il y a une manip à faire?
(…)

Oui, celle décrite par la dernière phrase du message #2. J'écrivai :

Lorsque vous modifiez la couleur de la cellule B1, faites ensuite F2 puis Entrée.

ROGER2327
#5066

Mardi 17 Pédale 138 (Saint Dricarpe, prosélyte, SQ)
21 Ventôse An CCXIX
2011-W10-5T21:30:13Z

 

[lolo44]

Re : Condiion avec couleur

Merci ,
je faisais F2 mais j'oubliais "entrée"
merci pour votre patience
Lolo
une denière question, est-il possible de prendre un groupe de cellule pour faire F2, ou bien faut-il le faire 1 par 1 ?
Merci

 

[Modeste]

Re : Condiion avec couleur

Bonsoir,

pour le plaisir de saluer Roger d'abord ... Ensuite, pour signaler que l'utilisation du pinceau pour appliquer/supprimer une couleur de remplissage entraîne le re-calcul automatiquement

 

[ROGER2327]

Re : Condiion avec couleur

Re... (Bonsoir Modeste)

D'accord avec la technique du pinceau.
Pour un groupe de cellules, on peut aussi faire CTRL C puis CTRL V.​

ROGER2327
#5067

Mardi 17 Pédale 138 (Saint Dricarpe, prosélyte, SQ)
21 Ventôse An CCXIX
2011-W10-5T22:10:01Z

 

[lolo44]

Re : Condiion avec couleur

merci beaucoup,
Le pinceau me va très bien
j'ai plus qu'à mettre tout ça sur mon fichier d'origine
Encore merci
Lolo

 

[Modeste]

Re : Condiion avec couleur

Re (aussi)

JCGL me rappelait aussi il y a un certain temps qu'une petite "Application.Volatile" en début de fonction était, dans un cas comme celui-ci, bienvenu

Cette méthode marque comme volatile une fonction personnalisée. Une fonction volatile doit être recalculée chaque fois qu'un calcul est effectué dans une cellule quelconque de la feuille de calcul. Une fonction non volatile n'est recalculée qu'en cas de changement des variables d'entrée. Cette méthode est sans effet si elle ne se trouve pas à l'intérieur d'une fonction définie par l'utilisateur utilisée pour calculer une cellule de feuille de calcul.

 

[ROGER2327]

Re : Condiion avec couleur

Re…

Et JCGL n'a pas souvent tort !
Avec Application.Volatile et l'utilisation de F2 Entrée, on peut effectivement mettre à jour une plage de cellules.
Merci à lui !

ROGER2327
#5068

Mardi 17 Pédale 138 (Saint Dricarpe, prosélyte, SQ)
21 Ventôse An CCXIX
2011-W10-5T22:25:09Z