Urgent...Parcours d'une colonne + recherche vba excel [Résolu]

Signaler
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
-
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
-
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

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
6
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

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