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

Rechercher cellules

maval

XLDnaute Barbatruc

Pièces jointes

M12

XLDnaute Accro

maval

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency