Simplification d'une itération de comparaison pour classement

Version imprimable

Bonjour
je dois convertir un poids en classe de poids à partir d'un tableau de correspondance
Si le Pb est inférieur à 250, alos ma cellule doit contenir le résultat texte PC

J'ai écrit un truc assez bourrin qui ne me plait pas:
PB est la somme de deux valeurs d'un même tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
PB = (ws1.Cells(i, 96) + ws1.Cells(i, 193)) * 1.05
            If PB < 0.25 Then
            ws2.Cells(j, 13) = "PC"
            Else
                If PB < 0.5 Then
                ws2.Cells(j, 13) = "MC"
                Else
                    If PB < 1 Then
                    ws2.Cells(j, 13) = "GC"
                    Else
                        If PB < 2 Then
                        ws2.Cells(j, 13) = "HG1"
                        Else
                            If PB < 3 Then
                            ws2.Cells(j, 13) = "HG2"
                            Else
                            End If
                        End If
                   End If
               End If
           End If

C'est joli esthétiquement mais très lourd et long en temps de calcul; je ne maitrise pas les tableaux. Qqn a une idée simple et "élégante", ce qui ne peut pas être difficile..

Merci

:oops::oops:

29/04/2020, 22h29
Menhir
Transforme les
Code:

1 2 Else If
En

Code:

ElseIf

Ou, mieux, en Select Case

Lire ceci :
https://docs.microsoft.com/fr-fr/off...else-statement
https://docs.microsoft.com/fr-fr/off...case-statement
30/04/2020, 21h58
anasecu
Bonjour,

Citation:

Envoyé par Polygos

Qqn a une idée simple et "élégante", ce qui ne peut pas être difficile..

Une idée simple mais à toi de voir si elle est élégante :
Code:

1 2 3 4 5 Dim chx() chx = Array(0, 0.25, 0.5, 1, 2, 3) With Application ws1.Cells(j + 1, 13) = .Choose(.Match(PB, chx, 1), "PC", "MC", "GC", "HG1", "HG2", "?") End With
Ainsi tu utilises les fonctions Excel et c'est simple pour maintenir.
15/05/2020, 18h10
anasecu

Bonjour

Citation:

Envoyé par Polygos

ce qui ne peut pas être difficile..

Ce n'est peut-être pas difficile non plus de donner une réponse à ceux qui t'ont proposé une idée ?
24/05/2020, 09h21
Polygos

Citation:

Envoyé par anasecu

Bonjour

Ce n'est peut-être pas difficile non plus de donner une réponse à ceux qui t'ont proposé une idée ?

Absent, pas pu voir.
Merci c'est parfait.
24/05/2020, 10h31
Philippe Tulliez

1 pièce(s) jointe(s)

Bonjour,
Personnellement, je déteste le "Hardcodage".

Si tu reprends ta question initiale "je dois convertir un poids en classe de poids à partir d'un tableau de correspondance", pourquoi ne passe-tu pas justement par une table de correspondance à placer dans une feuille contenant tes paramètres et avec un simple RECHERCHEV avec valeur proche tu aurais le texte correspondant à la valeur cherchée, tu pourrais donc le résoudre sans VBA mais s'il faut absolument passer par de la programmation, c'est une ligne de code avec l'avantage que tu peux modifier ta table sans devoir modifier le code.

Exemple de la table
Pièce jointe 567632
27/07/2020, 17h21
Polygos

Pardon, des fois je mets des semaines à ne pas avoir le temps de comprendre vos réponses. Je suis surbooké, mai sje les relis toujours.
Oui le tableau est deja ce que j'utilise sur Excel mais là c'est un code qui fait autre chose et qui a besoin de cette info, nécessaire.
27/07/2020, 19h20
Philippe Tulliez

Bonjour,

Citation:

Oui le tableau est deja ce que j'utilise sur Excel mais là c'est un code qui fait autre chose et qui a besoin de cette info, nécessaire.

Mais encore