XL 2019 Indiquer l'écart en mois parmi une plage de lignes (25 000 lignes)

J

JHA

XLDnaute Barbatruc

• 24 Janvier 2022

• #2

Bonjour à tous,

Un début de piste avec Power Query

JHA

 

Pièces jointes

• Classeur1.xlsx

  22.4 KB · Affichages: 4

Vote positif 0 Vote négatif

T

tite schtroumpfette

XLDnaute Junior

• 24 Janvier 2022

• #3

Bonjour, je ne connais pas du tout Power Query. Pouvez-vous m'expliquer rapidement comment vous avez fait ce miracle ?
Je viens de découvrir le bouton "obtenir des données"

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 24 Janvier 2022

• #4

Bonjour à tous,

Tu mets les données en mode tableau structuré (ruban: insertion/tableau)
ensuite tu vas dans donnée/A partir de tableau ou d'une plage et power query va s'ouvrir.

Autrement, dans le fichier ci-joint, tu te mets dans le tableau vert de l'onglet "Nbre de mois" puis dans le ruban tu sélectionnes "requête" puis "modifier"
Sur la droite, tu as toutes les requêtes pour aboutir au résultat.

JHA

 

Pièces jointes

• Classeur1.xlsx

  22 KB · Affichages: 5

Vote positif 0 Vote négatif

T

tite schtroumpfette

XLDnaute Junior

• 28 Janvier 2022

• #5

JHA à dit:

Bonjour à tous,

Tu mets les données en mode tableau structuré (ruban: insertion/tableau)
ensuite tu vas dans donnée/A partir de tableau ou d'une plage et power query va s'ouvrir.

Autrement, dans le fichier ci-joint, tu te mets dans le tableau vert de l'onglet "Nbre de mois" puis dans le ruban tu sélectionnes "requête" puis "modifier"
Sur la droite, tu as toutes les requêtes pour aboutir au résultat.

JHA

Cliquez pour agrandir...

Bonjour,
Je suis désolée, je ne comprend pas ce que je dois faire une fois que j'ai affiché l'éditeur Power Qwery. Je ne sais pas sur quels menus appuyer pour configurer ce que tu as fait.
Saurais-tu me donner un pas à pas ?

J'ai essayé de remplacer les colonnes de ton fichier par celles d'origine du mien (en collant juste le texte) et ça ne marche pas, ça indique qu'il y a un problème de format de date "DataFormat.Error : Désolé... Nous ne pouvons pas procéder à la conversion en un nombre."

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2022

• #6

Bonjour tite schtroumpfette, JHA, le forum,

@JHA si en Essai!R6 on met 06/05/2020 le nombre de mois du site 1 reste à 1 après actualisation.

A+

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 28 Janvier 2022

• #7

Bonjour à tous,
Bonjour Job75,

Un essai avec une colonne supplémentaire et un TCD.

JHA

 

Pièces jointes

• Classeur1.xlsx

  210.9 KB · Affichages: 3

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 28 Janvier 2022

• #8

Bonjour à tous,
@job75

Dans le TCD, j'ai le même cas, il reste à 9 au lieu de 10.
Je n'ai pas trouvé le soucis.

JHA

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 28 Janvier 2022

• #9

Salut @tite schtroumpfette ,

J'ai fait quelques vidéo simples qui montrent comment employer PQ ...

En gros il y a 2 morceaux:
- Power Query (PQ) qui trnasforme les données
- Power Pivot qui permets la création de mesures qui seront montrées dans des TCD.

A+,

Merinos

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2022

• #10

Voyez le fichier joint et cette macro dans le code de la 2ème feuille :

VB:

Private Sub Worksheet_Activate()
Dim tablo, d As Object, i&, x$, dat, y$, n&, a, b, c()
With Sheets("Feuil1")
    If .FilterMode Then .ShowAllData
    tablo = .Range("H1:R" & .Range("H" & .Rows.Count).End(xlUp).Row) 'matrice, plus rapide
End With
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(tablo)
    x = CStr(tablo(i, 1))
    If x <> "" Then
        If Not d.exists(x) Then d(x) = ""
        dat = tablo(i, 11)
        If IsDate(dat) Then
            y = Month(dat) & Year(dat)
            If InStr(d(x), Chr(1) & y) = 0 Then d(x) = d(x) & Chr(1) & y
        End If
    End If
Next
n = d.Count
'---transposition---
If n Then
    a = d.keys
    b = d.items
    ReDim c(UBound(a), 1) 'base 0
    For i = 0 To UBound(a)
        c(i, 0) = a(i)
        c(i, 1) = UBound(Split(b(i), Chr(1)))
        If c(i, 1) < 1 Then c(i, 1) = ""
    Next
End If
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2]
    If n Then .Resize(n, 2) = c
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 2).ClearContents 'RAZ en dessous
End With
End Sub

Elle se déclenche quand on active la feuille.

Salut merinos.

 

Pièces jointes

• Classeur(1).xlsm

  22.6 KB · Affichages: 3

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 28 Janvier 2022

• #11

Salut @job75 ,

C'est toujours super ces macros qui s'activent en arrière plan.

J'aime

Mérinos

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Janvier 2022

• #12

Pour tester j'ai copié la plage H2:R20 sur 28500 lignes, durées d'exécution chez moi :

- avec 3 sites => 0,16 seconde

- avec 4500 sites => 0,21 seconde.

 

Vote positif 0 Vote négatif