Discussion :

[RicardoBxl]

Bonsoir,

Cela fait bien longtemps. Je suis actuellement en train de développer une petite application et je cale sur un point précis.

J'ai une liste de numéros client que je filtre sur base d'une recherche. La liste s'efface pour ne laisser que le numéro de client recherché. Je voudrais récupérer le numéro de la ligne afin de pouvoir aller chercher toutes les valeurs associé à ce numéro client.

J'ai essayé activecell.row et cela ne me donne pas le bon numéro de ligne.

Concrètement je fais ceci:

Je suis dans un onglet Menu qui lance un userform dans lequel on entre un numéro de client à rechercher pour afficher les données du dit client dans le Userform.

Le client et ses données se trouvent dans une feulle disons "x". Dans la programmation de mon filtre dans l'onglet Menu je précise qu'il faut exécuter le filtre dans l'onglet "x". Une fois le filtre appliqué, j'ai bien systématiquement le bon client. Mais je n'arrive pas ensuite à utiliser correctement le offset pour récupérer les données car je ne sais pas comment trouver le numéro de la ligne.

Après l'exécution du filtre, la cellule sélectionnée est laquelle ? Dois-je faire activecell ? ou autre chose.

Merci de m'aider.

[anasecu]

Bonjour,

Il y a peut-être mieux mais je te propose tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne = Range("A6:A" & Rows.Count).SpecialCells(xlCellTypeVisible).Row

et tu remplaces le 6 par la ligne +1 où tu situes ton filtre. Si c'est en ligne 1, le 6 devient 2.

[Menhir]

J'ai une liste de numéros client que je filtre sur base d'une recherche. La liste s'efface pour ne laisser que le numéro de client recherché. Je voudrais récupérer le numéro de la ligne afin de pouvoir aller chercher toutes les valeurs associé à ce numéro client.

Pas besoin du numéro de ligne.
Utilise SpecialCells(xlCellTypeVisible) sur un Range correspondant à l'intégralité de ta zone de données (sans la barre de titre) et tu auras ta ligne.

Par exemple, si ta zone de données est A2:E10 et que tu veux récupérer la donnée de la colonne C, après ton tri tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaValeur = Range("A2:E10").SpecialCells(xlCellTypeVisible).Range("C1").Value

Pour faire mieux, il faudrait remplacer le E10 par une instruction à base de End(xlUp).