Urgent...Parcours d'une colonne + recherche vba excelRésolu

Question

Bonjour a tous,
je travaille sur excel,j'ai une feuille CLIENT a 9 colonnes et je m'int&#233;resse au deux premi&#232;res colonnes c'est a dire le CODECLIENT et le NOMCLIENT.
En faite j'ai des centaines de noms et moi je veux juste que ca affiche dans une liste modifiable tous les noms commencant par les premi&#232;res lettres saisies dans la zone de texte.La liste sera affich&#233; dans un autre userform apart
Ex: je saisie dans la zone de texte du 1er Userform1
           BAR puis j'appuies sur un bouton OK et apr&#232;s ca m'affiche tous les noms des clients commencant par BAR dans le 2&#232;me userform.
Les noms des clients ne sont pas rang&#233;s dans l'ordre alphab&#233;tique.
Kelkun pourai m'aider svp???
MERCI

cs_wape · Accepted Answer

Bonjour,

Essaye qqch du genre :

Private Sub cmdRecherche_Click()


Dim oCel As Range


frmClient.cboClient.Clear


If txtRech.Text = "" Then
   txtRech.SetFocus
   MsgBox "Aucun crit&#232;re de recherche saisi !", vbCritical
   Exit Sub
End If


Worksheets("CLIENT").Select


For Each oCel In ActiveSheet.Range("A2:A" & ActiveSheet.Range("A65536").End(xlUp).Row)
   If oCel.Value Like txtRech.Text & "*" Then
      frmClient.cboClient.AddItem oCel.Value
   End If
Next oCel


If frmClient.cboClient.ListCount = 0 Then
   With txtRech
      .SelStart = 0
      .SelLength = Len(txtRech.Text)
      .SetFocus
   End With
   MsgBox "Aucun client trouv&#233; !", vbCritical
Else
   frmClient.cboClient.ListIndex = 0
   frmClient.Show
End If


End Sub

wape

erti1711 · Answer

Merci beaucoup ca marche ,jorai jamais trouv&#233;.
Et comment on fait pour que ca exporte toute la ligne?
Merci

Urgent...Parcours d'une colonne + recherche vba excel

2 réponses

Discussions similaires