Faire la somme d'une formule conditionnée par couleur
Bonjour,
Je cherche à créer la formule suivante à partir du fichier ci-joint:
- Lorsque qu'une cellule est coloriée en jaune sur la ligne 4, alors je prends le montant de la cellule ligne 2 de la colonne concernée; exemple dans le cas de la ligne 4 : A4 et B4 étant colorié en jaune, je fais la somme de A2 et B2 en cellule I4
J'ai bien réussi à écriture la formule pour une cellule mais je ne sais pas comment la rendre applicable sur une plage de cellule:
Sub color()
MsgBox ActiveCell.Interior.color
End Sub
Sub actualiser()
Application.Calculate
End Sub
Function SI_JAUNE_1(paye As Range, montant)
Application.Volatile
couleur = 65535 'JAUNE
If paye.Interior.color = couleur Then 'Si VRAI
SI_JAUNE = montant
Else 'Si FAUX
SI_JAUNE = 0
End If
End Function
Function SI_JAUNE(paye As Range, montant)
Application.Volatile
SI_JAUNE = 0 'Si FAUX
If paye.Interior.color = 65535 Then SI_JAUNE = montant 'Si VRAI
End Function
Merci d'avance pour votre aide
merci beaucoup pour votre aide, c'est tout à fait ce que je cherchais à calculer.
Toutefois, lorsque je modifie la valeur en ligne 2, par exemple 28 à la place de 35, la somme se fait toujours avec 35 si ma cellule est coloriée en jaune. Y a t-il une astuce pour modifier le code ?
Merci d'avance
Oups ! Erreur dans le code
Reprends le fichier du fil précédent ; je l'ai modifié
Nad
Super ça marche, merci pour votre aide