Insérer formule dans une cellule VBA

Version imprimable

Bonjour,
Je n'arrive pas à insérer dans une cellule une formule

Code:

Worksheets("2016").Range("R51").Formula = "=comptecouleurfond(I49:L51;5)"

Ca vient de cette partie

Code:

"=comptecouleurfond(I49:L51;5)"

Car quand je mets

Code:

Worksheets("2016").Range("R51").Formula = "=S50+S51"

Ca marche très bien
Sachant que compte comptecouleurfond est une fonction qui marche tres bien quand je ne passe pas par le VBA
Code:

1 2 3 4 5 6 7 8 9 10 11 Function CompteCouleurFond(champ As Range, couleurfond) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleurfond Then temp = temp + 1 End If Next c CompteCouleurFond = temp End Function
Merci , je pense que c'est tout bête mais je ne trouve pas
Bonne journée :mrgreen:

04/03/2016, 12h14
joe.levrai

Bonjour,

.Formula nécessitant la rédaction de la formule au format anglais : tu dois remplacer le point virgule qui sépare tes arguments par une simple virgule

autre solution : utiliser .FormulaLocal qui travaillera avec la langue régionale paramétrée (Français pour toi)
04/03/2016, 12h21
maxoumax

Oui c'est exactement ça merci bien
Dernière petite question sur le même sujet

Code:

Worksheets("2016").Range("R51").FormulaLocal = "=comptecouleurfond(""B"" & i:""BE"" & i;5)"

Quelle est le problème dans ma syntaxe ?
Merci
04/03/2016, 12h28
joe.levrai

tu mélanges dans ta formule les parties "dures" (qu'il faudra écrire tel quel dans ta cellule excel) et les parties "dynamiques" (les variables dont on veut écrire leur valeur dans la cellule)

à vue de nez ça doit être ça :

Code:

Worksheets("2016").Range("R51").FormulaLocal = "=comptecouleurfond(""B""" & i & ":""BE""" & i & ";5)"
04/03/2016, 12h33
maxoumax

Hum ça ne marche pas
Rien n'est reçue dans la cellule concerné
Par contre si j'effectue ce code :

Code:

Worksheets("2016").Range("R54").FormulaLocal = "=comptecouleurfond(""B"" & i ; ""BE"" & i;5)"

Il me rentre dans la cellule R54 :

Code:

=comptecouleurfond("B" & i; "BE" & i;5)

mais qui ne marche pas

Bonjour,
tu rajoute un colonne que tu masque!

Code:

1
2
3
4
5
6
7
8
Function NumCoulFont(C As Object)
Application.Volatile True
NumCoulFont = Abs(C.Interior.Color)
End Function
Sub Test()
Range([B1], Cells((Cells.Rows.Count), "b").End(xlUp)).FormulaR1C1 = "=NumCoulFont(RC[-1])"
Cells(Cells((Cells.Rows.Count), "b").End(xlUp).Row + 1, "A").FormulaLocal = "=NB.SI(" & Range([B1], Cells((Cells.Rows.Count), "b").End(xlUp)).Address & ";65535)"
End Sub

04/03/2016, 14h08
maxoumax

Bonjour rdurupt , merci de ta réponse
Mais je comprends pas trop le code que tu m'as passé

Code:

Worksheets("2016").Range("R54").FormulaLocal = "=comptecouleurfond(""B"" & i ; ""BE"" & i;5)"

Dans ce style là tu n'as rien ?:aie::aie:
04/03/2016, 14h22
Invité

là tu augmente le temps de traitement mas c'est faisable!
04/03/2016, 14h26
maxoumax

Le temps de traitement pour l'instant n'est pas l'une de mes contraintes je possède très peu de cellules sont concernés.
Aurais tu une idée sur la syntaxe à adopter car la je sèche merci

Code:

Worksheets("2016").Range("R54").FormulaLocal = "=comptecouleurfond(""B"" & i ; ""BE"" & i;5)"

:D:oops::oops:
04/03/2016, 14h57
joe.levrai

Arf désolé, voici

Code:

.FormulaLocal = "=comptecouleurfond(B" & i & ":BE" & i & ";5)"

j'ai respecté à tort la syntaxe que tu cherchais à faire : encadrer les ranges par des apostrophes

bien sûr, grave erreur !
04/03/2016, 15h03
maxoumax

Merci tu es un artiste.:mouarf::mouarf:
:applo::applo::applo::applo::applo: