Problème de code : .select

Version imprimable

25/01/2012, 13h45
Vincent32

Problème de code : .select
Chers Tous,

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

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 :mrgreen:

Merci d'avance pour votre aide

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

25/01/2012, 14h17
Vincent32

Je n'ai testé que cette solution

Citation:

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 !