Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Solid_Pliskin · 13 Juin 2011

Bonjour,

J'ai un tableau de valeurs assez simple (les valeurs sont soient "3", "1" ou "0") et j'aimerai connaître le nombre de la plus grande série de valeurs identiques et consécutives par ligne.

Par exemple:

0 | 1 | 1 | 1| 1| 1 | 3| 0| 1 | 0 | 3 | 1 | 1 | 0

Pour la plus grande série consécutive de "1", le nombre est 5.

1| 3 | 3 | 1 | 1 | 0 | 3 | 3 | 3 | 3 | 1 | 0

Pour la plus grande série consécutive de "3", le nombre est 4.

Etc.

Dans le fichier joint, vous trouverez de plus simples explications.

Merci

phlaurent55 · 13 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonjour Solid........, et bienvenue sur le forum

ton fichier en retour

à+
Philippe

Solid_Pliskin · 13 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Est-on forcément obligé de passer par une macro?

Sinon, merci ca fonctionne

Robert · 13 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonjour le fil, bonjour le forum,

J'ai planché dur ton problème (par macro aussi) mais quand je vois la simplicité et l'efficacité de la solution de Philippe je ne t'envoie même pas mon usine à gaz...

Solid_Pliskin · 13 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

loul, merci quand même Robert

phlaurent55 · 13 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Re,

Solid_Pliskin à dit:
Est-on forcément obligé de passer par une macro?

Sinon, merci ca fonctionne

je crains que Oui !
j'ai tenté d'essayer de commencer à réfléchir à une solution par formule mais j'ai vite abandonné

sinon attentre qu'un "formuliste" passe par ici

à+
Philippe

david84 · 13 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonsoir,
ci-joint une autre proposition VBA en utilisant des tableaux VBA :

Code:

Sub test()
Dim Plage, LigneMax, LigneMax2, i&, j&, k&, temp1, temp2, Nb&
Set Plage = [B3:AM22]
Set LigneMax = [AN2:AP2]
For i = 1 To LigneMax.Columns.Count
    For j = 1 To Plage.Rows.Count
        For k = 1 To Plage.Columns.Count
            If Plage(j, k) = LigneMax(1, i) Then
                Nb = Nb + 1: temp1 = Nb
                If temp2 < temp1 Then temp2 = temp1
            Else
                Nb = 0
            End If
        Next k
        Dim tabl()
        ReDim Preserve tabl(1 To Plage.Rows.Count, 1 To LigneMax.Columns.Count)
        tabl(j, i) = temp2: temp2 = 0: Nb = 0
    Next j
Next i
Set LigneMax2 = [AQ2:AS2]
For i = 1 To LigneMax2.Columns.Count
    For j = 1 To Plage.Rows.Count
        For k = 1 To Plage.Columns.Count
            If Plage(j, k) <> LigneMax2(1, i) Then
                Nb = Nb + 1: temp1 = Nb
                If temp2 < temp1 Then temp2 = temp1
            Else
                Nb = 0
            End If
        Next k
        Dim tabl2()
        ReDim Preserve tabl2(1 To Plage.Rows.Count, 1 To LigneMax2.Columns.Count)
        tabl2(j, i) = temp2: temp2 = 0: Nb = 0
    Next j
Next i
[AN3].Resize(Plage.Rows.Count, LigneMax.Columns.Count) = tabl
[AQ3].Resize(Plage.Rows.Count, LigneMax2.Columns.Count) = tabl2
End Sub

A+

ROGER2327 · 14 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonsoir à tous

Une fonction personnalisée ?

VB:

Function compte(r As Range, s$, Optional tf As Boolean = True) Application.Volatile 'selon le besoin… Dim tmp&, oCel As Range For Each oCel In r tmp = (Not IsEmpty(oCel)) * (tmp + 1) * ((CStr(oCel.Value) = s) = tf) compte = compte - (tmp > compte) Next End Function

Syntaxe :
Compter les valeurs égales à "3" consécutives :

Code:

=compte($C5:$AN5;3)

ou

Code:

=compte($C5:$AN5;3;1)

ou

Code:

=compte($C5:$AN5;3;VRAI)

Compter les valeurs différentes de "3" consécutives :

Code:

=compte($C5:$AN5;3;0)

ou

Code:

=compte($C5:$AN5;3;FAUX)

La fonction ne confond pas les cellules vides avec les cellules non vides contenant zéro.

Application dans le classeur joint. (Merci à phlaurent55 pour la version .xls du classeur, fort utile aux demeurés dans mon genre qui croient qu'on peut encore faire des choses avec Excel2003.)

ROGER2327
#5343

Vendredi 27 Merdre 138 (Saints Courts et Longs, gendarmes - fête Suprême Quarte)
25 Prairial An CCXIX, 9,5157h - tanche
2011-W24-1T22:50:16Z

ROGER2327 · 14 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Suite…

Si on préfère une procédure à une formule, faisons court :

VB:

Sub test2() Dim i&, r As Range, sDat(0 To 21, 0 To 5), x() x = Array(Array(3, 1, 0, 0, 3, 1), Array(1, 1, 1, 0, 0, 0)) With [C5:AN24] '[B3:AM22] dans le fichier 111.xls de phlaurent55 For Each r In .Rows For i = 0 To 5: sDat(r.Row - .Row, i) = compte(r, CStr(x(0)(i)), CBool(x(1)(i))): Next Next .Offset(0, .Columns.Count).Resize(, 1 + UBound(sDat, 2)).Value = sDat End With End Sub Private Function compte(r As Range, s$, Optional tf As Boolean = True) Dim tmp&, oCel As Range For Each oCel In r.Cells tmp = (Not IsEmpty(oCel)) * (tmp + 1) * ((CStr(oCel.Value) = s) = tf) compte = compte - (tmp > compte) Next End Function

ROGER2327
#5344

Samedi 28 Merdre 138 (Saint Raca, cagot - fête Suprême Quarte)
26 Prairial An CCXIX, 0,3301h - jasmin
2011-W24-2T00:47:32Z

Solid_Pliskin · 14 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Merci Roger

J'ai opté pour ta solution avec la fonction personnalisée, car je me débrouille mieux pour l'intégrer dans mon fichier.

Ca fonctionne trés bien.

Merci a vous tous!

KenDev · 14 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonjour le forum,

Ci joint le classeur sans vba. Une solution très simple avec par contre une feuille annexe contenant 6 tableaux... Juste au cas ou le non-vba deviendrait un impératif, les solutions précédentes sont bien meilleures.

J'avais une solution un peu pus élégante avec un seul tableau annexe pour obtenir les colonnes AN, AO, AP mais comme je n'ai pas l'équivalent pour les colonnes AQ, AR et AS est ce que ça vaut bien le coup ?

Sont utilisés SI et MAX. (Le premier choix avec un tableau pour 3 colonnes de résultats utilisait SI, MAX, NB.SI et GRANDE.VALEUR). Cordialement

KD

ROGER2327 · 14 Juin 2011

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonjour à tous

Sur l'idée de KenDev, une autre réalisation.

(Compte tenu du poids de ces solutions, c'est juste pour le plaisir, car l'intérêt pratique reste à prouver.)

ROGER2327
#5345

Samedi 28 Merdre 138 (Saint Raca, cagot - fête Suprême Quarte)
26 Prairial An CCXIX, 4,2799h - jasmin
2011-W24-2T10:16:18Z

Ludoboss · 29 Janvier 2014

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

phlaurent55 à dit:
Bonjour Solid........, et bienvenue sur le forum

ton fichier en retour

à+
Philippe

Bonjour à tout le forum,

je déterre un peu la discussion car j'ai beau essayer de modifier la macro de phlaurent55 qui est parfaite, je n'y arrive pas. Je m'explique:
La macro du fichier 111 compte les récurrences identiques consécutives sur la même ligne, et je souhaiterais la modifier pour compter les récurrences identiques consécutives du tableau entier !! (de B3 à AM22 dans cet exemple, comme un scan de gauche à droite et de haut en bas)

Merci pour votre aide!

Ludoboss · 31 Janvier 2014

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Je me permets un petit up pour savoir si quelqu'un avait une idée, une piste...

Merci d'avance à tous ceux qui se pencheront sur cette problématique!!

mapomme · 1 Février 2014

Re : Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Bonjour Ludoboss,

Un essai par formules matricielles (à valider par Ctrl+Maj+Entrée).

Formule matricielle dans la cellule AW8 (à copier/tirer jusqu'en AW10):

Code:

=MAX(FREQUENCE(SI(Tablo=$AU8;COLONNE(Tablo)+(LIGNE(Tablo)-LIGNE($B$4))*COLONNES(Tablo));SI(Tablo<>$AU8;COLONNE(Tablo)+(LIGNE(Tablo)-LIGNE($B$4))*COLONNES(Tablo))))

Formule matricielle dans la cellule AW12 (à copier/tirer jusqu'en AW14):

Code:

=MAX(FREQUENCE(SI(Tablo<>$AU12;COLONNE(Tablo)+(LIGNE(Tablo)-LIGNE($B$4))*COLONNES(Tablo)); SI(Tablo=$AU12;COLONNE(Tablo) +(LIGNE(Tablo)-LIGNE($B$4))*COLONNES(Tablo))))

nota: les deux formules ne diffèrent que par l'interversion des deux comparaisons = et <>
nota: la formule doit aussi fonctionner avec des valeurs texte au lieu de valeurs numériques

Pour choisir les valeurs à afficher, utiliser les listes de choix des cellules Q1 à S1.

Le tableau des valeurs a été nommé: Tablo

Formule matricielle: Elle doit être validée par la combinaison des touches Ctrl+Maj+Entrée au lieu de la seule touche Entrée comme une formule classique.
Si la validation matricielle est correcte, alors Excel entoure la formule d'accolades {=.......}.
Chaque fois que cette formule sera modifiée, la validation devra se faire par Ctrl+Maj+Entrée. Les accolades apparaissent à la validation et ne doivent pas être saisies au clavier.

Distinguer le nombre de valeurs consécutives (série) dans un tableau de données

Solid_Pliskin

XLDnaute Nouveau

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

Solid_Pliskin

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

Solid_Pliskin

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

david84

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Solid_Pliskin

XLDnaute Nouveau

KenDev

XLDnaute Impliqué

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Ludoboss

XLDnaute Nouveau

Ludoboss

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires