Discussion :

[Polygos]

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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Transforme les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Else
If

En

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[anasecu]

Bonjour

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 ?

[Polygos]

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.

[Philippe Tulliez]

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

[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.

[Philippe Tulliez]

Bonjour,

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