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

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

  • Classeur1.xlsx
    12.2 KB · Affichages: 8
Trier par date Trier par votes
M12

M12

XLDnaute Accro
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
M

menal

XLDnaute Nouveau
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
Robert

Robert

XLDnaute Barbatruc
Repose en paix
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
M

menal

XLDnaute Nouveau
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

  • Classeur1.xlsx
    12.1 KB · Affichages: 4
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
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

Discussions similaires

B
  • Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
199
Compte Supprimé 979
C
F
  • Question
XL 2019 erreur 1004
Réponses
8
Affichages
220
florian50470
F
F
  • Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
158
Francky79
F
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
119
GClaire
G
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
291
escudo
E
M
  • 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
400
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
925
pelerin65
P
M
  • Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
387
job75
job75
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
184
loreak
L
G
  • Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
213
guiyom
G

Membres actuellement en ligne

6 membres et 72 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 023
Messages
2 084 715
Membres
102 637
dernier inscrit
TOTO33000