Problème de code : .select [Résolu]

[Vincent32]

Chers Tous,

J'ai une feuille que je nommerais pour faire dans l'originalité : "Feuil1" !!

Cette dernière est masquée dans mon classeur. Cependant elle contient des données et mon code VBA doit réaliser l'opération ci-dessous :

Code :

1
2
Sheets("Feuil1").Select
            Val1 = [Match(MIN(ABS(1900-(A2:A65536))),ABS(1900-(A2:A65536)),0)] 'Trouve la ligne qui comporte la valeur la plus proche de 1900

Cependant puisque la feuille est masquée, il ne peut pas la sélectionner (logique !). Si je remplace le .select par une boucle with ... end with ça ne fonctionne pas. Est ce que quelqu'un aurait une idée pour éradiquer ce problème

Merci d'avance pour votre aide

[ZebreLoup]

Ne pas faire de Select dans du code !!!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim sh As Worksheet
Dim rg As Range
Dim minVal As Double, ligneProche As Long
Dim c As Range
 
Set sh = Sheets("Feuil1")
Set rg = sh.Range(sh.Range("A2"), sh.Range("A65536").End(xlUp))
 
minVal = Abs(rg.Cells(1, 1).Value - 1900)
ligneProche = 2
For Each c In rg
    If Abs(c.Value - 1900) < minVal Then
        minVal = Abs(c.Value - 1900)
        ligneProche = c.Row
    End If
Next c

Tu pouvais aussi faire :

Code :

Val1 = [Match(MIN(ABS(1900-(Feuil1!A2:A65536))),ABS(1900-(Feuil1!A2:A65536)),0)]

Mais je n'aime pas trop faire des Evaluate, chacun ses goûts

[Vincent32]

Je n'ai testé que cette solution

Tu pouvais aussi faire :

Code :

Val1 = [Match(MIN(ABS(1900-(Feuil1!A2:A65536))),ABS(1900-(Feuil1!A2:A65536)),0)]

Mais je n'aime pas trop faire des Evaluate, chacun ses goûts

Non pas par esprit de contradiction où que j'ai des gouts radicalement différents , mais elle m'a simplement l'air plus simple à mettre en oeuvre dans mon code !

Merci beaucoup ZebreLoup pour cette solution simple et efficace et surtout qui fonctionne très bien !