Conditions basée sur une couleur de cellule

[romain13]

Bonjour,
comme indiqué dans ma pj je souhaite appliquer des facteurs à des cellules en fonction de la couleur la cellule d'origine.
Le tout est expliqué dans ma pj.
Merci pour votre aide
Romain

 

[tototiti2008]

Re : Conditions basée sur une couleur de cellule

Bonjour Romain,

un essai avec une fonction personnalisée (code VBA Module1)

 

[pierrejean]

Re : Conditions basée sur une couleur de cellule

Bonjour romain13

Vois si cela te convient
(macro evenementielle Worksheet_change)

Edit salut Tototiti

 

[romain13]

Re : Conditions basée sur une couleur de cellule

Merci pour votre récativité. Cela répond parfaitement à mes attentes.
Bonne journée.

 

[fhoest]

Re : Conditions basée sur une couleur de cellule

Bonjour Romain,pierrejean,tototiti2008,
bien que j'aurais certainement pu aider notre amis avec vb comme vous l'avez très bien fait
Aujourd'hui ou plutôt ce matin j'étais d'humeur formules excel
et bien pas facile excel,je ne parviens vraiment pas a utilisé la fonction suivante

=SI(CELLULE("couleur";J10)=CELLULE("couleur";F18);D10*G18;D10)

Pas moyen et oui tomber sur un os parmi tant d'autres
Auriez vous la solution ?? parce que je ne trouve rien a ce sujet sur le net
Merci

 

[job75]

Re : Conditions basée sur une couleur de cellule

Bonjour les amis 🙂

@ fhoest : CELLULE("couleur";ref) ne renvoie pas la couleur de ref, voir l'aide Excel sur cette fonction.

Par contre on peut utiliser la fonction macro Excel 4.0 LIRE.CELLULE(38;ref).

1) F17 étant sélectionnée, définir (menu Insertion-Nom) le nom coul par =LIRE.CELLULE(38;Feuil1!F17)

2) Dans les cellules de la plage F17:F21, formule =coul

3) En I9 entrer la formule =C9*RECHERCHEV(coul;$F$17:$G$21;2;0) et la copier sur I9:L12

4) Mettre I9:L12 au format personnalisé Standard;-Standard; pour masquer les 0.

Fichier joint.

A+

 

[fhoest]

Re : Conditions basée sur une couleur de cellule

Bonjour a toi job75 et toujours les autres bien sur
Merci pour cette réponse,
géniale j'aurais encore appris quelque chose aujourdh'ui
Au plaisir.

 

[romain13]

Re : Conditions basée sur une couleur de cellule

En fait j'ai une derniere question pratique.
Sur mon fichier joint remis à jour grace à vous je voulais savoir s'il était possible que lorsque je modifie la couleur d'une case de mon tableau de référence, cela modifie automatiqueme,t la valeur dans mon tableau de sortie. Je n'arrive pas à exécuter la macro avec F9
Merci.

 

[tototiti2008]

Re : Conditions basée sur une couleur de cellule

Bonjour PierreJean, Bonjour fhoest, Bonjour job,
Re,

Pour que F9 fonctionne, ajoute

Application.Volatile

au début du code de la fonction RechCoul

sinon, pour que le calcul se fasse à chaque changement de sélection :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Calculate
End Sub

à mettre dans le code de la feuille Feuil1

 

[romain13]

Re : Conditions basée sur une couleur de cellule

Merci ca marche presque.
Par contre

Solution 1 : comment ajouter apllication.volotile dans ma fonction =SI(C9="";"";C9*rechcoul(C9;$F$17:$G$20;2)) ???

Solution 2 : Avec l'ajout du code ca ne marche qu'une fois. A partir du 2nd exemple le changement de couleur n'a plus d'impact

Comment puis je faire?

Merci

 

[job75]

Re : Conditions basée sur une couleur de cellule

Re,

Avec la solution que j'ai donnée, on peut s'affranchir des couleurs du tableau I9:L12.

1) I9 étant sélectionnée, définir le nom coul1 par =LIRE.CELLULE(38;Feuil1!C9)+INDIRECT("IV1")

La fonction INDIRECT permet de rendre la formule volatile.

2) Entrer en I9 la formule =C9*RECHERCHEV(coul1;$F$17:$G$21;2;0) et la copier sur I9:L12.

Tout changement de couleur sur le tableau de référence modifiera la valeur correspondante du tableau I9:L12 [Edit] après avoir appuyé sur la touche F9.

A+

 

[tototiti2008]

Re : Conditions basée sur une couleur de cellule

Re,

Solution 1 : nécessite F9 pour la mise à jour
Solution 2 : nécessite de changer de sélection (cliquer sur une autre cellule) après avoir changé la couleur

Edit : ou la solution de job, evidement 😉

 

[job75]

Re : Conditions basée sur une couleur de cellule

Re encore,

Suite post #12 de tototiti (que je salue), noter que la solution de mon post #11 [Edit] nécessite d'appuyer sur F9.

A+