Fonction pour trouver la deuxième ligne avec un mot déclaré

Bonjour,

J'ai besoin de trouver la deuxième ligne avec un mot déclaré sur une base donnée. J'ai reussi d'écrire le code pour identifier la première ligne avec le mot (par exemple ''sexe'') et maintenant j'ai besoin de trouver la prochaine ligne avec ce mot. Je dois prendre en compte le fait que la base de données inclut aussi des lignes vides. Ayant peu de connaissances en vba, s'il vous plaît, est-ce qu'il y a quelqu'un qui peut m'aider? Merci beaucoup

P.S. J'affiche ci-dessous mon code pour identifier la première ligne:

Function premierc(premier_mot As String) As Long

Dim test As Boolean

Dim i As Long

i = 1

test = False

While test = False

If Trim(ActiveSheet.Cells(i, 2).Value) = premier_mot Then

premierc = i

test = True

Else

i = i + 1

End If

Wend

End Function

Sub testfunction()

Dim mot As String

Dim premierligne As Long

mot = InputBox("mot cherche")

premierligne = premierc(mot)

MsgBox ("premier ligne " &premierligne)

End Sub

Bonjour,

Si tu le permets ... si tu as besoin d'une fonction qui retrouve la deuxième occurrence d'un mot ... c'est possible sans macro ...

As-tu un petit fichier test à joindre ...?

Bonjour

Un essai à tester.

[quote]Function premierc(premier_mot As String) As Long
    Dim test&
    Dim i As Long
    i = 3
    test = 0
    While test < 2
        If Trim(ActiveSheet.Cells(i, 2).Value) = premier_mot Then
            premierc = i
            test = test + 1
        End If
        i = i + 1
    Wend
 End Function

 Sub testfunction()
    Dim mot As String
    Dim premierligne As Long
    mot = InputBox("mot cherche")
    premierligne = premierc(mot)
    MsgBox ("2° ligne " & premierligne)
 End Sub[/quote]

Bye !