Discussion :

[cris_19]

Bonjour,

J'ai besoin de trouver la deuxième ligne avec un mot déclaré sur une base donnée. J'ai réussi 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, y a-t-il quelqu'un qui peut m'aider? Merci beaucoup 🙂

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

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
Function premierc(premier_mot As String) As Long
   Dim test As Boolean
   Dim iAs 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

[patricktoulon]

re
oulah!!!
et find et find next tu connais??? dans VBE tape F1

et meme autofilter encore plus rapide