Discussion :

[maxoumax]

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

Code :

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

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

Ca vient de cette partie

Code :

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

"=comptecouleurfond(I49:L51;5)"

Car quand je mets

Code :

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

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 :

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

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

[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)

[maxoumax]

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

Code :

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

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

Quelle est le problème dans ma syntaxe ?
Merci

[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 :

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

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

[maxoumax]

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

Code :

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

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

Il me rentre dans la cellule R54 :

Code :

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

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

mais qui ne marche pas

[Invité]

Bonjour,
tu rajoute un colonne que tu masque!

Code :

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

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