Transcrire formule NB.SI en code VBA

Bonjour à toutes & tous,

J'ai une formule NB.Si que je désire transcrire en VBA, mais je ne sais pas trop comment m'y prendre.

La formule est la suivante:

Dans la cellule P16, j'ai cette formule

=NB.SI(B20:U31;N5)

Je veux compter combien de fois il y a la même donnée de " N5 " dans la plage " B20:U31 "

Je voudrai donc obtenir le même résultat en P16, mais par code VBA, afin de ne pas freiner le fichier.

Voila, c'est sans doute tout simple pour vous, mais pour moi mis à part la fonction " SI ", je n'ai jamais transcrit une formule excel en VBA.

Merci donc à vous de bien vouloir m'aider.

Cordialement

Dubdub22

bonjour
démarrer l'enregistreur automatique macro et faire manuellement l'opération tu aura un code que tu peux améliorer
si non : code à mettre dans feuil1 ou tu fera le comptage

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(16, 16) = WorksheetFunction.CountIf(Sheets("feuil1").Range("B20:U31"), Cells(5, 14)) End Sub

---

Bonjour,

Voir :
- Propriété Range.FormulaLocal
- Range.Formula, propriété
- Range.FormulaR1C1, propriété

utiliser Debug.Print à lieu de MsgBox pour récupérer la formule

Voir ensuite ces 2 liens :
- Ecrire une formule dans Excel à l'aide d'une procédure VBA
- Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

Salut.

Citation:

---

Envoyé par dubdub22

[...]

Je voudrai donc obtenir le même résultat en P16, mais par code VBA, afin de ne pas freiner le fichier.[...]

---

Utiliser du VBA (interprété, donc lent) est assez rarement plus rapide que d'utiliser des formules. Et utiliser Application.Countif(...) ne sera pas plus rapide que d'utiliser la fonction dans la feuille Excel.

Quel est donc ton besoin réel?

Bonjour à tous,

Merci de vos réponses, vous avez résolu mon souci.

Mon objectif est tout simplement d'automatiser les différentes manipes en une seule et ne pas effacer mes formules.

Merci à vous trois

Cordialement

Dubdub22