XL 2021 Grand écart suite

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Septembre 2024

• #2

Bonjour Baboafric,
En attendant la formule magique de MaPomme, je récidive avec ma macro bidouillée :

VB:

Sub compter()
[F2:P10000].ClearContents
Application.ScreenUpdating = False
T = Range("B3:D" & [A1000].End(xlUp).Row)
For u = 1 To 10
    Ligne = 2: Colonne = u + 5: Ecart = 0
    For i = 1 To UBound(T)
        Ecart = Ecart + 1
        If T(i, 1) = u Or T(i, 2) = u Or T(i, 3) = u Then
            If Ligne > 2 Then Cells(Ligne, Colonne) = Ecart
            Ecart = 0
            Ligne = Ligne + 1
        End If
    Next i
Next u
End Sub

 

Pièces jointes

• Les écarts suite.xlsm

  34.9 KB · Affichages: 4

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 22 Septembre 2024

• #3

Sylvanu tu es le plus fort et en plus tu ne te reposes jamais.
Super la macro mais qu'est ce que je dois changer si j'ai 2500 lignes et 7 colonnes de nombres.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Septembre 2024

• #4

Re,
En PJ ça marche quelque soient le nombre de lignes et de colonnes. ( la PJ a 2500 lignes et 8 colonnes ) Le résultat est en Feuil2.
Par contre le temps est évidemment de plus en plus long.
A tester.

NB: Par contre la prochaine fois fournissez directement les bonnes hypothèses, car là on a eu 1 colonne 200 lignes, puis 3 colonnes, puis 2500 lignes de 7 colonnes. Donc à chaque fois on refait le travail.

 

Pièces jointes

• Les écarts suite V2.xlsm

  162 KB · Affichages: 1

Dernière édition: 22 Septembre 2024

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Septembre 2024

• #5

Re,
Nouvelle version infiniment plus rapide.

 

Pièces jointes

• Les écarts suite V3.xlsm

  223.1 KB · Affichages: 8

Vote positif 0 Vote négatif

B

bobafric

XLDnaute Occasionnel

• 22 Septembre 2024

• #6

Merci Sylvanu je vais tenir compte de tes remarques bonne journée

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2024

• #7

sylvanu à dit:

En attendant la formule magique de MaPomme, je récidive avec ma macro bidouillée :

Cliquez pour agrandir...

Là, je sèche un peu...

 

Vote positif 0 Vote négatif

Solution

B

bobafric

XLDnaute Occasionnel

• 24 Septembre 2024

• #8

Salut Sylvanu ta macro est nickel je l'ai reproduite sur mon fichier 5colonnes et 750 lignes, Merci encore

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2024

• #9

Bonjour @bobafric , @sylvanu ,

Avec des formules. On utilise une colonne auxiliaire pour concaténer chaque ligne. C'est la formule en J3 à recopier vers le bas (peut-être avec validation matricielle suivant la version d'Excel) :

VB:

=CONCAT("-"&B3:F3&"-")

Ensuite en K3, une formule à recopier vers le bas (peut-être avec validation matricielle suivant la version d'Excel) :

VB:

=SIERREUR(PETITE.VALEUR(SI(ESTNUM(TROUVE("-"&K$1&"-";$J$3:$J$999));LIGNE($J$3:$J$999);"");LIGNES(A$1:A2))-PETITE.VALEUR(SI(ESTNUM(TROUVE("-"&K$1&"-";$J$3:$J$999));LIGNE($J$3:$J$999);"");LIGNES(A$1:A1));"")

 

Pièces jointes

• bobafric- écart apparition- v2.xlsx

  222.7 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2024

• #10

Bonjour Mapomme,
Avec les évolutions permanentes de Bobafric, comme par ex :

bobafric à dit:

si j'ai 2500 lignes et 7 colonnes de nombres.

Cliquez pour agrandir...

Une approche par formule sera à reprendre à chaque évolution.
C'est plus lourd qu'une macro auto adaptative.
... même si vos formules sont magiques.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 24 Septembre 2024

• #11

Bonjour @sylvanu ,

sylvanu à dit:

Une approche par formule sera à reprendre à chaque évolution.
C'est plus lourd qu'une macro auto adaptative.

Cliquez pour agrandir...

Je le sais hélas mais la solution avec macro était déjà accaparée par un triste individu sylvicole voire arboricole (dont je tairai le nom) . Peut-être qu'avec O365 il y aurait une solution dynamique plus élégante mais je n'ai pas cherché.

 

Dernière édition: 24 Septembre 2024

Vote positif 0 Vote négatif