Discussion :

[karim19]

Bonsoir

Comment obtenir l'adresse de "mf", résultant d'une fonction Max sur une plage

Code :

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

1
2
Set Plage = graphique.Range("J2", "J" & der)
mf = Application.WorksheetFunction.max(Plage)

une âme charitable

Bien Cdt

[casavba]

Faites Vous la différence entre une variable et une cellule ?

[mercatog]

Une proposition dans le même sens

Code :

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

1
2
3
4
5
6
Dim Plage As Range, c As Range
Dim adr As String
 
Set Plage = Range("C5:G15")
Set c = Plage.Find(Application.WorksheetFunction.Max(Plage), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then MsgBox c.Address

[karim19]

effectivement "mf" est une variable, et je voudrais l'adresse de cette variable
contenue dans une cellule

Cdt

[casavba]

Ok, tu me rassures.

La proposition de mercatoq répond à ta question mais seulement dans le cas où tu as qu'une seule cellule qui contient une valeur maximale dans la plage.

Par ailleurs, Si dans la plage de cellules argument de la fonction Max(), se trouvent plusieurs valeurs maximales; la proposition de mercatoq ne répond plus à ta question.

Dans ce cas plusieurs solutions alternatives peuvent être avancées dont voici une :

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
Option Base 1
Sub MacroTest()
 
Dim Plage As Range, c As Range, R As Range
Dim adr As String, MyArray() As String
Dim i As Integer, j As Integer, mf As Double
 
 
Set Plage = graphique.Range("J2", "J" & der)
 
'----------------------------------------------'
'/**** la plus grande valeur de la Plage  ****\'
'----------------------------------------------'
 
mf = Application.WorksheetFunction.Max(Plage)
 
'------------------------------------------------------------'
'/****  Boucle sur la Plage, si la condition est True,  ****\'
'/****  stockage de l'adresse de la cell dans MyArray   ****\'
'------------------------------------------------------------'
For Each R In Plage
    With R
        If .Value = mf Then
            i = i + 1
            ReDim Preserve MyArray(1 To i)
            MyArray(i) = .Address
        End If
    End With
Next R
 
'-------------------------------------------'
'/****  Affiche le Contenu de MyArray  ****\'
'-------------------------------------------'
For j = 1 To UBound(MyArray())
    MsgBox MyArray(j)
Next j
 
End Sub

Bonne soirée

[aalex_38]

Pour info, avec cette formule, on retrouve la ligne de la plus grande valeur (la dernière) :

Code :

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

=EQUIV(MAX(J1:J10);J1:J10)

[Abed_H]

Bonjour
complement d'infos d'aalex_38

Code :

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

=ADRESSE(EQUIV(MAX(J1:J100);J1:J100;0);10)

Bonne journée.

[Abed_H]

Re;
en vba

Code :

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

mf = [J:J].Find(Application.WorksheetFunction.Max(Plage)).Address

[aalex_38]

Bonjour à tous,

L'exemple d'Abed_H, m'a inspiré un petit sub, en esperant que cela puisse servir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Plusgranddanslaplage()
Dim Wf As WorksheetFunction, MaPlage As Range, Mf As String, PlageMax As Range: Set Wf = Application.WorksheetFunction
 
Set MaPlage = Range("J:k")
 
Set PlageMax = MaPlage.Find(Wf.Max(MaPlage))
 
Mf = PlageMax.Address
 
MsgBox "L'adresse du plus grand nombre dans la plage " & MaPlage.Address & " est :" & Mf & " !" & vbCr & "Avec le nombre : " & PlageMax, vbInformation + vbOKOnly, "Trouver le plus grand dans la plage"
 
Set PlageMax = Nothing: Set MaPlage = Nothing: Set Wf = Nothing
End Sub

Ps : pourquoi ne trouve-t-on pas toutes les fonctions dans worksheetfunction, par exemple address est introuvable, je vais regarder dans VBAlist voir si je trouve la réponse, si vous l'avez je suis preneur

[karim19]

Bonjour à vous tous et merci pour vos réponses

la solution de Mercatog, m'aurait convenue mais j' ai un souci il m'indique que cel =nothing

Code :

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

1
2
Set cel = Plage.Find(Application.WorksheetFunction.max(Plage), LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then MsgBox cel.Address

pour ta solution ,ABED, VB me ramène un message d'erreur "erreur d'execution 91"

Code :

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

mf = [J:J].Find(Application.WorksheetFunction.Max(Plage)).Address

pour vous préciser ma demande, je souhaite récupérer l'adresse de "mf", pour ensuite récuperer la valeur de la cellule adjacente ( par une formule de type offset(-1,0) )

Bien Cordialement

[mercatog]

Tu as adapté plage à ta plage de données?

Code :

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

If Not cel Is Nothing Then ValCherch=c.offset(0,-1).value

If Not cel Is Nothing Then

a été mise par précaution au cas ou ta plage est vide

[Abed_H]

Re;
Vous devez spécifier la feuille où se trouvent les données comme ceci

Code :

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

mf = [Feuil1!J:J].Find(Application.WorksheetFunction.Max(Plage)).Address

Bonne journée

[Abed_H]

pour vous préciser ma demande, je souhaite récupérer l'adresse de "mf", pour ensuite récuperer la valeur de la cellule adjacente ( par une formule de type offset(-1,0) )

voici une solution peut être vous aidera à regler ton problème.

Code :

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

Feuil1.Range([Feuil1!J:J].Find(Application.WorksheetFunction.Max(Plage)).Address).Offset(-1).Value

Bonne journée à vous tous.

[karim19]

Merci ABED , une question

Y'a t'il dans cebout de code quelque chose qui te choque
J'ai toujours une erreur d'execution type 91 au niveau "qf"

Code :

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

1
2
3
4
5
6
der = Worksheets("graphique").Range("B2").End(xlDown).Row
                Set Tableau = graphique.Range("I3", "I" & der)
                Set Plage = graphique.Range("J3", "J" & der)
                mf = Application.WorksheetFunction.max(Plage)
                qf = graphique.Range([graphique!J:J].Find(Application.WorksheetFunction.max(Plage)).Address).Offset(-1).Value
                TextBox16.Value = FormatNumber(mf, -1, vbTrue, vbTrue)

Bien Cdt

[aalex_38]

Bonjour,

graphique est bien le codename de ta feuille ?

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim der As Long
Dim Plage As Range, c As Range
With Worksheets("graphique")
    der = .Range("B65536").End(xlUp).Row
    Set Plage = .Range("J3:J" & der)
    mf = Application.WorksheetFunction.Max(Plage)
    Set c = Plage.Find(mf, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then TextBox16.Value = c.Offset(-1, 0).Value
End With
Set c = Nothing
Set Plage = Nothing

[karim19]

Désolé, Mercatog

toujours rien en "c", ce qui est agacant!, alors qui me récupère bien la variable "mf" mains ne la retrouve pas.

Bien Cdt

[mercatog]

Tu peux mettre un copie de ton fichier (avec un minimum de données)?

[Abed_H]

si graphique est le nom de ta feuille pas le codeName tu va changé ton code comme ceci.

Code :

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

1
2
3
4
5
der = Worksheets("graphique").Range("B2").End(xlDown).Row
                Set Tableau = Sheets("graphique").Range("I3", "I" & der)
                Set Plage = Sheets("graphique").Range("J3", "J" & der)
                mf = Application.WorksheetFunction.Max(Plage)
                qf = Sheets("graphique").Range(Sheets("graphique").Range("J3", "J" & der).Find(Application.WorksheetFunction.Max(Plage)).Address).Offset(-1).Value

[karim19]

le voici

Je n'ai pas mis la userform avec la textbox

Bien Cdt