macro : somme de cellules identique dans une colonne

[CHTING]

Bonjour à toutes et à tous,

Je penses que ma question est simpliste pour certains d'entre vous mais je bloque depuis un moment dessus.
Je souhaite trouver une macro qui me permet de compte le nombre de cellules identiques (possédant la valeur "X") et de mettre le résultat dans une cellule.
En exemple nombre de X dans la colonne A et résultat dans la cellule B1

Merci pour votre aide.

Bien cordialement

 

[R@chid]

Re : macro : somme de cellules identique dans une colonne

Bonjour,
pourquoi une macro ??
en B1 :

=NB.SI(A:A;"X")

@ + +

 

[CHTING]

Re : macro : somme de cellules identique dans une colonne

Bonjour R@chid,

parceque je veux partager mon fichier avec des personnes et que, d'expérience, le partage de formule est souvent problématique.
De plus, cete petite macro s'integrera dans un programme vba beaucoup plus important et je ne veux pas mélanger les deux.

Merci de ta réponse

 

[Staple1600]

Re : macro : somme de cellules identique dans une colonne

Bonjoir à tous

CHTING
Si macro, tu veux
Saisir la formule de R@chid en laissant tourner l’enregistreur de macros
Et alors macro, tu auras

 

[JCGL]

Re : macro : somme de cellules identique dans une colonne

Bonjour à tous,
Salut Rachid,

Peux-tu essayer avec :

Range("B1") = Application.WorksheetFunction.CountIf(Columns(1), "x")

A+ à tous

Edition : Salut l'Agrafe

 

[Staple1600]

Re : macro : somme de cellules identique dans une colonne

Bonjour JCGL


Tout pareil

'La macro 1 est obtenue avec l’enregistreur de macro
Sub Macro1()
Range("B1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-1],""X"")"
End Sub
'de la macro 1 je déduis la 2
Sub Macro2()
Range("B1") = "=COUNTIF(C[-1],""X"")"
End Sub
'de la macro 1 et 2, je déduis la 3
Sub Macro3()
[B1] = Application.CountIf(Columns(1), "X")
End Sub

Et pour être logique avec moi-même, je me permet cette dernière

Sub Macro4()
[B1] = Application.CountIf([A:A], "X")
End Sub

 

[CHTING]

Re : macro : somme de cellules identique dans une colonne

Merci à tous pour vos réponses.

Cordialement