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

Résolu
erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
- 15 juin 2005 à 14:16
erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
- 16 juin 2005 à 09:44
Bonjour a tous,
je travaille sur excel,j'ai une feuille CLIENT a 9 colonnes et je m'intéresse au deux premiè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ères lettres saisies dans la zone de texte.La liste sera affiché 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ès ca m'affiche tous les noms des clients commencant par BAR dans le 2ème userform.
Les noms des clients ne sont pas rangés dans l'ordre alphabétique.
Kelkun pourai m'aider svp???
MERCI

2 réponses

cs_wape
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
15 juin 2005 à 23:08
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è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é !", vbCritical
Else
frmClient.cboClient.ListIndex = 0
frmClient.Show
End If


End Sub

wape
3
erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
1
16 juin 2005 à 09:44
Merci beaucoup ca marche ,jorai jamais trouvé.
Et comment on fait pour que ca exporte toute la ligne?
Merci
0