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

erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention - 15 juin 2005 à 14:16 - Dernière réponse : erti1711 75 Messages postés samedi 2 avril 2005Date d'inscription 16 juin 2006 Dernière intervention
- 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
Afficher la suite 

2 réponses

Meilleure réponse
cs_wape 262 Messages postés samedi 21 décembre 2002Date d'inscription 19 décembre 2010 Dernière intervention - 15 juin 2005 à 23:08
3
Merci
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

Merci cs_wape 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 76 internautes ce mois-ci

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.