Discussion :

[Stef31]

Bonjour,
je souhaite trouver dans une colonne l'adresse de la cellule dont la partie entière contient la valeur rechercher.
je m'explique:

• la colonne A possède 100 valeurs décimales aléatoires.
• je cherche une valeur dont la partie entière est 102

pour exemple j'ai en A42 la valeur 34.26102
j'ai en A89 la valeur 102.698

ce que je souhaite trouver c'est bien la cellule "A89" et en récupérer l'adresse.
or avec le code dont je me sert (avec Réponse=102):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
        colonne_freq = 2 * i - 1
        DerLigne = Worksheets("Résultats_Log").Cells(66000, colonne_freq).End(xlUp).Row
        'trouve la position  recherchée  Worksheets("Résultats_Log").Select
        With Worksheets("Résultats_Log")
            Set maPlage = .Range(.Cells(4, colonne_freq), .Cells(DerLigne, colonne_freq)).Find(what:=Réponse, LookAt:=xlPart)
            If Not maPlage Is Nothing Then
                FirstAddr = maPlage.Address
            End If

FirstAddr me donne A42 et pas A89...
je me trouve dans l'impasse.
merci de votre lecture
Stef

[tototiti2008]

Bonjour Stef,

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Function AdrEnt(Valo As Long, Plage As Range) As String
Dim Tablo, i As Long, j As Long, Trouve As Boolean
    AdrEnt = ""
    Tablo = Plage.Value
    Trouve = False
    For i = LBound(Tablo, 1) To UBound(Tablo, 1)
        For j = LBound(Tablo, 2) To UBound(Tablo, 2)
            If IsNumeric(Tablo(i, j)) Then
                If Int(Tablo(i, j)) = Valo Then 'Voir s'il faut utilise Fix plutôt que Int
                    AdrEnt = Plage.Range("A1").Offset(i - 1, j - 1).Address(0, 0)
                    Trouve = True
                End If
            End If
            If Trouve Then Exit For
        Next j
        If Trouve Then Exit For
    Next i
    Erase Tablo
End Function
 
 
Sub Test()
    MsgBox AdrEnt(102, Range("A1:A100"))
End Sub

[Stef31]

Bonjour Tototiti,
Merci, ça marche impeccable si la valeur est entrée en "dur" dans le code. mais si 102 (dans mon exemple) est une variable, j'ai l'erreur "type d'argument ByRef incompatible". je ne trouve pas d'aide en ligne.
peux tu m'expliquer?
merci

[tototiti2008]

Re,

ByRef : l'argument passé en référence peut être modifié par la fonction
ByVal : argument passé en valeur (en lecture seule en quelque sorte)

essaie de changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function AdrEnt(Valo As Long.....

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function AdrEnt(Byval Valo As Long....

[eriiic]

Bonjour à tous,

sans boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Dim lig As Long, v As Long
    v = 102
    lig = Evaluate("MAX(((A1:A100)>=" & v & ")*((A1:A100)<" & v & "+1)*row(A1:A100))")

0 si non trouvé
eric

[Stef31]

Merci à tous les deux, c'est bien ce que je recherchais.
Stef