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