Compter les cellules entre deux cellules

[c0rentin59]

Bonjour à tous!

Cela faisait bien longtemps que je n'étai pas venu sur le forum, mais je me rend à l'évidence et je ne suis toujours pas autonome en VB...

Je me permets donc de vous solliciter.

J'explique mon problème:

Dans une macro, je souhaite affecter à une variable le nombre de cellules qui se trouve dans une colonne entre deux cellules composées des chiffres 410 et 411.

Pour faire plus simple, dans ma colonne A, j'ai plusieurs cellules ... puis vient la cellule avec 410 à l'intérieure ensuite d'autres cellules ... et enfin la cellule avec 411 à l'intérieur.

Je souhaite donc affecter le nombre de cellules qu'il y a entre les deux cellules citées précédement à ma variable "nb" ...

Cela me ferait gagner un temps précieux afin d'automatiser mes différentes boucles...

Si quelqu'un à une idée, je le remercie d'avance!

A bientôt!

 

[Guest]

Re : Compter les cellules entre deux cellules

Bonjour,

une petite fonction:

Function NbLignesEntre410_411() As Long
Dim lig410, lig411
lig410 = Application.Match(410, Range("A:A"), 0)
lig411 = Application.Match(411, Range("A:A"), 0)
If Not IsError(lig410) And Not IsError(lig411) Then
NbLignesEntre410_411 = Abs(lig410 - lig411) - 1
Else
NbLignesEntre410_411 = 0
End If
End Function

A+