Rechercher cellules

maval · 10 Septembre 2017

Bonjour,

J'ai dans une colonnes"F6" une liste de nom. J'ai sur Userform un code pour rechercher a partir de la première lettre .
Mon code:

Code:

Private Sub ComboBox1_Change()
test = 0
For i = 6 To Range("F65535").End(xlUp).Row
If Left(Cells(i, 6), 1) = ComboBox1.Text Then
Rows(i).Select
test = 1
Exit For
End If
Next i
If test = 0 Then MsgBox ("AUCUN RESULTAT")
End Sub

Mais j'ai toujours ma MsgBox qui s'ouvre sans me donné la ligne?

Je vous remercie de votre aide

Cordialement

Max

M12 · 10 Septembre 2017

Bonjour,

En VBA il faut faire attention à la casse (Majuscule et Minuscule)

Code:

Private Sub ComboBox1_Change()
  Dim i As Integer
  test = 0
  For i = 6 To Range("F65535").End(xlUp).Row
    If UCase(Left(Cells(i, 6), 1)) = ComboBox1.Text Then
      'MsgBox ("Résultat trouvé: " & vbLf & Cells(i, 6) & vbLf & "en ligne " & i)
      Rows(i).Select
      test = 1
      Exit For
    End If
  Next i
' If test = 0 Then MsgBox ("AUCUN RESULTAT")

 End Sub

maval · 10 Septembre 2017

Bonjour M12

Je te remercie sa fonctionne Nickel

Bonne journée

Rechercher cellules

maval

XLDnaute Barbatruc

Pièces jointes

M12

XLDnaute Accro

maval

XLDnaute Barbatruc

Discussions similaires