Compter groupe de cellules non vides dans une colonne

bonjour,

voici un exemple:

1,2

1,4

1,5

1,3

1,5

1,4

1,6

1,5

2,6

1,4

je voudrais la formule qui me donne 2512 mais pas en formule matricielle, plutôt un prog du type function...

merci de votre aide.

tim

Bonsoir,

Dans ton exemple c'est quoi 2512 ?

Claude

c'est le nombre de cellules non vides qui se suivent dans la colonne.il y en a d'abord 2 puis5 puis 1 puis 2.

si tu pouvais m'aider...

re,

Si tes chiffres sont colonne A

formule en B1 (par exemple)

=NBVAL(A:A)

en VBA

Range("b1") = WorksheetFunction.CountA(Range("a:a"))

Attention: çà te donne le nombre de cellules non vides et non la somme de celles-ci

Amicalement

Claude

merci de ta réponse mais c'est un comptage par groupe dont j'ai besoin.

il doit bien exister un moyen de compter le nombre de cellules qui se suivent dans une colonne a chaque fois qu'une cellule vide les séparent?

merci de ta réponse.

Bonjour,

Oui je vois, en fait le 2512 c'est 2;5;1;2

Une macro s'impose, envoie ta feuille pour la mettre au point

Claude

ok la voilà

fais pour le mieux.

Ok,

tu veux le résultat sous quelle forme

2512 (en un seul nombre) texte ou numérique ?

ou en ligne

2

5

1

2

précise ce point

Claude

fait le plus simple pour toi. si le résultat est en colonne c'est bien, s'il est dans une seule cellule je trouverais le moyen de l'afficher en colonne par la suite.

merci de ton aide.

re,

Vois si j'ai bien compris,

Sub Groupes()
Dim i%
''Macros par Claude Dubois pour "tim1" E-P le 14/01/2010
Application.ScreenUpdating = False
    For i = 2 To Range("A65536").End(xlUp).Row
        If Cells(i, 1) <> "" Then
            If Cells(i + 1, 1) <> "" Then
                        Range("e1") = Range("e1") + 1
                    Do While Cells(i + 1, 1) <> ""
                        Range("e1") = Range("e1") + 1
                        i = i + 1
                    Loop
                Range("d65536").End(xlUp)(2) = Range("e1")
                Range("e1").Clear
            Else
                Range("d65536").End(xlUp)(2) = 1
            End If
        End If
    Next i
End Sub

Amicalement

Claude

merci Claude, c'est très fort !

tu as réussi a trouver ce qu'il me faut.

merci mille fois.

Tim

Tim, prends le bon réflexe de solder tes postes