Formule affichant écart en cellules entre deux cellules d' une même colonne

[Henriett]

Bonjour,

Je cherche une formule ou macro affichant le nombre minimum de cellules comprises entre deux cellules ayant le même contenu et étant dans une colonne identique. J' ai joint un fichier expliquant un peu plus clairement mon problème.

Cordialement,

 

[tbft]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonsoir

Je suis venu, j'ai vue et j'ai rien compris
vini vidi vichi avec un doliprane..
serait t il possible d'avoir une autre explication

 

[Henriett]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonsoir,

Ce que je cherche, c' est une formule qui donne le nombre ( minimum ) de cellules comprises entre deux cellules. Ces deux cellules sont dans la même colonne et contiennent le même chiffre.

Voici un autre fichier ci-joint.

Cordialement,

 

[job75]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour Henriett, tbft,

Voyez cette fonction macro dans Module1 (Alt+F11) :

Function ECARTMIN(x As Variant, p As Variant) As Variant
Dim ub As Long, i As Long, j As Long
ECARTMIN = ""
p = Application.Transpose(p) 'matrice, plus rapide
ub = UBound(p)
For i = 1 To ub
  If p(i) = x Then
    For j = i + 1 To ub
      If p(j) = x Then
        ECARTMIN = Application.Min(IIf(ECARTMIN = "", j - i - 1, ECARTMIN), j - i - 1)
        i = j - 1
        Exit For
      End If
    Next
  End If
Next
End Function

Utilisée dans cette formule en D1 à tirer vers le bas :

=ECARTMIN(A1;A$1:A$16)

Fichier joint.

A+

 

[job75]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour le fil, le forum,

Une autre manière de faire avec 2 tableaux auxiliaires t1 et t2 :

Function ECARTMIN(x As Variant, p As Variant) As Variant
Dim ub&, t1&(), t2() As Variant, i&, n&
ECARTMIN = ""
p = Application.Transpose(p) 'matrice, plus rapide
ub = UBound(p)
ReDim t1(ub - 1): ReDim t2(ub - 1)
For i = 1 To ub
  If p(i) = x Then
    t1(n) = i
    If n Then t2(n - 1) = i - t1(n - 1) - 1
    n = n + 1
  End If
Next
If n > 1 Then ECARTMIN = Application.Min(t2)
End Function

Peut-être est-ce plus rapide.

Fichier (2).

A+

 

[job75]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Re,

J'ai testé les 2 fonctions avec une boucle de 100 000 itérations :

- version (1) => 16 secondes

- version (2) => 12 secondes

Donc avec les tableaux c'est plus rapide.

A+

 

[JBOBO]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour,

Un essai par formule, en B2, à tirer vers le bas :

=SI(A2<>"";"";SI(A3<>"";NB.VIDE($A$1:A2)-SOMME($B$1:B1);""))

 

[job75]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour JBOBO,

C'est une méthode intéressante si toutes les valeurs en colonne A sont les mêmes.

Autrement pas évident de l'adapter.

A+

 

[Henriett]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour,

JBOBO, j' ai essayé ta formule, mais ça n' a pas l' air de marcher.

Job75, j' ai testé ta formule dans une nouvelle feuille et avec de nouveaux chiffres, mais il s' affiche : ?NOM#
J' ai joint le fichier.

Cordialement,

 

[job75]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Re,

Allons Henriett, s'il n'y a pas le code VBA, comment voulez-vous que ça marche ???

Votre fichier complété avec la version (2) de la macro dans Module1 (Alt+F11).

A+

 

[Henriett]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonsoir,

Merci job75. C' est parfait.

Bonne soirée à tous,

 

[Henriett]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Re,

Et si au lieu d' avoir l' écart minimum, je voulais l' écart normal ?

 

[Henriett]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour,

Voici un autre fichier expliquant ce que j' aimerais obtenir.

 

[job75]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour Henriett,

Là pas besoin de VBA, formule en D1 :

=SI(NB.SI(A2:A$21;A1);EQUIV(A1;A2:A$21;0)-1;"")

à tirer vers le bas.

A+

 

[Henriett]

Re : Formule affichant écart en cellules entre deux cellules d' une même colonne

Bonjour,

Merci beaucoup job75

Bonne après-midi à tous,