Bonjour, Bonjour !
Patrick, ta voie par addition / multiplication peut être une erreur car par exemple avec 12, 11, 13 se suivant,
3 x 12 = 36 et 12 + 11 + 13 = 36 ‼
Une voie simple par comparaison de chaînes de caractères :
1 2 3 4 5 6 7
| Sub Demo1()
Dim Rg As Range
For Each Rg In Range("A1", [A1].End(xlDown)(-1))
If Application.Rept(Rg.Value, 3) = Rg.Value & Rg(2).Value & Rg(3).Value Then V = Application.Min(Rg.Value, IIf(V, V, Rg.Value))
Next
MsgBox IIf(V, V, "Pas de valeur !")
End Sub |
Ou tout simplement
1 2 3 4 5 6 7
| Sub Demo2()
Dim Rg As Range
For Each Rg In Range("A1", [A1].End(xlDown)(-1))
If Rg(2).Value = Rg.Value And Rg(3).Value = Rg.Value Then V = Application.Min(Rg.Value, IIf(V, V, Rg.Value))
Next
MsgBox IIf(V > "", V, "Pas de valeur !")
End Sub |
______________________________________________________________________________________________________
Merci de cliquer sur
pour chaque message ayant aidé puis sur
pour clore cette discussion …
______________________________________________________________________________________________________
Je suis Paris, Charlie, …
Partager