Discussion :

[girardinho]

Salut tout le monde

Est il possible avec une macro d'inscire une formule si la cellule est d'une certaine couleur.
Par exemple si j'ai une cellule verte (ou n'importe quelle couleur) en colonne C ligne 20, est il possible d'y inscrire une formule ou un chiffre automatiquement???

Merci par avance pour votre aide

PS: Sachant qu'il peut y avoir plusieurs cellules de la même couleur sur cette même colonne... (en C47, 59...)

[mercatog]

Le critère sera donc la couleur de la cellule de la colonne C, si c'est ça, alors une piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim c as range
for each c in columns("C:C")
   if c.interior.colorindex=6 then c.value="ici"  'ou c.formula="=12*A1" '(par exemple)
next c

Ceci ne fonctionnera pas si la coloration est issue d'une mise en forme conditionnelle

[girardinho]

Je vais tester ça, et la couleur n'est pas issue d'une mise en forme conditionelle donc ça devrait fonctionner.

[girardinho]

ça n'a pas l'air de fonctionner.
Les couleurs ne sont pas issues d'une mise en forme conditionnelle mais d'une macro précédente...est ce que ça peut venir de là?

[mercatog]

as-tu remplacé le 6 que j'ai mis dans le code exemple par l'index de la couleur de tes cellules?

plus tard, travailler avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.interior.color=65651

pour connaitre les chiffres à mettre
sélectionne une cellule coloré de ta couleur

exécute cette procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub tst()
msgbox "colorindex " &activecell.interior.colorindex
msgbox "color " &activecell.interior.color
end sub

[girardinho]

Oui j'avais adapté la couleur en fonction... Voici le code que je tente de faire fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
Dim c As Range
For Each c In Columns("C:C")
   If c.Interior.Color = 65535 Then c.Formula = "=""TOTAL ""&R[-1]C"
Next c
 
Dim d As Range
For Each d In Columns("E:E")
    If d.Interior.Color = 65280 Then d.Formula = "=""TOTAL ""&R[-2]C"
    Next d
 
 
End Sub

Je vois pas du tout où ça coince... Avant j'ai une macro qui effectue cette opération au préalable pour la coloration des lignes, ça vient peut être de là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rows(I + 1).Interior.Color = RGB(0, 255, 0) 'pour le vert
Rows(I).Interior.Color = 65535 'pour le jaune

J'avais fouiner pour trouver les couleurs qui me convenait. Je vais peut être essayé de voir en mettant colorindex mais il me semble que ça buggait et que j'obtenai des lignes noires comme le charbon...

J'ai essayé de modifier et de mettre colorindex 4 et 6 et ça ne marche toujours pas...comprends pas

ton code me parait pourtant très (trop?) logique...

[mercatog]

Une mea culpa pour moi et une correction pour toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim c As Range
For Each c In Sheets("Feuil1").Range("C:C") 'indiquer le nom de la feuille et range au lieu de columns
   If c.Interior.Color = 65535 Then c.FormulaR1C1 = "=""TOTAL ""&R[-1]C"
Next c

[girardinho]

Alleluia!!!!!!!!!!!!!!!!!!!!!!!


Un grand merci à toi