Conditions basée sur une couleur de cellule

tototiti2008

XLDnaute Barbatruc

• 1 Décembre 2010

• #2

Re : Conditions basée sur une couleur de cellule

Bonjour Romain,

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

 

Pièces jointes

• Classeur1.xls

  26.5 KB · Affichages: 109
• Classeur1.xls

  26.5 KB · Affichages: 106
• Classeur1.xls

  26.5 KB · Affichages: 109

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Décembre 2010

• #3

Re : Conditions basée sur une couleur de cellule

Bonjour romain13

Vois si cela te convient
(macro evenementielle Worksheet_change)

Edit salut Tototiti

 

Pièces jointes

• romain13_Classeur1.zip

  16.2 KB · Affichages: 52

Vote positif 0 Vote négatif

R

romain13

Guest

• 1 Décembre 2010

• #4

Re : Conditions basée sur une couleur de cellule

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

 

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 1 Décembre 2010

• #5

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

Code:

=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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Décembre 2010

• #6

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+

 

Pièces jointes

• Classeur(1).xls

  23 KB · Affichages: 91
• Classeur(1).xls

  23 KB · Affichages: 87
• Classeur(1).xls

  23 KB · Affichages: 83

Dernière édition: 1 Décembre 2010

Vote positif 0 Vote négatif

fhoest

XLDnaute Accro

• 1 Décembre 2010

• #7

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.

 

Vote positif 0 Vote négatif

R

romain13

Guest

• 1 Décembre 2010

• #8

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.

 

Pièces jointes

• Code couleur.xls

  26.5 KB · Affichages: 58
• Code couleur.xls

  26.5 KB · Affichages: 59
• Code couleur.xls

  26.5 KB · Affichages: 58

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Décembre 2010

• #9

Re : Conditions basée sur une couleur de cellule

Bonjour PierreJean, Bonjour fhoest, Bonjour job,
Re,

Pour que F9 fonctionne, ajoute

Code:

Application.Volatile

au début du code de la fonction RechCoul

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

Code:

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

à mettre dans le code de la feuille Feuil1

 

Dernière édition: 1 Décembre 2010

Vote positif 0 Vote négatif

R

romain13

Guest

• 1 Décembre 2010

• #10

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Décembre 2010

• #11

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+

 

Pièces jointes

• Classeur(2).xls

  23 KB · Affichages: 71
• Classeur(2).xls

  23 KB · Affichages: 66
• Classeur(2).xls

  23 KB · Affichages: 61

Dernière édition: 1 Décembre 2010

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 1 Décembre 2010

• #12

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 😉

 

Pièces jointes

• Code couleur(Sol1).xls

  25.5 KB · Affichages: 57
• Code couleur(Sol2).xls

  26 KB · Affichages: 54

Dernière édition: 1 Décembre 2010

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Décembre 2010

• #13

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+

 

Dernière édition: 1 Décembre 2010

Vote positif 0 Vote négatif