Discussion :

[rafafa87]

Bonjour,
j'ai créé cette fonction pour chercher dans un classeur avec plusieurs pages, les valeurs maximales et afficher un résultat concaténé.
Ma deuxième boucle me sert pour n'afficher que le résultat.
Ma dernière boucle, celle qui me donne le résultat concaténé ne fonctionne pas, pouvez vous m'aider?

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Public Function max_clasind(myrange As Range) As String
 
Dim Arr(), valr(), best() As Integer 'Tableau contenant toutes les valeurs de la cellule choisie
 
Dim i, j, k, m, n As Integer
Dim com As String
 
m = 1
ReDim Arr(1 To myrange.Count * Worksheets.Count, 3)
 
 
 
For j = 1 To Worksheets.Count
 
Set myrange = Worksheets(j).Range(myrange.Address)
 
    For i = 1 To myrange.Count
 
    Arr(m, 3) = myrange.Cells(i).Value
    Arr(m, 1) = Worksheets(j).Name
    Arr(m, 2) = Worksheets(j).Range("B5:B27").Cells(i).Value
 m = m + 1
    Next i
 
Next j
 
 
ReDim valr(1 To myrange.Count * Worksheets.Count)
 
For k = 1 To myrange.Count * Worksheets.Count
valr(k) = Arr(k, 3)
Next k
 
n = 1
 
 
For i = LBound(Arr, 3) To UBound(Arr, 3)
 
 
If Arr(3, i) = Application.Max(valr) Then
best(n) = Arr(1, i) & Arr(2, i) & Arr(3, i)
n = n + 1
End If
 
 
Next i
 
max_clasind = best(1)
 
 
 
End Function

[Theze]

Bonjour,

Teste avec ce code :

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
36
37
38
39
40
41
 
Public Function max_clasind(myrange As Range) As String
 
    Dim Arr(), valr() 'Tableau contenant toutes les valeurs de la cellule choisie
    Dim best As String
    Dim I As Integer, j As Integer, k As Integer, m As Integer, n As Integer
    Dim com As String
 
    m = 1
    ReDim Arr(1 To myrange.Count * Worksheets.Count, 3)
 
    For j = 1 To Worksheets.Count
 
    Set myrange = Worksheets(j).Range(myrange.Address)
 
        For I = 1 To myrange.Count
 
            Arr(m, 3) = myrange.Cells(I).Value
            Arr(m, 1) = Worksheets(j).Name
            Arr(m, 2) = Worksheets(j).Range("B5:B27").Cells(I).Value
            m = m + 1
 
    Next I, j
 
    ReDim valr(1 To myrange.Count * Worksheets.Count)
 
    For k = 1 To UBound(valr)
        valr(k) = Arr(k, 3)
    Next k
 
    For I = LBound(Arr, 3) To UBound(Arr, 3)
 
        If Arr(3, I) = Application.Max(valr) Then
            best = Arr(1, I) & Arr(2, I) & Arr(3, I)
        End If
 
    Next I
 
    max_clasind = best
 
End Function

"best" ne peut pas être Integer car tu concatène des valeurs donc, String :

Code :

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

1
2
 
best = Arr(1, I) & Arr(2, I) & Arr(3, I)

Il n'est pas nécessaire d'utiliser un tableau car tu cherches la valeur maximale et tu ne retourne que la première dimension

[rafafa87]

bonjour,
merci de ta réponse,
mais en fait il est possible dans mon tableau Arr() , que plusieurs lignes correspondent à ma recherche,
c'est pourquoi je veux les stocker dans un nouveau tableau best(),
je me servirai ensuite de ce tableau pour concaténer les lignes et les afficher dans le résultat de ma fonction,

j'ai testé ton code et le résultat me renvoie une erreur type #valeur

amicalement,

[rafafa87]

il y avait une inversion dans ma boucle pour le tableau:

Code :

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

1
2
3
best=arr(1,i)...
'en fait il fallait lire
best=arr(i,1)...

merci pour ttes vos infos