macro ne fonctionne pas

Version imprimable

1 pièce(s) jointe(s)

Bonjour

j'avais une macro voir ci dessous qui fonctionnait bien. Elle me permettait, à partir d'une colonne d'un tableau, de retrouver laquelle des classes avait le plus petit nombre de point et afficher le résultat dans des lignes précises.

Malheureusement cela ne fonctionne plus et je ne vois pas l'erreur dans le code. Pouvez vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub meilleur_classe()
'
' permet de classer la meilleur classe d'un niveau
'
Dim Cel As Range, Plage As Range
Dim num_class As String
Dim note_ref As Integer, Ligne As Integer
 
 
    Application.ScreenUpdating = False
 For Ligne = 3 To 21 Step 6
        Set Plage = Cells(Ligne, 10).Resize(6, 1)
        note_ref = Range("J3").Value
        note_ref = Cells(Ligne, 10).Value
        For Each Cel In Plage
            If Cel.Value < note_ref And Cel.Value <> "" Then
                note_ref = Cel.Value
                num_class = Cel.Offset(0, -5).Value
            End If
        Next
        Cells(17 + Ligne / 3, 14) = num_class
    Next Ligne
    Set Plage = Nothing
 
  Range("A1").Select
 
 
End Sub

03/11/2018, 00h40
unparia

Bonjour
1) je n'ouvre et n'ouvrirai jamais un classeur tiers et n'ai donc pas ouvert le tien !
2) ce qui "saute aux yeux" --->>
- la ligne 13 de ton code est rigoureusement inutile (variable "écrasée" en ligne 14)
- il suffit que, par malchance, la première valeur d'un groupe soit la plus petite du groupe pour que la variable num_class correspondante ne soit pas redéfinie !
Remède évident : attribuer également une valeur à la variable num_class comme tu le fais pour la variable note_ref, juste avant la boucle for each cel (et donc : la note et la classe du premier élément du groupe)
Note : je me suis contenté de signaler cette erreur fondamentale. Cette correction ne signifie pas que j'applaudis ton mécanisme.

Bonjour,

Variable à déclarer en double: Dim note_ref en double
Ligne à tester: If Cel.Value <= note_ref
Réinitialiser la variable à la fin de chaque boucle: num_class = ""

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim Cel As Range, Plage As Range
    Dim num_class As String
    Dim note_ref As Double, Ligne As Integer 'note_ref en double
    Application.ScreenUpdating = False
    For Ligne = 3 To 21 Step 6
        Set Plage = Cells(Ligne, 10).Resize(6, 1)
        note_ref = Cells(Ligne, 10).Value
        For Each Cel In Plage
            If Cel.Value <= note_ref And Cel.Value <> "" Then
                note_ref = Cel.Value
                num_class = Cel.Offset(0, -5).Value
            End If
        Next
        Cells(17 + Ligne / 3.2, 14) = num_class
        num_class = ""
    Next Ligne

Cdlt

03/11/2018, 09h23
lachappe

Citation:

Envoyé par unparia

- la ligne 13 de ton code est rigoureusement inutile (variable "écrasée" en ligne 14)
- il suffit que, par malchance, la première valeur d'un groupe soit la plus petite du groupe pour que la variable num_class correspondante ne soit pas redéfinie !

cette erreur était tellement grosse que je ne l'avais pas vu :mrgreen:

Citation:

Envoyé par unparia

Remède évident : attribuer également une valeur à la variable num_class comme tu le fais pour la variable note_ref, juste avant la boucle for each cel

Ce rajout à corrigé le bug GRAND MERCI à toi

Citation:

Envoyé par unparia

Cette correction ne signifie pas que j'applaudis ton mécanisme.

Je n'ai aucune prétention sur mon "mécanisme", j’essaie d'apprendre et suis ouvert à toute solution plus logique, simple....