calcul de maximum et connaitre emplacement de cette case

  • Initiateur de la discussion Initiateur de la discussion loic3869
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

loic3869

XLDnaute Occasionnel
Bonjour,

J’ai une série de valeurs dans le tableur (colonne A) et je souhaiterais connaître le maximum de ces valeurs (opération réussie) à chaque valeur correspond une autre valeur (colonne B) dans une autre colonne et je souhaiterais connaître la valeur de la colonne B correpondant au maximum de la colonne A. Est-ce possible ?

Merci d’avance.

Bonne journée.

Loic.
 
Re : calcul de maximum et connaitre emplacement de cette case

Admettons quen colonne A ta 23 lignes allant de 1 à 23.
En colonne B ta 23 lignes allant de A101 à A123.

Voci la formule : =RECHERCHEV(MAX(A1:A23);A1:B23;2;FAUX)
Ca va te trouver la valeur max de la colonne a (23) et te donner la valeur correspondante (A123).

J'ai mis un fichier en piéce jointe où tu verra mon exemple en pratique : http://cjoint.com/?ewpJ4HOpPJ
(je l'ai mis aussi dans mon message, suite au message de BrunoM45)

En espérant avoir pu t'aider à résoudre ton problème 🙂
 

Pièces jointes

Dernière modification par un modérateur:
Re : calcul de maximum et connaitre emplacement de cette case

Bonjour à tous,

Ant75,
évite de mettre les petits fichiers sur cjoint.com, sinon dans 22 jours il ne sera plus disponible !

Et si quelqu'un cherche cette solution, il n'aura plus le fichier 😉

A+
 

Pièces jointes

Re : calcul de maximum et connaitre emplacement de cette case

Bonjour à tous


Par macro
Code:
Sub test_i()
'auteur: Ken Marron
'nom macro originale:FindMaxCell
Dim dMax As Double
Dim aVals As Variant
Dim rS As Range
Dim i As Integer, j As Integer
Set rS = Range("A1:A" & [A65536].End(xlUp).Row)
aVals = rS
dMax = Application.WorksheetFunction.Max(rS)
For i = 1 To UBound(aVals, 1)
For j = 1 To UBound(aVals, 2)
If dMax = aVals(i, j) Then GoTo done
Next j
Next i
done:
Set rS = rS.Cells(1).Offset(i - 1, j - 1)
MsgBox "Adresse de la cellule avec la valeur maximale: " & rS.Address _
& (Chr(13) & Chr(10)) & "Valeur = " _
& rS.Value & Chr(13) & "Valeur de la cellule adjacente (colonne B) : " _
& rS.Offset(0, 1)
End Sub
PS: il y a surement plus simple

Par formule:
Pour renvoyer l'adresse de la cellule (en colonne A) contenant le max
• en C1
Pour renvoyer la valeur
=INDEX(A:A;EQUIV(MAX(A:A);A:A;0))

• en D1 (pour renvoyer l'adresse du max)
=CELLULE("adresse";INDEX(A:A;EQUIV(MAX(A:A);A:A;0)))
Pour renvoyer le contenu de la cellule adjacente en colonne B
• en E1

=DECALER(INDIRECT(SUBSTITUE(D1;"$";""));0;1)
 
Dernière édition:
Re : calcul de maximum et connaitre emplacement de cette case

Re

• ant75
=CELLULE("adresse";INDEX(A:A;EQUIV(MAX(A:A);A:A;0) ))
Cette formule renvoie l'adresse de la cellule contenant la valeur maximale
de la plage spécifiée (et non pas la valeur)
 
Re : calcul de maximum et connaitre emplacement de cette case

Merci votre fonction marche très bien ant75.Maintenant j’ai une colonne C qui contient d’autres valeurs. Je souhaiterais que la valeur C23 s’affiche dans une autre case. Et C23 est la valeur de C au maximum de A.
Comment faire ?

Merci d’avance.
 
Re : calcul de maximum et connaitre emplacement de cette case

Si j'ai bien compris ce que tu demande,

Alors la formule est :
=SI((RECHERCHEV(MAX(A1:A23);A1:C23;3;FAUX))>(MAX(A1:A23));(MAX(A1:A23));RECHERCHEV(MAX(A1:A23);A1:C23;3;FAUX))

Dans C23 met un chiffre plus grand que A23 et ton résultat sera A23.
Dans C23 met un chiffre plus petit que A23 et ton résultat sera C23.

J'ai mis à jour le fichier et l'inclus dans ce message.

Sinon, si c'est pas ça, reformule ce que tu veux, ou donne nous directement ton fichier qu'on puisse mettre les formules dedans.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
227
Réponses
0
Affichages
188
Retour