Discussion :

[Helios07]

Bonjour, bonjour...me revoilà

Voilà ce que je souhaite faire :

1) Sélectionner une cellule précise;
2) Lancer une recherche seulement dans la colonne où se trouve la cellule sélectionnée;
3) Etant donné que plusieurs résultats peuvent correspondre mais qu'un seul m'intéresse, je voudrais associer une condition au résultat pour affiner : En gros, si la valeur de la colonne A, même ligne que le résultat de la recherche, est égale à 16h, c'est la bonne valeur sinon, on passe au résultat suivant.
4) Pour terminer, une fois que le bon résultat est trouvé, je voudrais associer la valeur qui se trouve dans la colonne (à droite) voisine, même ligne à une variable "Bid".

Voilà, j'espère que j'ai été assez clair

Pour le moment, j'ai fait ça...

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
27
28
29
30
31
32
Dim DateCalcul As Date, Recherche As Variant
Dim AdresseRésultat1 As String, Bid As Variant
 
DateCalcul = "12/03/2007"
 
ActiveCell.Offset(0, -1).Select
Columns(ActiveCell.Column).Select
 
With Selection
 
Set Recherche = .Find(What:=DateCalcul, after:=ActiveCell, _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
 
    If Not Recherche Is Nothing Then
        Do
            AdresseRésultat1 = ActiveCell.Address
 
                If Range("A" & ActiveCell.Row) = "16h" Then
                    ActiveCell.Offset(0, 1).Select
                    Bid = ActiveCell.Value
                    Exit Do
                End If
 
            Set Recherche = .FindNext(after:=ActiveCell).Activate
 
                If Recherche.Address = AdresseRésultat1 Then
                    Exit Do
                End If
        Loop
    End If
End With

...mais ça ne fonctionne pas...je ne vois pas trop ce qui cloche, je pensais pourtant toucher au but ??

Merci pour votre aide

[Helios07]

Après quelques modifications, ça a l'air de fonctionner...mais il y a peut-être plus "propre" ?

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
27
28
29
30
31
32
33
34
35
36
37
38
'On Error Resume Next
 
Dim DateCalcul As Date, Recherche As Variant
Dim AdresseRésultat1 As String, Bid As Variant
 
DateCalcul = "12/03/2007"
 
ActiveCell.Offset(0, -1).Select
Columns(ActiveCell.Column).Select
 
With ActiveSheet.Columns(ActiveCell.Column)
 
Set Recherche = .Find(What:=DateCalcul, _
        LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
Recherche.Activate
 
AdresseRésultat1 = Recherche.Address
 
    If Not Recherche Is Nothing Then
        Do
            If Range("A" & ActiveCell.Row) = "16h" Then
                ActiveCell.Offset(0, 1).Select
                Bid = ActiveCell.Value
                Exit Do
            End If
 
            Set Recherche = .FindNext(after:=ActiveCell)
 
            Recherche.Activate
 
                If Recherche.Address = AdresseRésultat1 Then
                    Exit Do
                End If
        Loop
    End If
End With

[ouskel'n'or]

Oui, tu peux simplifier si tu effectues une recherche sur les lignes d'une seule colonne

Code :

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

1
2
3
4
5
            Do
                NoLigne = Recherche.Row + 1 'on mémorise le N° de ligne
                'Tu places ton saut de page
                Set Recherche = .FindNext(Recherche)
            Loop While Not Recherche Is Nothing And Recherche.Row > NoLigne

Tu rajoutes ton code dans la boucle
Ce code t'évite ces trois lignes

If Recherche.Address = AdresseRésultat1 Then
......Exit Do
End If

(Recherche.activate te sert à quoi ?)

[Helios07]

Merci

J'ai remarqué que si je ne sélectionnais pas la cellule contenant le résultat de la recherche (donc Recherche.activate), ceci ne fonctionnait pas :

Code :

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

1
2
If Range("A" & ActiveCell.Row) = "16h" Then
                ActiveCell.Offset(0, 1).Select