Nombre de lignes+VBA

[Ch3ayba]

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]

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]

Re : Nombre de lignes+VBA

Bonjour Ch3ayba,

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

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]

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