Transformer une formule en code VBA

Bonjour,

Je voudrais transformer SOMMEPROD(1/NB.SI(D2;D +infini )) en un code VBA, j'ai cherché partout je ne trouve pas

En fait je veux créer un compteur d'entrée différente pour la colonne D. Mais la colonne D n'a pas de limite définie.

Pour sélectionner toute la colonne jusqu'à la dernière valeur je fais :

Dim DernLigne As Long

DernLigne = Range("C" & Rows.Count).End(xlUp).Row

Range("C6").AutoFill Destination:=Range("C6:C" & DernLigne)

Selection.AutoFill Destination:=Range("C6:C" & DernLigne)

Mais pour le reste ...

Bonsoir,

On a besoin du concrèt. Pour le moment, on ne visualise pas ton problème. Possible de joindre le fichier ?

Bonjour,

Merci pour cette réactivité Raja, cependant j'ai trouvé la solution à mon problème... La nuit porte conseille n'est ce pas ?

Je partage mon code pour qui ça intéresserait:

Dim DernLigne As Long

Dim i As Long

DernLigne = Range("D" & Rows.Count).End(xlUp).Row

i = 2

Range("E1") = 1

While i < DernLigne + 1

If Not Range("D" & i) = Range("D" & (i + 1)) Then

Range("E1") = Range("E1") + 1

End If

i = i + 1

Wend

Mon but était de compter le nombre d'éléments différents dans une colonne (la D dans ce cas) .

Le résultat s'affiche dans la cellule E1.

Je suis nouveau sur VBA, j'en ai appris énormément avec ce forum ces 2 dernières semaines, merci encore !

Yvba