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

looky62 · 3 Novembre 2022

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 · 7 Novembre 2022

Bonjour,

L'erreur vient du fait que le retour doit se faire avec le nom de la fonction.
Donc ici, cela aurait du être "Compter2=..." et non "Compter=..."

Pour rendre l'exécution automatique comme n'importe quelle fonction XL, il faut rajouter Application.volatile au début.

Voir PJ.
J'ai renommé les fonctions pour être plus "explicite"

VB:

Function CompterOui()
    Application.Volatile
    CompterOui = Application.CountIf(Sheets("Source").Range("G:G"), "O")
End Function
Function CompterNon()
    Application.Volatile
    CompterNon = Application.CountIf(Sheets("Source").Range("G:G"), "N")
End Function

sylvanu · 3 Novembre 2022

Bonjour Looky,
Le plus simple est de remplacer cette formule par une fonction VBA qui est insensible à l'insertion de colonne :

VB:

Function Compte()
    Compte = Application.CountIf(Range("G:G"), "O")
End Function

La syntaxe dans la feuille est alors : =Compte()

Compte Supprimé 979 · 4 Novembre 2022

Bonjour looky62 @sylvanu

Sans passer par VBA et si j'ai bien compris

VB:

= NB.SI(INDIRECT("Source!G:G");"O")

A+

looky62 · 4 Novembre 2022

BrunoM45 à dit:
Bonjour looky62 @sylvanu

Sans passer par VBA et si j'ai bien compris

VB:

= NB.SI(INDIRECT("Source!G:G");"O")

A+

Hello BrunoM45

super oui c mieux ss vba pr moi, par contre qd je fais sur un NB SI ça va , par contre sur un NB VAL il me compte toute mes ligne!!

=NBVAL(INDIRECT(Source!A:A)-1) là il me compte tt le tableau!!
Alors =NBVAL(Source!A:A)-1) et là me compte bien , mais s'incrémente!!

sylvanu · 4 Novembre 2022

Bonjour,
Il vous manque des guillemets :

VB:

=NBVAL(INDIRECT("Source!A:A")-1)

Le but est d'avoir la plage en tant que chaine de caractères, donc XL n'y touche pas quand vous insérez une colonne.

looky62 à dit:
super oui c mieux ss vba pr moi,

Par curiosité, pourquoi ?
Si vous avez déjà du VBA, c'était une solution qui me paraissait simple.

looky62 · 4 Novembre 2022

sylvanu à dit:
Bonjour,
Il vous manque des guillemets :

VB:

=NBVAL(INDIRECT("Source!A:A")-1)

Le but est d'avoir la plage en tant que chaine de caractères, donc XL n'y touche pas quand vous insérez une colonne.

Par curiosité, pourquoi ?
Si vous avez déjà du VBA, c'était une solution qui me paraissait simple.

ben je galere un peu en VBA, j'ai mis un onglet en cpt où je fais mes calculs mais ça bug, ensuite j'avais fait une macro 4 pr la mise en forme de mes compteurs, si tu peux me montrer avec la fonction compte() au moins je saurai pr la prochaine fois !
Merci encore pr ton aide précieuse , je monte en compétence grace a vous !

sylvanu · 4 Novembre 2022

Bonsoir,
J'ai mis ces deux fonctions perso dans CPT, ne sachant exactement où mettre les formules.
Avec ces deux fonctions perso que j'ai mis dans le module Fonctions :

VB:

Function Compter()
    Compter = Application.CountIf(Range("G:G"), "O")
End Function
Function NBVALcolA()
    NBVALcolA = Application.CountA(Range("A:A"))
End Function

Un petit tuto sur les fonctions perso :

Fonctions personnelles : Utilité, Simplicité et Méthode

Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...

excel-downloads.com

looky62 · 4 Novembre 2022

sylvanu à dit:
Bonsoir,
J'ai mis ces deux fonctions perso dans CPT, ne sachant exactement où mettre les formules.
Avec ces deux fonctions perso que j'ai mis dans le module Fonctions :

VB:

Function Compter() Compter = Application.CountIf(Range("G:G"), "O") End Function Function NBVALcolA() NBVALcolA = Application.CountA(Range("A:A")) End Function

Un petit tuto sur les fonctions perso :

Fonctions personnelles : Utilité, Simplicité et Méthode

Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...

excel-downloads.com

Merci par contre si je veux mettre ma fonction dans un onglet compteur, afin de faire mes calculs et les reporter vers un autre onglet c sous quel forme que je cherche par exemple ici Source

Function Compter()
Compter = Application.CountIf(Range("Source""G:G"), "O")

End Function

sylvanu · 4 Novembre 2022

Bonsoir,
Non, vous faites comme en VBA :

VB:

Function Compter()
    Compter = Application.CountIf(Sheets("Source").Range("G:G"), "O")
End Function

Une variante est de passer la plage en paramètre avec :

Code:

Function Compter(Plage)
    Compter = Application.CountIf(Plage, "O")
End Function

Et dans la feuille XL, la syntaxe devient :
=Compter(Source!G:G)

job75 · 4 Novembre 2022

Bonsoir looky62, sylvanu, Bruno,

sylvanu à dit:
Une variante est de passer la plage en paramètre avec :

Code:

Function Compter(Plage) Compter = Application.CountIf(Plage, "O") End Function

Et dans la feuille XL, la syntaxe devient :
=Compter(Source!G:G)

Cette variante ne va pas car la macro dont parle le post #1 fera passer G:G à H:H.

A+

sylvanu · 4 Novembre 2022

Bonjour Job,
Exact, j'ai bien inséré des feuilles pour voir ... mai pas sur la bonne feuille.
On peut faire :

VB:

Function Compter(F, N)
    Compter = Application.CountIf(Sheets(F).Columns(N), "O")
End Function

Syntaxe : =Compter("Source";7) G étant la 7eme colonne.

looky62 · 5 Novembre 2022

sylvanu à dit:
Bonsoir,
Non, vous faites comme en VBA :

VB:

Function Compter() Compter = Application.CountIf(Sheets("Source").Range("G:G"), "O") End Function

Une variante est de passer la plage en paramètre avec :

Code:

Function Compter(Plage) Compter = Application.CountIf(Plage, "O") End Function

Et dans la feuille XL, la syntaxe devient :
=Compter(Source!G:G)

Super merci je teste ça lundi , merci encore pr cette montée en compétence

looky62 · 7 Novembre 2022

looky62 à dit:
Super merci je teste ça lundi , merci encore pr cette montée en compétencE

Je patauge un peu ds les fonctions, j'ai sous l'onglet CPT l'exemple que je souhaite mettre en place, par contre est ce la fonction se lance uniquement qd on l'appel comme une macro ou est ce automatique ? jsp etre claire

sylvanu · 7 Novembre 2022

Bonjour,

L'erreur vient du fait que le retour doit se faire avec le nom de la fonction.
Donc ici, cela aurait du être "Compter2=..." et non "Compter=..."

Pour rendre l'exécution automatique comme n'importe quelle fonction XL, il faut rajouter Application.volatile au début.

Voir PJ.
J'ai renommé les fonctions pour être plus "explicite"

VB:

Function CompterOui()
    Application.Volatile
    CompterOui = Application.CountIf(Sheets("Source").Range("G:G"), "O")
End Function
Function CompterNon()
    Application.Volatile
    CompterNon = Application.CountIf(Sheets("Source").Range("G:G"), "N")
End Function

looky62 · 7 Novembre 2022

Merci j'ai bien compris la function,

En assimilant le meme principe pour coimpter le nombre total de valeur!! je ne vois pas l'erreur

Function NBVALcolA()
Application.Volatile
NBVALcolA = Application.CountA(Sheets("Source").Range("A:A"))
End Function

syntaxe =@NBVALcolA

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

looky62

XLDnaute Occasionnel

sylvanu

sylvanu

XLDnaute Barbatruc

Compte Supprimé 979

Guest

looky62

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

looky62

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Fonctions personnelles : Utilité, Simplicité et Méthode

Pièces jointes

looky62

XLDnaute Occasionnel

Fonctions personnelles : Utilité, Simplicité et Méthode

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

looky62

XLDnaute Occasionnel

looky62

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

looky62

XLDnaute Occasionnel

Discussions similaires