calcul du nombre de cellules ayant la meme valeur et se suivant.

[rick51]

Bonjour la compagnie,

je souhaiterais compter dans une colonne à coté de mes valeurs, le nombre de cellules ayant la même valeur et se suivant.
Les cellules contiennent toutes des mots qui vont se répéter plusieurs fois dans la colonne à divers moments.
exemple:
colonne1(valeurs) colonne2(calcul nb cellules)
test----------------------3
test
test
essai---------------------2
essai
--------------------------1
test----------------------2
test
mot3---------------------4
mot3
mot3
mot3
.....

Merci par avance.

 

[porcinet82]

Re : calcul du nombre de cellules ayant la meme valeur et se suivant.

Salut,

En supposant que tes données soient en colonne A, le résultat sera en colonne B :

Sub test()
Dim i%, cpt%
Dim bool As Boolean
bool = True
For i = 1 To Range("A65536").End(xlUp).Row
    If bool = True Then first_lig = i
    If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
        cpt = cpt + 1
        bool = False
    Else
        cpt = cpt + 1
        Cells(first_lig, 2).Value = cpt
        bool = True
        cpt = 0
    End If
Next i
End Sub

@+

 

[abcd]

Re : calcul du nombre de cellules ayant la meme valeur et se suivant.

Bonjour,

Une proposition par formule en pièce jointe.

abcd

 

[Gael]

Re : calcul du nombre de cellules ayant la meme valeur et se suivant.

Bonjour Rick51, Salut Porcinet82,

Un essai ci-joint en formules.

@+

Gael

Edit: Salut Abcd, ta formule est nettement plus simple et j'aurais mieux fait de m'abstenir, mais ça marche quand même et le total est sur la première occurence.

 

[JeanMarie]

Re : calcul du nombre de cellules ayant la meme valeur et se suivant.

Bonjour Rick, Gael, abcd, Porcinet

Deux autres propositions, avec le résultat sur la première ligne de l'occurence.
Formule à valide par les touches Ctrl+Shift+Entrer

=SI(A2=A1;"";FREQUENCE(LIGNE(2:$14);SI(A2:A$14<>A2;LIGNE(2:$14)))-1)

En partant d'une plage des "valeurs" en A2:A14.


Et suivant l'exemple abcd, pour avoir la valeur sur la première occurence, il suffit de partir depuis la fin du tableau et de le remonter. Formule à mettre en D13, et faire un glisser vers le haut.

=SI(B12=B13;"";LIGNES(14:$14)-SOMME(D14:D$14))

@+Jean-Marie

 

[rick51]

Re : calcul du nombre de cellules ayant la meme valeur et se suivant.

C'est parfait.
Encore merci de vos excellentes réponses.