XL 2013 Rechercher la ligne commençant par la lettre ?

[maval]

Bonjour,

J'ai sur une feuille une liste de nom, et j'aimerai retrouver la première ligne commençant par la lettre choisis de mon formulaire.

Je vous remercie davance

 

[phlaurent55]

Re : Rechercher la ligne commençant par la lettre ?

Bonjour Max,

Private Sub ComboBox1_Change()
For i = 2 To Range("B65535").End(xlUp).Row
If Left(Cells(i, 2), 1) = ComboBox1.Text Then
MsgBox ("Résultat trouvé: " & vbLf & Cells(i, 2) & vbLf & "en ligne " & i)
Exit For
End If
Next i
End Sub

ou ceci:

Private Sub ComboBox1_Change()
test = 0
For i = 2 To Range("B65535").End(xlUp).Row
If Left(Cells(i, 2), 1) = ComboBox1.Text Then
MsgBox ("Résultat trouvé: " & vbLf & Cells(i, 2) & vbLf & "en ligne " & i)
test = 1
Exit For
End If
Next i
If test = 0 Then MsgBox ("AUCUN RESULTAT")
End Sub

à+
Philippe

 

[maval]

Re : Rechercher la ligne commençant par la lettre ?

Bonjour Philippe

Je te remercie mais se que j'aurais aimé s'est que le la ligne concerner soit sélectionner !

Bonne journée

 

[phlaurent55]

Re : Rechercher la ligne commençant par la lettre ?

Re,

remplace:
MsgBox ("Résultat trouvé: " & vbLf & Cells(i, 2) & vbLf & "en ligne " & i)

par:
Rows(i).Select

à+
Philippe

 

[maval]

Re : Rechercher la ligne commençant par la lettre ?

Re,

Je te remercie et te souhaite une bonne journée