OVH Cloud OVH Cloud

Somme de cellules

2 réponses
Avatar
Desgranges
Bonjour,

Je souhaiterais faire la somme (via une macro) de cellules
dont la valeur est du texte pour comptabiliser le nombre
de produits. Est-ce possible ?
EX :

pomme pomme : 1
cerise cerise : 1
orange -----> orange : 2
orange

Merci.

2 réponses

Avatar
Jean-François Aubert
Salut Desgranges,

Sub chercheETcompte()
Dim c As Range, cnt As Integer

rep = Application.InputBox("selectionnez un produit", "comptage")

For Each c In [zn]
If c = rep Then cnt = cnt + 1
Next
MsgBox rep & " : " & cnt
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Desgranges" a écrit dans le message de
news:000c01c347be$5ed03e90$
Bonjour,

Je souhaiterais faire la somme (via une macro) de cellules
dont la valeur est du texte pour comptabiliser le nombre
de produits. Est-ce possible ?
EX :

pomme pomme : 1
cerise cerise : 1
orange -----> orange : 2
orange

Merci.


Avatar
Jean-François Aubert
re,
oublié de dire qu'il faut bien entendu nommer la plage de produit : zn

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Jean-François Aubert" <à a écrit dans le message de
news:3f0edc93$
Salut Desgranges,

Sub chercheETcompte()
Dim c As Range, cnt As Integer

rep = Application.InputBox("selectionnez un produit", "comptage")

For Each c In [zn]
If c = rep Then cnt = cnt + 1
Next
MsgBox rep & " : " & cnt
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Desgranges" a écrit dans le message de
news:000c01c347be$5ed03e90$
Bonjour,

Je souhaiterais faire la somme (via une macro) de cellules
dont la valeur est du texte pour comptabiliser le nombre
de produits. Est-ce possible ?
EX :

pomme pomme : 1
cerise cerise : 1
orange -----> orange : 2
orange

Merci.