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