Nombre de lignes+VBA

Ch3ayba · 27 Mai 2010

Nombre de lignes +vba

Bonjour,

J’ai besoin de votre aide si c’est possible,
Je veux mettre en place une macro qui me permet de compter le nombre de lignes qui sont entre deux cellules qui ont le même nom (Voir l’exemple ci-joint).
Je crois que ça peut se faire avec une fonction sommeprod. mais le problème c'est que je ne la maitrise pas vraiment
Merci d’avance pour votre aide.

ROGER2327 · 27 Mai 2010

Re : Nombre de lignes+VBA

Bonjour Ch3ayba

Voyez une proposition dans le classeur joint.

ROGER2327
#3559

Mardi 10 Merdre 137 (Saint Barbapoux, amant, SQ)
8 Prairial An CCXVIII
2010-W21-4T08:16:41Z

bqtr · 27 Mai 2010

Re : Nombre de lignes+VBA

Bonjour Ch3ayba,

Par macro voici un exemple (à condition que le nom soit toujours le même).

Code:

Sub Nblign()

Dim Tablo, k As Long, Rlt(), x As Long

Tablo = Range("A1:B" & Range("A65536").End(xlUp).Row).Value

For k = 1 To UBound(Tablo, 1)
  If Tablo(k, 2) = "Result" Then
    ReDim Preserve Rlt(x)
    Rlt(x) = k
    x = x + 1
  End If
Next

For k = 0 To UBound(Rlt)
 If k <> UBound(Rlt) Then Cells(Rlt(k), 3) = (Rlt(k + 1) - Rlt(k)) - 1
Next

End Sub

NB : la feuille active doit être la feuille où se trouve les données, sinon il faudra adapter le code.

A+

Ch3ayba · 27 Mai 2010

Re : Nombre de lignes+VBA

Merci beaucoup pour votre aide les deux solution me conviennent je vais tester sur mon fichier d'origine et je vous tienderai au courant merci beaucoup

Nombre de lignes+VBA

Ch3ayba

XLDnaute Junior

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

bqtr

XLDnaute Accro

Ch3ayba

XLDnaute Junior

Discussions similaires