Application.WorksheetFunction.Large sur plusieurs plage non contigues

[carlos]

Bonjour
Est il possible de connaitre en VBA la plus grande valeur sur des plages non contiguës ?
Application.WorksheetFunction.Large(Plage1, plage2),1) 'ne marche pas
' 1 étant le rang
Merci
Carlos

 

[carlos]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

voici le code qui ne marche pas :
Application.WorksheetFunction.Large(Plage1, plage2,1)
Merci

 

[Staple1600]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonsoir à tous


Ce qui vaut pour la formule GRANDE.VALEUR vaut pour son emploi en VBA
(extrait de l'aide Excel)

La syntaxe de la fonction GRANDE.VALEUR contient les arguments (argument : valeur qui fournit des informations à une action, un événement, une méthode, une propriété, une fonction ou une procédure.) suivants :

matrice Obligatoire. Représente la matrice ou la plage de données dans laquelle vous recherchez la k-ième plus grande valeur.
k Obligatoire. Représente, dans la matrice ou la plage de cellules, la position de la valeur à renvoyer, déterminée à partir de la valeur la plus grande.

 

[carlos]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonsoir Staple1600
J' ai tenté ceci avec des parentheses mais ca ne marche toujours pas:
Application.WorksheetFunction.Large({Plage1, plage2},1)
Cordialement

 

[Staple1600]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Re

carlos
Tu as lu mon précédent message??
Et vu ce que j'ai en mis en rouge ?
Donc tu en déduis quoi ?

 

[carlos]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Staple1600
tu veux dire que ce doit etre une seule plage ?
(la) plage de données ...

 

[mromain]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonsoir carlos, Staple, le forum

Ci-joint une solution pour contourner le problème : passer l'ensemble des valeurs dans un tableau et utiliser ce tableau avec la fonction Small.
Merci à Hervé pour l'astuce

Cette fonction prend des Range en paramètres et renvoi un tableau contenant l'ensemble des valeurs :

Public Function RangeToArray(ParamArray zones()) As Variant()
Dim iZone As Long, nbCells As Long, iRes As Long, iCell As Long, jCell As Long
Dim res() As Variant, tmpTab() As Variant
    For iZone = LBound(zones) To UBound(zones)
        If TypeName(zones(iZone)) <> "Range" Then Exit Function
        nbCells = nbCells + zones(iZone).Cells.Count
    Next iZone
    ReDim res(1 To nbCells): iRes = 0
    For iZone = LBound(zones) To UBound(zones)
        tmpTab = zones(iZone).Cells.Value
        For iCell = LBound(tmpTab, 1) To UBound(tmpTab, 1)
            For jCell = LBound(tmpTab, 2) To UBound(tmpTab, 2)
                iRes = iRes + 1
                res(iRes) = tmpTab(iCell, jCell)
            Next jCell
        Next iCell
    Next iZone
    RangeToArray = res
End Function

Et voici comment l'utiliser :

Dim plage1 As Range, plage2 As Range, plage3 As Range, tabVal() As Variant

'    Set plage1 = ...
'    Set plage1 = ...
'    Set plage1 = ...

    tabVal = RangeToArray(plage1, plage2, plage3)
    
    MsgBox Application.WorksheetFunction.Small(tabVal, 2)

A+

 

[carlos]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Re
J'ai adapté avec mon projet et ca s'arrete sur TmpTab:

Function Note(APS1 As Range, APS2 As Range)
Dim tabVal() As Variant'
tabVal = RangeToArray(APS1, APS2)
MsgBox Application.WorksheetFunction.Small(tabVal, 2)
End Function

Public Function RangeToArray(ParamArray zones()) As Variant()
Dim iZone As Long, nbCells As Long, iRes As Long, iCell As Long, jCell As Long
Dim res() As Variant, tmpTab() As Variant
For iZone = LBound(zones) To UBound(zones)
If TypeName(zones(iZone)) <> "Range" Then Exit Function
nbCells = nbCells + zones(iZone).Cells.Count
Next iZone
ReDim res(1 To nbCells): iRes = 0
For iZone = LBound(zones) To UBound(zones)
tmpTab = zones(iZone).Cells.Value ' ''''''''''''''''''''''''''''''''''''''''''''''''''ICI
For iCell = LBound(tmpTab, 1) To UBound(tmpTab, 1)
For jCell = LBound(tmpTab, 2) To UBound(tmpTab, 2)
iRes = iRes + 1
res(iRes) = tmpTab(iCell, jCell)
Next jCell
Next iCell
Next iZone
RangeToArray = res
End Function

 

[mromain]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Re bonsoir carlos,

C'est étrange.
Ci-joint un exemple avec différents ranges (cellules, plages nommées et tableau) qui fonctionne.

Pour ton cas, il faudrait savoir à quoi correspondent APS1 et APS2 lorsque la macro bloque. Comment les initialises-tu ?

A+

 

[job75]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonsoir carlos, JM, mromain,

S'il s'agit seulement de connaître la plus grande valeur Application.Max(plage1, plage2) suffit.

A+

 

[carlos]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonsoir mromain,job75,staple1600
C'est à peu près la fonction de Job75 que je souhaite utiliser mais avec les 3 plus grandes valeurs .
Merci

 

[Regueiro]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonsoir à Tous

Sub MAx()
Dim zone As Range
Set zone = Application.Union(Range("C2:C5"), Range("E2:E5"))
[G3] = Application.WorksheetFunction.Large(zone, 1)
For i = 1 To 3
Range("H" & i) = Application.WorksheetFunction.Large(zone, i) 'La
Next i

A+

 

[carlos]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonjour à tous ,Regeuiro
C'est exactement cela .
Super Merci pour la solution.
Bonne journée
Carlos

 

[job75]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonjour le fil, le forum,

Bien sûr puisque GRANDE.VALEUR et PETITE.VALEUR fonctionnent très bien sur des plages disjointes.

A+

 

[Staple1600]

Re : Application.WorksheetFunction.Large sur plusieurs plage non contigues

Bonjour à tous


Merci aux parenthèses d'avoir rendu caduque ce que je disais plus bas.
https://www.excel-downloads.com/thr...rge-sur-plusieurs-plage-non-contigues.220572/
(et donc merci à Job75 qui m'a ouvert les yeux)