recherche d'une ligne dans un tableau

[oriop]

Bonjour,

voici mon problème :


je dois retrouver dans un tableau une ligne contenant trois paramètres rentrés par l'user dans un userform précédent.

voici un fichier joint ki vous permettra d'apprecier mieux le probleme

a savoir : ds mon fichier reel j'ai bcp plus de choix et il faut ke la source soit actualisable donc pas d'énumération des cas koi !!

si kkun a une idee ou une solution parce que la c'est vraiment galere pour moi

merci d'avance a tous

🙂

 

[Deedo]

'lancer l'outils filtre automatique sur ton tableau
If Not ton_tab.range('A1').AutoFilter Then ton_tab.range('A1').AutoFilter

'OPTIONNEL si tes noms de colonnes changent
'recherche de la colonne correspondant au premier critère de ton userform
range('A1').Select
range(Selection, Selection.End(xlToRight)).Select
Selection.Find(What:='nomdemacolonne', After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

'récupération du numéro de la colonne correspondante
li_numcol1 = ActiveCell.Column

'tu refais la manip pour les 2 autres critères
'donc tu récupère l'index de tes 3 colonnes
li_numcol1
li_numcol2
li_numcol3

ton_tab.range('A1').AutoFilter Field:=li_numcol1, Criteria1:='' & zoneform1.Value ,Field:=li_numcol2, Criteria1:='' & zoneform2.value,Field:=li_numcol3, Criteria1:='' & zoneform2.value



'SI TES NOMS NE CHANGENT JAMAIS
'et bien tu repères les numéros de colonnes concernés par le filtre puis

ton_tab.range('A1').AutoFilter Field:=index1, Criteria1:='' & zoneform1.Value ,Field:=index2, Criteria1:='' & zoneform2.value,Field:=index3, Criteria1:='' & zoneform2.value

'a partir de là tu as un zoli filtre avec entête + ta fameuse ligne
pour la récupérer la façon la plus simple (du moins sur Excel 2000)
et qui marche à tous les coups
en effet avec l'option Cellulesvisible l'option resize de marche pas, enfin moi j'ai des messages d'erreur à tous les coups

'sélection du résultat du filtre = sélection des cellules visibles
range('A1').Select
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select

'tu copies /colles dans une nouvelle feuille et tu récupères les lignes sans la ligne de titre

Selection.Copy

etc...


voilou j'espère que ça t'aidera


Deedo

Message édité par: deedo, à: 13/07/2005 16:01

 

[oriop]

Merci bcp

je vais essayer ta solution de suite !!!

encore merci c vraiment trop sympa cette reponse (rapide en plus)!!



🙂

longue vie a ce forum 😛

 

[Deedo]

et bien de rien tout le plaisir est pour moi 🙂

arf! j'oubliais! oublie pas d'enlever le filtre à la fin de ton traitement

ton_tab.AutoFilterMode = False

 

[oriop]

ok

merci encore

 

[oriop]

euhh

ta solution doit etre bonne mais g du mal a la mettre en oeuvre....


si tu as le tps peux tu regarder le fichier joint pour voir ce ki cloche


merci encore 🙂

 

[oriop]

voici le fichier joint

 

[oriop]

dsl javé oublié de zippé

kel boulet je sais [file name=test2_20050715083629.zip size=12485]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test2_20050715083629.zip[/file]