Rapport de message :*
 

Re: modifier formule dans macro

Titre du sujet : Re: modifier formule dans macro
par Eric le 07/06/2012 12:15:48

Bonjour à tous
Bonjour jad73

Si j'ai compris, je te propose ceci :

Option Explicit

Dim a As Integer
Dim b As Integer
Dim c As Integer

Sub modifie_fonction()

Range("D1") = Application.WorksheetFunction.CountIf(Range("b" & (2 + a) & ":f" & (41 + b)), Range("a" & (6 + c)))

a = a + 1
b = b + 1
c = c + 1

End Sub

Il te reste à l'adapter.
Au lieu d'une formule dans D1, tu as le résultat.

Eric