Bonjour,
Je souhaite chercher ligne par ligne la valeur minimumd'une en exculant el chiffre 0.
J'utilise Application.WorksheetFunction.Min(myRange), qui ne permet pas de faire ceci.
Auriez vous uen solution?
Dim nb_phase_t As Long
Dim nb_lgt_t As Long
Dim zz As Long
Dim myRange_t As Range
nb_phase_t = Feuil2.Range("AZ4").End(xlToLeft).Column
nb_lgt_t = Feuil2.Range("C" & Rows.Count).End(xlUp).Row
For zz = 9 To nb_lgt_t 'test valeur min ligne par ligne
Set myRange_t = Feuil2.Range(Feuil2.Cells(zz, 6), Feuil2.Cells(zz, nb_phase_t))
Feuil6.Cells(18 - 9 + zz, 3) = Application.WorksheetFunction.Min(myRange)
Next ' next zz
Merci de votre aide.