XL 2010 Trouver l'indice de la ligne qui contient la valeur maximal

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion menal
  • 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
M

menal

XLDnaute Nouveau
Bonjour,
Je cherche à trouver l'indice de la ligne qui contient la valeur maximal afin de l’utiliser dans un calcul mais je n'arrive pas à la faire.
A titre d'exemple voici le code que j'ai fait et mon fichier excel
Je vous remercie d'avance
VB: 
Sub seq()
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Seq"
Sheets("Seq").Range("A1").Value = "NumT"
Sheets("Seq").Range("B1").Value = "NumSeq"
Sheets("Seq").Range("C1").Value = "NumPass"
Sheets("Seq").Range("D1").Value = "TempfinSeq"
DernLigne = Sheets("Em").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DernLigne
If (Sheets("Em").Range("B" & i + 1).Value = Sheets("Em").Range("B" & i).Value) Then
If (Sheets("Em").Range("C" & i).Value = 1) Then
ml = WorksheetFunction.max(Sheets("Em").Range("C2:C" & DernLigne))
ligne = ml.Row
Sheets("Seq").Range("A" & j).Value = Sheets("Em").Range("A" & ligne).Value
Sheets("Seq").Range("B" & j).Value = Sheets("Em").Range("B" & ligne).Value
Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("C" & ligne).Value
Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("D" & ligne).Value
j = j + 1
End If
End If
Next
End Sub
 

Pièces jointes

Trier par date Trier par votes
Bonjour

Teste comme ceci
VB: 
Sub seq()
  Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Seq"
  Sheets("Seq").Range("A1").Value = "NumT"
  Sheets("Seq").Range("B1").Value = "NumSeq"
  Sheets("Seq").Range("C1").Value = "NumPass"
  Sheets("Seq").Range("D1").Value = "TempfinSeq"
  DernLigne = Sheets("Em").Range("A" & Rows.Count).End(xlUp).Row
  j = 2
    For i = 2 To DernLigne
      If (Sheets("Em").Range("B" & i + 1).Value = Sheets("Em").Range("B" & i).Value) Then
        If (Sheets("Em").Range("C" & i).Value = 1) Then
          ml = WorksheetFunction.Max(Sheets("Em").Range("C2:C" & DernLigne))
          ligne = ml
          Sheets("Seq").Range("A" & j).Value = Sheets("Em").Range("A" & ligne).Value
          Sheets("Seq").Range("B" & j).Value = Sheets("Em").Range("B" & ligne).Value
          Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("C" & ligne).Value
          Sheets("Seq").Range("D" & j).Value = Sheets("Em").Range("D" & ligne).Value
          j = j + 1
        End If
      End If
    Next
 
Vote positif 0 Vote négatif
M12 à dit:
Bonjour

Teste comme ceci
VB: 
Sub seq()
  Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Seq"
  Sheets("Seq").Range("A1").Value = "NumT"
  Sheets("Seq").Range("B1").Value = "NumSeq"
  Sheets("Seq").Range("C1").Value = "NumPass"
  Sheets("Seq").Range("D1").Value = "TempfinSeq"
  DernLigne = Sheets("Em").Range("A" & Rows.Count).End(xlUp).Row
  j = 2
    For i = 2 To DernLigne
      If (Sheets("Em").Range("B" & i + 1).Value = Sheets("Em").Range("B" & i).Value) Then
        If (Sheets("Em").Range("C" & i).Value = 1) Then
          ml = WorksheetFunction.Max(Sheets("Em").Range("C2:C" & DernLigne))
          ligne = ml
          Sheets("Seq").Range("A" & j).Value = Sheets("Em").Range("A" & ligne).Value
          Sheets("Seq").Range("B" & j).Value = Sheets("Em").Range("B" & ligne).Value
          Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("C" & ligne).Value
          Sheets("Seq").Range("D" & j).Value = Sheets("Em").Range("D" & ligne).Value
          j = j + 1
        End If
      End If
    Next
Cliquez pour agrandir...
Merci, mais moi je veux aussi que la valeur de ligne change pour chaque valeur de la boucle
 
Vote positif 0 Vote négatif
Bonjour le fil, bonjour le forum,

Ton code modifié. Comme je ne sais pas exactement ce que tu veux faire j'ai juste adapté mais il me semple que les J sont inutiles puisqu'il n'y a qu'une seule valeur max...
VB: 
Sub seq()
Dim OS As Worksheet
Dim OD As Worksheet

Set OS = Worksheets("Em")
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Seq"
Set OD = ActiveSheet
OD.Range("A1").Value = "NumT"
OD.Range("B1").Value = "NumSeq"
OD.Range("C1").Value = "NumPass"
OD.Range("D1").Value = "TempfinSeq"
DernLigne = OS.Range("A" & Rows.Count).End(xlUp).Row
j = 2
For i = 2 To DernLigne
    If OS.Range("B" & i + 1).Value = OS.Range("B" & i).Value Then
        If OS.Range("C" & i).Value = 1 Then
            ml = WorksheetFunction.Max(OS.Range("C2:C" & DernLigne))
            ligne = OS.Columns(3).Find(ml, , xlValues, xlWhole).Row
            Sheets("Seq").Range("A" & j).Value = Sheets("Em").Range("A" & ligne).Value
            Sheets("Seq").Range("B" & j).Value = Sheets("Em").Range("B" & ligne).Value
            Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("C" & ligne).Value
            Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("D" & ligne).Value
            j = j + 1
        End If
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
Robert à dit:
Bonjour le fil, bonjour le forum,

Ton code modifié. Comme je ne sais pas exactement ce que tu veux faire j'ai juste adapté mais il me semple que les J sont inutiles puisqu'il n'y a qu'une seule valeur max...
VB: 
Sub seq()
Dim OS As Worksheet
Dim OD As Worksheet

Set OS = Worksheets("Em")
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Seq"
Set OD = ActiveSheet
OD.Range("A1").Value = "NumT"
OD.Range("B1").Value = "NumSeq"
OD.Range("C1").Value = "NumPass"
OD.Range("D1").Value = "TempfinSeq"
DernLigne = OS.Range("A" & Rows.Count).End(xlUp).Row
j = 2
For i = 2 To DernLigne
    If OS.Range("B" & i + 1).Value = OS.Range("B" & i).Value Then
        If OS.Range("C" & i).Value = 1 Then
            ml = WorksheetFunction.Max(OS.Range("C2:C" & DernLigne))
            ligne = OS.Columns(3).Find(ml, , xlValues, xlWhole).Row
            Sheets("Seq").Range("A" & j).Value = Sheets("Em").Range("A" & ligne).Value
            Sheets("Seq").Range("B" & j).Value = Sheets("Em").Range("B" & ligne).Value
            Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("C" & ligne).Value
            Sheets("Seq").Range("C" & j).Value = Sheets("Em").Range("D" & ligne).Value
            j = j + 1
        End If
    End If
Next i
End Sub
Cliquez pour agrandir...
Merci, mais peut être j'ai mal écrit l'algorithme, mon idée c'est de récupérer pour chaque valeur de i le maximum qui lui correspond après récupérer le numéro de ligne de ce maximum afin de remplir ma nouvelle feuil 🙁
La sortie ça devrait semble au fichier en PJ
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour,

Peut-être ceci :
ml = Sheets("Em").Range("C:C").Find(Application.WorksheetFunction.Max(Sheets("Em").Range("C2:C" & DernLigne)), LookIn:=xlValues, lookat:=xlWhole).Row

[edit]
menal à dit:
mon idée c'est de récupérer pour chaque valeur de i le maximum qui lui correspond après récupérer le numéro de ligne de ce maximum
Cliquez pour agrandir...
Alors ce que j'ai écrit ne doit pas être bon... 🙁
[/edit]
 
Dernière édition:
Vote positif 0 Vote négatif
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

Discussions similaires

G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
694
Gestionnaire_rh
G
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
229
Abi23
A
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
455
sebastien176
S
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
166
Pierreavecunp
P
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
703
Compte Supprimé 979
C
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
1 K
fanch55
fanch55
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
537
florian50470
F
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
248
piga25
piga25
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
238
escudo
E
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
467
Francky79
F
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
589
GClaire
G
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
675
escudo
E
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
712
Mody200
M
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
cathodique
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
776
jurassic pork
jurassic pork
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
604
loreak
L
M
  • Question Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
795
job75
job75
patricktoulon
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
645
patricktoulon
patricktoulon
Messan
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
903
Messan
Messan
Retour