Trouver la valeur la plus proche d'une référence

Bonjour le forum,

j'ai 5 tableaux les un en dessous des autres, je shouaite prendre la meilleur valeur des 5 tableaux pour en faire un seul, puis effacer les 4 autres.

je souhaite écrire un code pour trouver la valeur la plus proche de 1,05. Ces valeurs se trouvent toujours au méme endroit dans les 5 tableaux: H12,H33,H54,H75,H96.

La valeur la plus proche de 1,05 seras collé dans la cellule H12.

Hello,

Peux-tu partager un document stp

Malheureusement non je ne peux rien faire sortir (pas internet sur le pc) mais c'est vraiment tout simple il faut 5 cases aux positions H13,H33,H54,H75,H96.J'ai deja coder la macro qui supprime les 4 tableaux à la fin.

Re,

Voici une proposition pour trouver la valeur la plus proche

mini = 1000000
For Each c In Range("B2, B4, B6, B8, B10")
     v = Abs(1.05 - c)
     If v < mini Then mini = v: cmini = c
Next c

Debug.Print cmini

Merci MC Charon,

je place le code dans la feuille, où dans un module ?

mini = 1000000
For Each c In Range ("H13,H33,H54,H75,H96")
v=Abs(1.05 - c)
If v<mini Then mini = v: cmini = c
Next c 
Debug.Print cmini
End Sub

Hello,

Le code permet de connaitre la valeur la plus proche de 1,05, après vous pouvez le placer dans le votre code pour supprimer les tableaux

Merci pour l'aide j'ai fini d'adapter mon code!