Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

valeur max en fonction de deux autres colonnes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Raphael35
  • 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 !

S'inscrire
R

Raphael35

Guest
Bonjour,

J'ai un fichier avec des nom de puits, les ages géologiques et une mesure géochimiques du TOC.

Je cherche une macro pour ne garder que la valeur maximale par age et par puits. Par exemple pour le puits 73/13-1, je voudrais la valeur maximale de toc du Lower jurassic, celle du lower cretaceous, etc pour chaque puits.

J'ai essayé de combiner des macros trouvées sur ce site mais je dois avouer que c'est un échec ...

Merci par avance pour votre aide.
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : valeur max en fonction de deux autres colonnes

Bonjour le forum,

G1 :
Code: 
=MAX(SI((A1:A1000=E1)*(B1:B1000=F1);C1:C1000))
Formule matricielle à valider avec : CTRL MAJ ENTREE

 
Vote positif 0 Vote négatif
Re : valeur max en fonction de deux autres colonnes

Bonjour,

Merci pour votre réponse.

Il y a un problème, en fait dès qu'il atteint la valeur max, il reprend son calcul. Par exemple ici quand il arrive à 21.25 :

73/13-1 Unknown 0.18 73/13-1 Unknown 21.25
73/13-1 Unknown 1.25 73/13-1 Unknown 21.25
73/13-1 Unknown 0.94 73/13-1 Unknown 21.25
73/13-1 Unknown 21.25 73/13-1 Unknown 21.25
73/13-1 Unknown 9.64 73/13-1 Unknown 9.64
73/13-1 Unknown 2.17 73/13-1 Unknown 2.17
73/13-1 Unknown 0.95 73/13-1 Unknown 0.95
73/13-1 Unknown 0.13 73/13-1 Unknown 0.28
73/13-1 Unknown 0.08 73/13-1 Unknown 0.28
73/13-1 Unknown 0.23 73/13-1 Unknown 0.28
73/13-1 Unknown 0.24 73/13-1 Unknown 0.28
73/13-1 Unknown 0.28 73/13-1 Unknown 0.28


De plus il y a un message d'erreur (un point d'exclamation sur le coté de la cellule) qui me dit que "la formule omet les cellules adjacentes".
 
Vote positif 0 Vote négatif
Re : valeur max en fonction de deux autres colonnes

Bonjour Raphael35, excfl

un essai par macro:

Code: 
Sub TriMax()
 Dim Dico1, Dico2, TabPuits, TabAge, TabFin()
 Dim DerL As Long
 Set Dico1 = CreateObject("Scripting.Dictionary")
 Set Dico2 = CreateObject("Scripting.Dictionary")

 Application.ScreenUpdating = False

 With Worksheets("Feuil1")
 DerL = .Range("A" & Rows.Count).End(xlUp).Row
 TabPuits = .Range("A2:A" & DerL)
 For i = LBound(TabPuits) To UBound(TabPuits)
    Dico1(TabPuits(i, 1)) = ""
 Next

For Each Puits In Dico1
    .Range("A1:C" & DerL).AutoFilter Field:=1, Criteria1:=Puits
    TabAge = .Range("A2:c" & DerL).SpecialCells(xlVisible)

    For i = LBound(TabAge) To UBound(TabAge)
        If Dico2.Exists(TabAge(i, 2)) Then
            If TabAge(i, 3) > Dico2(TabAge(i, 2)) Then Dico2(TabAge(i, 2)) = TabAge(i, 3)
        Else
            Dico2(TabAge(i, 2)) = TabAge(i, 3)
        End If
    Next
    
    For Each Age In Dico2
        Ind = Ind + 1
        ReDim Preserve TabFin(1 To 3, 1 To Ind)
        TabFin(1, Ind) = Puits
        TabFin(2, Ind) = Age
        TabFin(3, Ind) = Dico2(Age)
    Next
    
    Dico2.RemoveAll
    .Range("A1:C" & DerL).AutoFilter
 Next
    .Range("E2").Resize(UBound(TabFin, 2), UBound(TabFin, 1)) = Application.Transpose(TabFin)
 End With
 Application.ScreenUpdating = True
End Sub

le résultat est copié à partir de E2

NB Nécessite d'ajouter la référence : Microsoft Scripting Runtime dans Outils, Références de la Feuille VBE

A+
 
Vote positif 0 Vote négatif
Re : valeur max en fonction de deux autres colonnes

Bonjour à tous.


À Paf :


  • Tant qu'à déclarer et typer les variables, autant les déclarer toutes :
    Code: 
    Dim i&, Puits, AGE, Ind&
Dim Dico1, Dico2, TabPuits, TabAge, TabFin()
Dim DerL As Long
Set Dico1 = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
    L'exécution n'en sera que plus rapide.

  • Comme il est rédigé, votre code ne nécessite pas d'ajouter la référence Microsoft Scripting Runtime au projet.
    Par contre, la déclaration de cette référence est nécessaire si vous déclarez
    VB: 
    Dim Dico1 As New Scripting.dictionary, Dico2 As New Scripting.dictionary
    Dans ce cas, il convient bien sûr de supprimer
    Code: 
    Set Dico1 = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")


Bonne journée.


ℝOGER2327
#7936

Lundi 9 Gidouille 142 (Sainte Outre, psychiatre - fête Suprême Quarte)
5 Messidor An CCXXIII, 5,2992h - mulet
2015-W26-2T12:43:05Z
 
Vote positif 0 Vote négatif
Re : valeur max en fonction de deux autres colonnes

Re tous et bonjour ROGER2327


@ ROGER2327

merci pour tous ces conseils,

pour les déclarations j'ai omis les variables i et Ind. Quant à Puits et Age j'ai fait l'impasse, ne sachant pas quel type leur attribuer.

Comme il est rédigé, votre code ne nécessite pas d'ajouter la référence Microsoft Scripting Runtime au projet.
Cliquez pour agrandir...

j'avais rencontré quelques soucis qui avaient nécessité l'ajout de cette référence . Après quelques tests cette référence n'est, effectivement, pas nécessaire

A+
(réponse tardive due à coupure ( au sens propre) de ma ligne téléphonique)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Optimisation formule recherche valeur en fonction de plusieurs critères
Réponses
5
Affichages
269
Nounours4173
N
L
  • Question Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
4 K
Staple1600
C
  • Question Question
Microsoft 365 Formule VBA Limite caractères en fonction d'une valeur de cellule
Réponses
14
Affichages
1 K
Cagnet
C
P
  • Question Question
Microsoft 365 Automatisation avec création de fichier et d'onglets en fonction des valeurs
2
Réponses
15
Affichages
2 K
pene
P
M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
J
  • Question Question
XL 2019 Faire varier un pourcentage en fonction de valeurs "texte" d'une autre cellule
Réponses
4
Affichages
716
Jean Pierre 93
J
  • Résolu(e)
XL 2019 Attribuer des points a une valeur en fonction de 3 tranches de valeurs
Réponses
5
Affichages
2 K
Victor21
G
  • Résolu(e)
XL 2013 VBA - macro pour ouvrir un fichier en fonction de la valeur d'une cellule
Réponses
4
Affichages
950
Gaalhad33
G
R
  • Résolu(e)
XL 2016 Erreur type 13 - calcul variable en fonction de trois autres
Réponses
6
Affichages
1 K
Dranreb
F
  • Question Question
Microsoft 365 Renvoyer un champ texte en fonction de deux cellules sur une même ligne dans un tableau
Réponses
7
Affichages
1 K
FIPA
F
R
  • Question Question
Microsoft 365 RESOLU - Afficher nombre de ligne en fonction d'une valeur dans une cellule (VBA)
Réponses
4
Affichages
2 K
reyjak
R
W
  • Question Question
XL 2010 recherche d'une valeur en fonction de colonnes dont les intitulés sont des plages de valeurs
Réponses
4
Affichages
2 K
WalloWG
W
L
  • Résolu(e)
XL 2019 Définir le format d'une MFC en fonction de la mise en forme d'une cellule existante.
Réponses
2
Affichages
1 K
ludovicL
L
Q
  • Question Question
XL 2010 COMPTER NOMBRE DE CASES EN FONCTION DE DEUX CONDITIONS EXCEL
Réponses
3
Affichages
1 K
queen_s
Q
L
  • Question Question
XL 2016 [RESOLU] VBA : Rechercher et restituer à l'utilisateur une valeur contenue dans le classeur en fonction de la valeur d'une autre cellule
Réponses
13
Affichages
4 K
James007
A
  • Question Question
XL 2016 VBA Copie de donnée en fonction d'une condition
Réponses
1
Affichages
1 K
AntonG
A
M
  • Question Question
XL 2016 Menu déroulant avec sélection de colonnes à afficher/cacher en fonction du choix
Réponses
4
Affichages
3 K
Mike92500
M
E
  • Question Question
XL 2019 Comment appliquer un pourcentage différent en fonction d'une intervalle de valeurs
Réponses
5
Affichages
2 K
Elmarabout
E
S
  • Question Question
Filtrer un tableau en fonction de la valeur de deux cellules
Réponses
9
Affichages
3 K
Ste Barbe
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…