[XL-2000] Problème recherche et déplacement sur la ligne [Résolu]

[juju05]

Bonjour,

J'ai créé une macro. qui se connecte à une bd oracle et qui doit ensuite chercher si l'occurrence du recordset est présente dans une colonne. Si tel est le cas, une colonne de la ligne concernée doit être renseignée par un "x".

Je sais utiliser un recordset et un peu laméthode find. Par contre je ne sais pas comment récupérer le numéro de ligne sur lequel se trouve l'occurence et me déplacer en colonne.

Je vous remercie d'avance.
Julien.

[rjamin]

Bonjour,
Voyez du côté de INDEX et MATCH associés.

http://excel.developpez.com/faq/inde...iserIndexEquiv

[juju05]

Je vous remercie de votre réponse mais je souhaite le faire par vba et non par ne formule.
Je ne connaissai pas cette formule. Elle me sera peut-être utile ailleurs.

[bbil]

montre nous comment tu utilise la méthode find ..

[juju05]

Je l'ai utilisé ailleurs pour savoir si je trouvai une donnée sur l'ensemble des lignes renseignées d'une colonne:

Code :

1
2
3
4
5
6
7
With Worksheets(1)
             Set rFound = .Range("E3:E" & lastlig1).Find(num_wo, LookIn:=xlValues)
             ' Si trouvé
             If Not rFound Is Nothing Then
                trouve = 1
             End If
        End With

Ce que je voudrai à présent, c'est me déplacer de plusieurs colonnes sur la ligne sur laquelle j'ai trouvé ma donnée et mettre un "x" dans la cellule.

Merci d'avance.
Julien.

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
Dim rFound As Range
Dim LaLig As Long
 
With Worksheets(1)
    Set rFound = .Range("E:E").Find(Num_Wo, LookIn:=xlValues, lookat:=xlWhole)
    If Not rFound Is Nothing Then
        LaLig = rFound.Row
        Set rFound = Nothing
        .Range("K" & LaLig) = "X"                'On mets un X sur la cellule K de la ligne où on a trouvé Num_Wo en colonne E
    End If
End With

[Qwazerty]

Salut
[Grillé]mais code différent :p[/Grillé]

Il suffit d'utiliser Offset

Code :

rFound.Offset(0,6) = "X"

++
Qwaz

[juju05]

Merci beaucoup.
Cela me fait beaucoup avancer.
Bon week-end.
Julien.