La méthode range de l'objet '_worksheet' a échoué

Version imprimable

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:

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

23/11/2017, 06h44
unparia

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

Code:

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 ...
23/11/2017, 11h26
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"
23/11/2017, 11h33
unparia

Mon autre nom étant Saint-Thomas, montre ton code modifié.
23/11/2017, 11h40
Menhir

Citation:

Envoyé par jerem488

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.
23/11/2017, 11h49
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, …
23/11/2017, 11h57
unparia

Je ne comprends pas non plus ce genre de code :

Code:

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.

Citation:

Envoyé par unparia

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

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

23/11/2017, 21h51
unparia

Toi :

Citation:

J'ai rajouté les . aux range()

Moi :

Citation:

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). :cfou:

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

Bonsoir tout le monde,

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

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