XL 2019 Calcul de la moyenne et étendue sur plusieurs lignes

[Hanjen]

Bonjour tous,

Je souhaite calculer par le biais d'une macro, la moyenne et l'étendue de 3 valeurs situées dans des cellules qui ne se suivent pas.
Les valeurs sont récupérées dans le feuille 1 et les résultats sont mis en Feuil2.
J'ai préparé un fichier qui représente mon besoin, j'ai fais les calcul avec Excel pour que vous ayez une idée.

Merci pour votre aide

 

[herve62]

Bonjour
Juste pour voir est ce genre là ?, juste 1 calcul : clic bouton moyenne pour test
ensuite faut adapter , c'est juste pour la fonction

 

[sylvanu]

Bonjour Hanjen,
Un essai en PJ avec :

Sub Calcul_moyenne_etendue()
    Sheets("Final").Range("A5:E" & Sheets("Final").Range("A65500").End(xlUp).Row).ClearContents
    Application.ScreenUpdating = False
    DL = Sheets("BDD").Range("A65500").End(xlUp).Row
    Set F = Sheets("BDD")
    With Sheets("Final")
        .Activate
        For L = 5 To DL
            .Cells(L, "A") = F.Cells(L, "A")
            .Cells(L, "B") = (F.Cells(L, "B") + F.Cells(L, "H") + F.Cells(L, "N")) / 3
            .Cells(L, "C") = (F.Cells(L, "D") + F.Cells(L, "J") + F.Cells(L, "P")) / 3
            .Cells(L, "D") = (F.Cells(L, "E") + F.Cells(L, "K") + F.Cells(L, "Q")) / 3
            .Cells(L, "E") = Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
                            - Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q"))
        Next L
    End With
End Sub

 

[Hanjen]

Bonjour Hanjen,
Un essai en PJ avec :

Sub Calcul_moyenne_etendue()
    Sheets("Final").Range("A5:E" & Sheets("Final").Range("A65500").End(xlUp).Row).ClearContents
    Application.ScreenUpdating = False
    DL = Sheets("BDD").Range("A65500").End(xlUp).Row
    Set F = Sheets("BDD")
    With Sheets("Final")
        .Activate
        For L = 5 To DL
            .Cells(L, "A") = F.Cells(L, "A")
            .Cells(L, "B") = (F.Cells(L, "B") + F.Cells(L, "H") + F.Cells(L, "N")) / 3
            .Cells(L, "C") = (F.Cells(L, "D") + F.Cells(L, "J") + F.Cells(L, "P")) / 3
            .Cells(L, "D") = (F.Cells(L, "E") + F.Cells(L, "K") + F.Cells(L, "Q")) / 3
            .Cells(L, "E") = Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
                            - Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q"))
        Next L
    End With
End Sub

Je viens de l'adapter à mon programme il fonctionne bien merci
Je souhaite mettre la colonne E en pourcentage j'ai essayé :
.Cells(i,"E").Numerformat="0.00%": . Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
- Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q"))
Ca ne marche pas...je ne sais pas où placer le "0.0%":

 

[sylvanu]

Ca ne marche pas...je ne sais pas où placer le "0.0%":

Le format est :

.Cells(L, "E") = Format(Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
                            - Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")), "0.00%")

ce qui m'échappe est que max-min n'est pas un % mais une valeur.

 

[Hasco]

Bonjour,

Puisque Excel 2019 une requête power query. Pour cela les tables on été nommées 'Table1' à 'Table3'.

La requête 'Résultat', est composée de trois requêtes ( 1 par table) et d'elle-même (Pour démonstration étape par étape)

La requête 'ToutEnUn' fait la même chose en une seule requête. Son résultat est sur la feuille 'Rq-ToutEnUn'.

Cordialement

 

[Hanjen]

Le format est :

.Cells(L, "E") = Format(Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
                            - Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")), "0.00%")

ce qui m'échappe est que max-min n'est pas un % mais une valeur.

J'ai fais une erreur sur le fichier que j'ai préparé... mais les valeurs sont bien en %
Je viens de tester ça marche bien
merci

 

[Hanjen]

Bonjour,

Puisque Excel 2019 une requête power query. Pour cela les tables on été nommées 'Table1' à 'Table3'.

La requête 'Résultat', est composée de trois requêtes ( 1 par table) et d'elle-même (Pour démonstration étape par étape)

La requête 'ToutEnUn' fait la même chose en une seule requête. Son résultat est sur la feuille 'Rq-ToutEnUn'.

Cordialement

Merci je regarde ça pour comprendre et apprendre je reviens vers vous si j'ai une question.
Sinon @sylvanu a répondu à mon problème.

 

[Hanjen]

J'ai fais une erreur sur le fichier que j'ai préparé... mais les valeurs sont bien en %
Je viens de tester ça marche bien
merci

Bonjour à tous,
je me permets de relancer la discussion car je ne trouve pas ma réponse ailleurs
avec la fonction Format(x,x) pour définir le nombre de décimal j'obtiens un triangle vert d'erreur dans mes cellules m'indiquant une erreur et que les cellules sont du texte alors que ce sont bien des nombres

 

[Hasco]

Bonjour,

Au post #7 je vois que vous avez :

.Cells(L, "E") = Format(Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
- Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")), "0.00%")

C'est la fonction format qui produit un texte dans vos cellules.

Mettez plutôt :

.Cells(L, "E") = Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
- Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q"))

Et formatez votre colonne en pourcentage ou rajouter au code :

.Cells(L,"E").NumberFormat = "0.00%"

Ou avec un With :

With .Cells(L,"E3")
   .Value = Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
               - Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q"))
   .NumberFormat = "0.00%"
End With

Cordialement

 

[Hanjen]

Bonjour,

Au post #7 je vois que vous avez :


C'est la fonction format qui produit un texte dans vos cellules.

Mettez plutôt :


Et formatez votre colonne en pourcentage ou rajouter au code :


Ou avec un With :

With .Cells(L,"E3")
   .Value = Application.Max(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q")) _
               - Application.Min(F.Cells(L, "E"), F.Cells(L, "K"), F.Cells(L, "Q"))
   .NumberFormat = "0.00%"
End With

Cordialement

Merci pour votre retour!
J'ai opté pour la solution

.Cells(L,"E").NumberFormat = "0.00%"

ça fonctionne maintenant si je ne veux pas de décimal (seulement pour une colonne). J'ai essayé le "0" mais il ne comprends pas ahhh

 

[Hasco]

J'ai essayé le "0" mais il ne comprends pas ahhh

Faut voir...

.NumberFromat = "0" fonctionne bien sur ma machine(affiche le nombre sans décimale).

Cordialement