Références/Maximum

Pierrot93

XLDnaute Barbatruc

• 3 Janvier 2008

• #2

Re : Références/Maximum

Bonjour Audric

en attendant les formulistes, regarde la mcro ci dessous :

Code:

Sub test()
Dim x, c As Range
x = WorksheetFunction.Max(Range("A1:A100"))
Set c = Range("A1:A100").Find(x, , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then MsgBox "la valeur maxi est en " & c.Address(0, 0)
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 3 Janvier 2008

• #3

Re : Références/Maximum

Bonjour,

Par formule,
adresse de la cellule contenant la valeur max d'une plage.
Avec ou sans doublons de max.

Formule matricielle, à valider par ctrl, maj et entrée.

 

Pièces jointes

• AdresseAudric.zip

  3.8 KB · Affichages: 46

Vote positif 0 Vote négatif

A

Audric

Guest

• 3 Janvier 2008

• #4

Re : Références/Maximum

Merci à vous Monique et Pierrot93

Cela va beaucoup m'aider 😉

Encore merci

 

Vote positif 0 Vote négatif

A

Audric

Guest

• 4 Janvier 2008

• #5

Re : Références/Maximum

Une dernière chose Monique, est-il possible d'appliquer le formule sans avoir à appuyer simultanément sur Ctrl+Maj+Entrée, mais seulement sur Entrée ?
(Rentrer par exemple une fonction permettant cela)

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 4 Janvier 2008

• #6

Re : Références/Maximum

Bonjour,

En donnant un nom à la formule
(Insertion – Nom – Définir)

Dans le fichier joint, les formules sont nommées,
pas besoin de les valider pat ctrl, maj et entrée.

Sinon, par VBA, peut-être mais je n'y connais rien.

 

Pièces jointes

• AdresseAudricV1.zip

  4.2 KB · Affichages: 44

Vote positif 0 Vote négatif

A

Audric

Guest

• 4 Janvier 2008

• #7

Re : Références/Maximum

Ah ! Super ça marche 🙂

Merci encore !!

 

Vote positif 0 Vote négatif