Code VBA

bonjour ,

j'essaye de faire un code vba qui me permettrai de trouver dans un tableau la valeur la plus proche d'une autre .

ps : je sais le faire sans le code

merci de votre réponse

Bonjour,

Tu essayes, c'est bien... Mais qu'est ce que tu attends de nous ?

Je suppose que tu n'as pas réussi, et que tu as besoin d'aide ? Dans ce cas, peux-tu fournir un fichier illustratif pour voir comment se présente tes données et te faire une proposition directement dans le-dit fichier ?

Tu peux aussi soumettre tes essais à la critique, pour comprendre où ça coince et progresser...

Une proposition de macro :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lig As Long, LigMax As Long, Pos As Long 'Déclaration de variable

If Target.Address = "$F$2" Then 'Si la cellule modifié est F2, alors
    LigMax = Range("B" & Rows.Count).End(xlUp).Row 'On identifie la dernière ligne non vide de la liste de nombre
    Pos = 2
    For Lig = 2 To LigMax 'On parcourt les lignes
        If Abs(Target - Range("B" & Lig)) < Abs(Target - Range("B" & Pos)) Then Pos = Lig 'On compare l'écart entre le nombre de cette ligne et le plus proche trouvé jusqu'ici
    Next Lig
    Range("F5") = Range("B" & Pos) 'On renvoie le nombre associé
    Range("F6") = Range("A" & Pos) 'On renvoie la position de ce nombre
End If

End Sub

Merci Pedro ,

Je vais faire quelque modification pour l'adapter à ma macro .

amine697 a écrit :

Merci Pedro ,

Je vais faire quelque modification pour l'adapter à ma macro .

Pas de quoi, n'oublie pas d'indiquer que ton sujet est résolu, si c'est bien le cas !

PS : si tu peux changer le titre de ton sujet pour le rendre plus explicite et faciliter la recherche de futurs visiteurs, merci d'avance !