Microsoft 365 formule Compteur qui s'incrémente au lancement de Macro

[looky62]

Hello la Teams,

Qd je lance ma macro, j'ai un compteur de colonne qui change hors Macro cad sur une colonne j'ai :

= NB.SI(Source!G:G;"O") il se décale d'une colonne et passe en = NB.SI(Source!H:H;"O") et à chaque fois que je relance la macro ça s'incrémente

Quel est la parade, meme avec des $ ça ne marche pas

Merci de votre éclairage

 

[sylvanu]

Ca marche, voir PJ.
Syntaxe =NBVALcolA()

 

[looky62]

Ca marche, voir PJ.
Syntaxe =NBVALcolA()

Y a un truc que je pige pas, je refais à l identique, en changeant les noms et ça bug!! je ne vois pas le pb!!
Il me met #Valeur !!!

 

[sylvanu]

Vous avez lu mon post #14 ? Ne dites pas Oui, ça m'étonnerait.
Dans une fonction, le retour doit être fait avec le nom de la fonction :
Ca, c'est FAUX :

Function Compter2O()
    Application.Volatile
    CompterOui = Application.CountIf(Sheets("Resultat").Range("G:G"), "O")
End Function

Le retour doit se faire par Compter2O = ....
Ca, c'est BON :

Function Compter2O()
    Application.Volatile
    Compter2O = Application.CountIf(Sheets("Resultat").Range("G:G"), "O")
End Function

Le retour doit se faire avec le même nom que la fonction.
D'ailleurs c'est écrit dans mon tuto :

Plus déstabilisant : le résultat de la fonction est dans le nom de la fonction. ( mais on s'y fait ! ) [Ligne B171]

 

[looky62]

Vous avez lu mon post #14 ? Ne dites pas Oui, ça m'étonnerait.
Dans une fonction, le retour doit être fait avec le nom de la fonction :
Ca, c'est FAUX :

Function Compter2O()
    Application.Volatile
    CompterOui = Application.CountIf(Sheets("Resultat").Range("G:G"), "O")
End Function

Le retour doit se faire par Compter2O = ....
Ca, c'est BON :

Function Compter2O()
    Application.Volatile
    Compter2O = Application.CountIf(Sheets("Resultat").Range("G:G"), "O")
End Function

Le retour doit se faire avec le même nom que la fonction.
D'ailleurs c'est écrit dans mon tuto :

Effectivement Au temps pour moi dslé, oui excusez moi j'ai mal lu la subtilité , au moins je saurais pr la prochaine fois!

 

[sylvanu]

Bonjour,
Pour le futur lecteur mettez comme solution retenue le post qui donne la solution et non votre réponse. Ca lui simplifiera la vie.