Nombre inexistant ...

Bonjour




Dim NbRech As Long, NbPluPro As Long
Dim Trouve As Boolean

Trouve = False
NbPluPro = 0

NbRech = InputBox("Quel nombre cherchez-vous ?")

Sheets("Comparaison").Range("A4").Activate

Do While ActiveCell.Row < 65536 And ActiveCell.Value <> "" And Trouve = False
    If NbRech = ActiveCell.Value Then
        Trouve = True
        MsgBox "Nombre trouvé : " & ActiveCell.Value
    Else
        ActiveCell.Offset(1, 0).Select
        If Abs(NbRech - ActiveCell.Value) < Abs(NbRech - NbPluPro) Then
            NbPluPro = ActiveCell.Value
        End If
    End If
Loop

If Trouve = False Then
    MsgBox "Le nombre que vous demandez n'existe pas !"
    MsgBox "Le nombre le plus proche que celui cherché est : " & NbPluPro
End If

Alboure