Discussion :

[jad73]

bonjour le forum
je voudrais transcrire une formule excel en code vba.Aprés plusieurs essais puiser sur les forums ,j'ai trancrit cette formule mais elle ne fonctionne pas,sur le site excel-pratique on me dit que la formule est incorrect mais etant nul en vba c'est pour cela que je viens vers vous.Je joint un bout de fichier.
La formule excel est clle-ci.

Code :

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

=SOMMEPROD(FREQUENCE(SI(Kdonnées=1;LIGNE(KcolC));LIGNE(Kdonnées));FREQUENCE(SI(Kdonnées=1;LIGNE(KcolC));LIGNE(Kdonnées)))

kdonnées: nom donné a ma plage($C$2:$C$9000)avec DECALER puisqu'elle s'agrandi tous les jours

merci

[gFZT82]

Bonjour jad73,

Essaie avec

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim Cel As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
   For Each Cel In Range("Y2:Y71")
      Cel.FormulaArray = "=SUMPRODUCT(FREQUENCY(IF(Kdonnées=RC[-1],ROW(KcolC)),ROW(Kdonnées)),FREQUENCY(IF(Kdonnées=RC[-1],ROW(KcolC)),ROW(Kdonnées)))"
   Next Cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

Cordialement.