Discussion :

[debutanteVba]

bonjour,

J'ai lu cette discussion.

je sais que ce poste date mais je tente ma chance car ca fait 3 jours que je suis dessus

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MACRO_TEST()
Dim mx As Double
Dim lmx As Long
mx = _
Application.Max(Range("A:A"))
lmx = _
Application.Match(Application.Max(Range("A:A")), Range("A:A"),0)
MsgBox "Valeur maximale : " & mx & _
vbCrLf & "Numéro de ligne du maximum : " & lmx
End Sub

j'ai utilisé le code ci-dessus et ca marche, ca ressemble au résultat que je souhaite sauf quoi moi j'ai plusieurs colonnes(donc il me faut la valeur max pour chaque colonne)

et au lieu de l'afficher par msgbox et le numero de ligne(nom de la lligne) car j'ai les devises en colonnes et les scenario ID en ligne

j'aimerai l'afficher dans un tableau dans une nouvelle feuille avec la valeur max par devise et par scenario ID

merci pour l'aide

[olaxius]

ça pourrait donner ça

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
 
Set vPlage = Sheets("feuil1").Range("A5:B45")
vMinlig = vPlage.Cells(1, 1).Row
vMaxlig = vPlage.Rows.Count + vMinlig - 1
i = 1
For Each vCol In vPlage.Columns
'Recup de la lettre de la colonne
    vColonne = Left$(vCol.Cells(1, 1).Address(False, False), len(CStr(vCol.Column)))
    vColonne = vColonne & vMinlig & ":" & vColonne & vMaxlig
    vMax = Application.Max(Range(vColonne))
    Sheets("feuil2").Cells(i, 1).Value = vMax
    i = i + 1
Next
 
End Sub

La prochaine fois fais attention à ta syntaxe

[debutanteVba]

Bonjour

je vous remercie du retour

en effet, votre code me calcule les max de chaque colonne mais le soucis est qu'il mes les affiches en une seule colonne et que des chiffres

j'ai essayé d'adapter le code pour qu'il me retourne la valeur maximale avec la devise et le scenario ID correspondant mais en vain

[olaxius]

Je n'avais pas fait attention que vous vouliez récupérer aussi l'adresse de la cellule max
voici un autre exemple

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
 
Sub test()
Set vPlage = Sheets("feuil1").Range("A5:B45")
vMinlig = vPlage.Cells(1, 1).Row
vMaxlig = vPlage.Rows.Count + vMinlig - 1
i = 1
For Each vCOl In vPlage.Columns
'Recup de la lettre de la colonne
    vColonne = Left$(vCOl.Cells(1, 1).Address(False, False), Len(CStr(vCOl.Column)))
    vColonne = vColonne & vMinlig & ":" & vColonne & vMaxlig
    vMax = 0
    vAdr  = ""
    For Each vEl In Range(vColonne)
        vMaxTmp = vEl.Value
        If vMaxTmp > vMax Then
            vMax = vMaxTmp
            vAdr = vEl.Address(0, 0)
        End If
    Next
    Sheets("feuil2").Cells(i, 1).Value = vMax
    Sheets("feuil2").Cells(i, 2).Value = vAdr
    i = i + 1
Next
End Sub

Cet exemple n'est correct que si les données ne sont pas uniquement négatives
Dans ce cas il faut initialiser vMax à = -10000 par exemple.
S'il y a des doublons en valeur max le code ne ramène que la première valeur max.

j'ai essayé d'adapter le code pour qu'il me retourne la valeur maximale avec la devise et le scenario ID correspondant mais en vain

Je ne comprends ce que ça veut dire

[nibledispo]

bonjour Olaxius,

pour comprendre, il faut se reporter à une discussion de vdebutante un peu plus bas. "[XL-2010] afficher dans un tableau2 la Valeur MAX pour chaque colonne". (Je ne sais pas comment renvoyer directement à cette discussion.)

Vcottineau et Nouveau2 ont apporter la réponse. je pense que la réponse définitive est un compromis des deux; à savoir sur réponse Vcottineau :
- remplacer le array par le tableau tabtemp() proprement dit que Vdebutante a sur une feuille.
- renvoyer sur la ou une feuille Excel le resultat tabmax() à la place du debug.print
- ajouter une colonne devise sur le tableau résultat tabmax().

je pense que c'est cela que Vdebutante ne parvient pas à faire. moi non plus d'ailleurs.

ci-dessous le code Vcottineau que j'ai adapté à l'exemple donné par Vdebutante pour vérifier que j'avais bien compris la solution proposée.
les lignes en vert sont de mon fait. je ne vois pas l'utilité des tabmax(x ,y ) = 0

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
30
31
32
33
34
35
 
Option Explicit
 
Private Sub MaxInArray()
 
  Dim tabTemp() As Variant, tabMax() As Variant
  Dim dblMax1#, dblMax2#, dblMax3#
  Dim i%, j%
  Dim strTemp$
 
  tabTemp = Application.Evaluate("{""ID1"",156,147,132;""ID2"",14,258,369;""ID3"",36,200,301}")
 
  dblMax1 = Application.Max(Application.Index(tabTemp, , 2))
  dblMax2 = Application.Max(Application.Index(tabTemp, , 3))
  dblMax3 = Application.Max(Application.Index(tabTemp, , 4))
  ReDim tabMax(2, 3)
 
  tabMax(0, 0) = Application.Index(tabTemp, Application.Match(dblMax1, Application.Index(tabTemp, , 2), 0), 1)
  'tabMax(0, 1) = 0
  tabMax(0, 2) = dblMax1
  tabMax(1, 0) = Application.Index(tabTemp, Application.Match(dblMax2, Application.Index(tabTemp, , 3), 0), 1)
  'tabMax(1, 1) = 0
  tabMax(1, 2) = dblMax2
  tabMax(2, 0) = Application.Index(tabTemp, Application.Match(dblMax3, Application.Index(tabTemp, , 4), 0), 1)
  'tabMax(2, 1) = 0
  tabMax(2, 2) = dblMax3
  For i = LBound(tabMax, 1) To UBound(tabMax, 1)
    strTemp = ""
     For j = LBound(tabMax, 2) To UBound(tabMax, 2)
      strTemp = strTemp & " " & tabMax(i, j)
     Next j
    Debug.Print (strTemp)
  Next i
 
End Sub

Cordialement,

[debutanteVba]

merci nibledispo pour le complément d'informations

je vous tiens au courant demain , car je crois avoir trouvé la solution