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

porcinet82

XLDnaute Barbatruc

• 22 Décembre 2008

• #2

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 :

Code:

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

@+

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 22 Décembre 2008

• #3

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

Bonjour,

Une proposition par formule en pièce jointe.

abcd

 

Pièces jointes

• rick51.zip

  3 KB · Affichages: 320
• rick51.zip

  3 KB · Affichages: 325
• rick51.zip

  3 KB · Affichages: 319

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 22 Décembre 2008

• #4

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. 😱

 

Pièces jointes

• Rick_V1.xls

  15.5 KB · Affichages: 307

Dernière édition: 22 Décembre 2008

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 22 Décembre 2008

• #5

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

Code:

=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.

Code:

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

@+Jean-Marie

 

Vote positif 0 Vote négatif

R

rick51

XLDnaute Nouveau

• 23 Décembre 2008

• #6

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

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

 

Vote positif 0 Vote négatif