Probleme fonction Max détection de la range

Bonjour,

Je vous expose mon problème, j'aimerais faire une fonction max parmi la range B2:B11, cependant je veux renvoyer dans une msg box la celulle à sa gauche colum A qui est un nom j'ai écrit:

Sub calcul_()

Dim myrange As Range

Dim societe As String

Dim Rapport As Worksheet

Set myrange = Worksheets("Rapport").Range("B2:B11")

max = Application.WorksheetFunction.max(myrange)

Range("B2:B11").Select

selection.Find(What:=max).Select

societe = ActiveCell.Offset(0, -1)

MsgBox "la société est " & societe

End Sub

ca bug sur selection.Find(What:=max).Select erreur d'éxécution 91 ps mon selection en se met pas en majuscule Selection

Merci pour votre aide

Bonjour,

Essaie comme cela

Sub calcul_()
Dim MyRange As Range
Dim Max
Dim Societe As String
    Set MyRange = Worksheets("Rapport").Range("B2:B11")
    Max = Application.WorksheetFunction.Max(MyRange)
    Societe = MyRange.Find(Max, , xlValues, xlWhole).Offset(0, -1)
    MsgBox "la société est " & Societe
    Set MyRange = Nothing
End Sub

A+

Merci mais cela bug toujours

execution 91

Societe = MyRange.Find(Max, , xlValues, xlWhole).Offset(0, -1)

Bonjour

AllTrade a écrit :

ps mon selection en se met pas en majuscule Selection

Vérifies si tu n'as pas une autre macro qui s'intitule "selection"

Si c'est le cas renommes la

Si non joins ton fichier

Bonjour à tous,

Le problème peut provenir du format de tes cellules en colonne B.

En mode pas à pas, vérifie la valeur de Max pour t’assurer que le chiffre maximum est bien reconnu.

A+

Bonjour,

En fait mon code était bon, c'est juste que j'avais ouvert un autre projet ou il y avait une macro selection. Merci pour votre aide