Discussion :

[jerem488]

Bonsoir tout le monde,

J'ai un problème que je ne comprends pas pourquoi ça bloque. J'ai pourtant fait des tests avec des sujets similaires, j'ai consulté le site msdn sur l'utilisation de match mais l'écriture de mon code me renvoie l'erreur "La méthode range de l'objet '_worksheet' a échoué" sur l'argument "Range(Colonne)".

Code :

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
22
23
24
25
26
27
28
29
 
Sub ValeursMinMax()
    Dim ValeurMin As Single, ValeurMax As Single
    Dim Colonne As Range, Cellule As Range
    Dim Ligne As Long
 
    Application.ScreenUpdating = False
 
    With ThisWorkbook.Worksheets("Controles")
        For Each Colonne In Range("A5:K40").Columns
            Debug.Print "Adresse de colonne : " & Colonne.Address
            ValeurMin = WorksheetFunction.Min(Range(Colonne.Address))
            Debug.Print "Valeur minimale : " & ValeurMin
            'Debug.Print "Valeurmin type : " & TypeName(ValeurMin)
            If Not IsError(Application.WorksheetFunction.Match(ValeurMin, Range(Colonne)) > 0) Then
                'Ligne = Application.WorksheetFunction.Match(ValeurMin, Colonne, 0)
                'Cellule = Colonne.Cells(Ligne, 1)
                'Cellule.Select
                'With Selection
                '    .Interior.Color = RGB(255, 255, 0)
                'End With
            End If
            ValeurMax = WorksheetFunction.Max(Range(Colonne.Address))
            Debug.Print "Valeur max : " & ValeurMax
        Next
    End With
 
    Application.ScreenUpdating = True
End Sub

[unparia]

Bonjour
A quelle feuille appartient l'objet Range invoqué dans

Code :

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

 For Each Colonne In Range("A5:K40").Columns

?
Si à la feuille "Controles", il devrait être précédé d'un point (.) partout où invoqué dans ton bloc with ...

[jerem488]

J'ai rajouté les . aux range() mais j'ai l'erreur 1004 "Erreur d'execution 1004 : Erreur définie par l'application ou par l'objet"

[unparia]

Mon autre nom étant Saint-Thomas, montre ton code modifié.

[Menhir]

J'ai un problème que je ne comprends pas pourquoi ça bloque. J'ai pourtant fait des tests avec des sujets similaires, j'ai consulté le site msdn sur l'utilisation de match mais l'écriture de mon code me renvoie l'erreur "La méthode range de l'objet '_worksheet' a échoué" sur l'argument "Range(Colonne)".

Le Range est inutile.
L'objet Colonne est déjà un Range en lui-même.

De plus, Colonne, en tant que variable objet, contient sa référence complète (workbook, worksheet, etc.) transmises par les paramètre du For Each.
En revanche, le Range qui le contient n'est relié à aucune feuille (même pas celle du With puisqu'il n'a pas de point devant) donc il est relié à l'onglet actif à cet instant.
Si les deux ne sont pas en accord, VBA ne pourra pas comprendre cette dichotomie.

Il y a aussi un truc bizarre dans ton code : tu mets un With qui englobe tout mais tu ne l'utilises pour aucun des objets du code.

[Marc-L]

Bonjour,

WorksheetFunction étant inutile et source d'erreur lorsque la fonction de feuille de calculs EQUIV renvoie une erreur,

conserver uniquement   Application.Match   comme déjà indiqué dans de nombreuses discussions de ce forum …

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[unparia]

Je ne comprends pas non plus ce genre de code :

Code :

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

If Not IsError(Application.WorksheetFunction.Match(une_valeur,une_matrice) > 0) Then

IsError devrait concerner quoi, là-dedans ? le résultat de Match seul et non l'ensemble match > 0
A décomposer.

[jerem488]

Mon autre nom étant Saint-Thomas, montre ton code modifié.

Code :

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
22
23
24
25
 
Sub ValeursMinMax()
    Dim ValeurMin As Single, ValeurMax As Single
    Dim Colonne As Range, Cellule As Range
    Dim Ligne As Long
 
    Application.ScreenUpdating = False
 
    With ThisWorkbook.Worksheets("Controles")
        For Each Colonne In .Range("A5:K40").Columns
            ValeurMin = WorksheetFunction.Min(Range(Colonne.Address))
            If Application.WorksheetFunction.Match(ValeurMin, Colonne) > 0 Then
                Ligne = Application.WorksheetFunction.Match(ValeurMin, Colonne, 0)
                Cellule = Colonne.Cells(Ligne, 1)
                Cellule.Select
                With Selection
                    .Interior.Color = RGB(255, 255, 0)
                End With
            End If
            ValeurMax = WorksheetFunction.Max(Range(Colonne.Address))
        Next
    End With
 
    Application.ScreenUpdating = True
End Sub

[unparia]

Toi :

J'ai rajouté les . aux range()

Moi :

Mon autre nom étant Saint-Thomas

Sans commentaires (outre la remarque qui t'a été faite à juste titre en ce qui concerne Colonne, qui est déjà un objet).

PS : Ajoutons que ton premier message présentait un code dont certaines lignes étaient en commentaires et que je les ai donc ignorées.
Les voilà maintenant actives avec leur propre "petit lot".

[jerem488]

Bonsoir tout le monde,

Je tiens à partager mon code mis à jour et qui fonctionne parfaitement

Code :

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
22
23
24
25
 
Sub ValeursMinMax()
    Dim ValeurMin As Double, ValeurMax As Double
    Dim Colonne As Range, Cellule As Range
    Dim LigneMin As Long, LigneMax As Long
 
    Application.ScreenUpdating = False
 
    With ThisWorkbook.Worksheets("Controles")
        For Each Colonne In .Range("A5:F40").Columns
            ValeurMin = Application.WorksheetFunction.Min(Range(Colonne.Address))
            If ValeurMin <> 0 Then
                LigneMin = Application.WorksheetFunction.Match(ValeurMin, Range(Colonne.Address), 0)
                Colonne.Cells(LigneMin, 1).Interior.Color = RGB(255, 255, 0)
            End If
            ValeurMax = Application.WorksheetFunction.Max(Range(Colonne.Address))
            If ValeurMax <> 0 Then
               LigneMax = Application.WorksheetFunction.Match(ValeurMax, Range(Colonne.Address), 0)
               Colonne.Cells(LigneMax, 1).Interior.Color = RGB(76, 255, 0)
            End If
        Next
    End With
 
    Application.ScreenUpdating = True
End Sub

Merci