Discussion :

[souhail72]

Bonjour

j'ai une petite problématique que j'essaye de résoudre.

j'ai deux colonnes A et B.

- sur la colonne B, je cherche le Maximum des valeurs que je met dans une cellule C1

Je souhaite, récupérer la valeur de la cellule A qui correspond a la valeur de la Cellule B qui elle est le Maximum.

Pour le maximum, j'utilise cette fonction :

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
        Dim CellulesYb As Range
        Dim LaCelYb As Range
        Set CellulesYb = Range("C851: C1001")
 
        Set CellulesYb = ActiveSheet.Range("C851: C1001")
 
        Range("I2").Value = Application.WorksheetFunction.Max(CellulesYb)
 
 
        For Each LaCelYb In CellulesYb
            If (LaCelYb.Value = Range("H1").Value) Then
                Range("I2").Value = LaCelYb.Column
 
            End If
        Next

Avez une idée pour résoudre la problématique ?

merci bcp à vous

Bonne journée

[anasecu]

Bonjour,

Pas facile de trouver le maximum de la colonne B dans une plage de la colonne C ?

[joe.levrai]

Bonjour,

c'est un peu confus

c'est pas plutôt l'adresse de la cellule en colonne A que tu cherches ? Parce que chercher une valeur en colonne A, en fonction de la valeur d'une autre cellule déjà connue, c'est juste inutile (autant lire la valeur de la cellule connue)


Regarde du côté de la fonction Find de l'objet Range

rechercher en colonne A la valeur de C1 et si la recherche abouti, retourner l'adresse

grosso modo, à totalement adapter :

Code :

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

1
2
3
4
5
6
7
Sub Recherche()
Dim Cell As Range
    With ActiveSheet
        Set Cell = .UsedRange.Columns(1).Find(.Cells(1, 3), , , xlWhole)
        If Not Cell Is Nothing Then MsgBox Cell.Address
    End With
End Sub

[souhail72]

Non vous m’avez mal compris
en fait quand je trouve le maximum dans la colonne B, je récupère la cellule qui lui correspond dans la colonne A.
regardez la capture avec un petit explicatif.
merci

[joe.levrai]

En se basant sur ta capture écran : données en colonne A et B qui commencent à la ligne 7, sans ligne vide ET sans données autres qui sont collées à cette plage


par formule dans excel :

Code :

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

=INDEX(A7:B20;EQUIV(MAX(B7:B20);B7:B20;0);1)

utilisé dans une procédure VBA, on peut soit :

- injecter la formule dans une cellule (A1 dans l'exemple)
- injecter directement le résultat (A2 dans l'exemple)
- afficher le résultat dans un message au lieu de l'écrire dans Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Formules()
Dim Plage As Range: Set Plage = Range("A7").CurrentRegion
    ' écriture de la formule en A1
    With Plage
        Range("A1").Formula = "=INDEX(" & .Address & ",MATCH(MAX(" & .Columns(2).Address & ")," & .Columns(2).Address & ",0),1)"
    End With
 
    ' calcul interne et restitution du resultat dans un message ou écriture en A2
    With Application.WorksheetFunction
        Range("A2").Value = .Index(Plage, .Match(.Max(Plage.Columns(2)), Plage.Columns(2), 0), 1)
        MsgBox .Index(Plage, .Match(.Max(Plage.Columns(2)), Plage.Columns(2), 0), 1)
    End With
End Sub

[souhail72]

Super merci bcp, c'est ce qu'il me fallait, j'adapte le code a ma problématique.
merci @ vous