compter les espaces

[papat]

Bonjour le forum,
je cherche à compter "facilement" les espaces (en nombre de courses) de la dernière apparition du chiffre considéré en colonne G.
ex:il s'est écoulé 4 courses depuis la dernière apparition du chiffre 5 en colonne G.
les courses " non chiffrées" en G ne comptent pas car ( plus de 15 partants).
des exemples "manuels" en colonne U et V.
Merci .

 

[job75]

Bonjour papat,

Merci pour votre MP, je n'avais pas vu ce fil.

Les VBAistes sont aux abonnés absents sur ce forum ?

Car ce n'est guère difficile, utilisez cette fonction VBA :

Function Nabsences(n, colonnes As Range)
'l'argument colonnes  force le recalcul en cas de modification des colonnes
Dim i, t, x$
i = Application.Match(n, colonnes.Columns(7), 0)
If Not IsNumeric(i) Then Nabsences = "": Exit Function
t = colonnes.Resize(i) 'matrice, plus rapide
n = 0: x = t(2, 1) & t(2, 2)
For i = 2 To UBound(t) - 1
  If t(i, 7) <> "" Then n = n + 1
  If t(i + 1, 1) & t(i + 1, 2) <> x Then
    If n Then Nabsences = Nabsences + 1
    n = 0: x = t(i + 1, 1) & t(i + 1, 2)
  End If
Next
End Function

Fichier (3) joint.

Nota : attention, votre fichier était en calcul Manuel !!! Je l'ai mis en Automatique.

A+

 

[job75]

Re,

La fonction du fichier (3) donne les bons résultats si le tableau A: P est trié correctement sur les colonnes A et B.

Mais si l'on trie le tableau autrement, par exemple sur d'autres colonnes, les résultats ne sont plus corrects.

Pour éviter cet inconvénient il suffit de placer ce code à la fin de la macro Comptage :

'---complément pour la fonction Nabsences en colonnes V:W---
w.Range("V2:W" & w.Rows.Count) = "" 'RAZ
i = Application.Min(Application.Max(1, w.[G:G]), 100)
w.[V2] = 1: w.[V2].Resize(i).DataSeries
w.[W2].Resize(i) = "=Nabsences(V2,A:G)"
w.[W2].Resize(i) = w.[W2].Resize(i).Value 'supprime les formules

Fichier (4).

Bonne nuit.