Extraire numéro ligne en fonction valeur cellule

[kheldar]

Bonjour au forum.

Je souhaiterai avoir la syntaxe VBA pour extraire le numéro de ligne (row) d'une cellule comportant une certaine valeur.

Par exemple, si j'ai 1300 lignes remplies avec pour chacune de ces lignes une valeur dans la colonne A, et que dans cette colonne je recherche la valeur "BIG BANG" qui est dans la cellule A250 cette fois-ci, je souhaiterai pouvoir extraire la valeur "250" car "BIG BANG" présent en ligne 250; chaque valeur de cellule est unique, aucun risque de doublon.

En espérant avoir été clair sur ma demande, merci d'avance.
Cordialement.

 

[Pierrot93]

Re : Extraire numéro ligne en fonction valeur cellule

Bonjour Kheldar,

essaye peut être le code ci-dessous :

Option Explicit
Sub test()
Dim x As Range, s As String
s = "BIG BANG"
Set x = Range("A:A").Find(s, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox s & " trouvé sur la ligne : " & x.Row
End Sub

bonne journée
@+

 

[kheldar]

Re : Extraire numéro ligne en fonction valeur cellule

Merci Pierrot93

Grâce à ton code, j'ai pu faire fonctionné ma macro comme je le souhiatais.
Je trouve bien mes numéros de lignes en fonction des valeurs de cellule recherchées.

Merci encore.
Cordialement.