Discussion :

[billy123]

Bonjour à tous,

Je travaille sur un fichier Excel possédant plusieurs filtres automatiques. L'un d'entre eux fait une recherche sur des noms de fournisseurs (29 noms en tout). Ces noms sont avec doublons (en effet, après la recherche du filtre, le même nom de fournisseur apparaît sur plusieurs lignes car plusieurs enregistrements correspondent à un fournisseur).
Je souhaiterais récupérer le nom du fournisseur (sélectionné par le filtre automatique) dans une cellule. Le problème est que je suis débutant sur Excel VBA et que je ne sais pas comment récupérer la valeur, sachant qu'il y a en tous 510 lignes correspondant aux fournisseurs et que le filtre automatique masque les lignes non choisies...
J'espère avoir été assez clair.
D'avance merci à tous ceux qui se pencheront sur mon problème ou qui sauront m'éclairer un peu...

[gruget]

Bonjour
tout d'abord qq questions
que fait ton filtre?
Qu'est-ce que tu veux récupérer? et sur quelle plage tu travailles?
rémi

[billy123]

Bonjour,

J'ai une colonne contenant 510 lignes avec des noms de fournisseurs. Dans cette colonne, j'ai 29 noms de fournisseurs différents, chaque nom se retrouvant sur plusieurs lignes. Le filtre permet de sélectionner un nom de fournisseur (donc parfois plusieurs lignes). Par exemple, si j'ai les fournisseurs XXX, AAA, ZZZ, BBB dans ma colonne, cela donne avant le filtre :
XXX
XXX
XXX
AAA
AAA
ZZZ
BBB
BBB
BBB
BBB
Si je fais le filtre sur le fournisseur BBB, cela me donne :
BBB
BBB
BBB
BBB
Excel m'affichera les 4 lignes correspondant à ce fournisseur et masquera les autres. Je travaille donc sur la plage de fournisseurs F2:F510.
Mon but est de récupérer le nom du fournisseur choisi par l'utilisateur, dans une cellule de la même feuille, la cellule D512. En reprenant l'exemple du fournisseur BBB, je souhaiterai que dans ma cellule D512, s'affiche "BBB".
Voilà, en espérant avoir été plus clair...
En tous cas, merci de te pencher sur mon problème...

[gruget]

rebonjour
j'ai trouvé ca sur la FAQ:

Excel masque les lignes ne répondant pas au filtre, il suffit donc de récupérer la plage des cellules visibles.

Code :

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

Range("F2:F510").SpecialCells(xlCellTypeVisible).Copy Destination:=Range("D512")

ca permet de copier ttes les cellules qui contiennent ta valeur
mtnt il faut adapter pour en recopier qu'une
rémi

[billy123]

Merci !
Oui, j'avais aperçu ça dans la FAQ mais évidemment il m'a recopié tous les fournisseurs, ce qui a un peu fait bugger mon fichier Excel. Du coup, j'avais laisser tomber cette ligne de code. Je vais la reprendre et essayer de l'adapter pour une cellule...

[gruget]

ca donnerais a peu pres ca

Code :

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

1
2
3
Dim marange As Range
Set marange = Range("F2:F510").SpecialCells(xlCellTypeVisible)
    cells(512,4).value = marange.cells(2, 1).Value

cells(2,1) parceque la première cellule de ton filtre n'est pas concerné par le filtre mais est quand même visible

[billy123]

Ouf je galérais un peu... Donc :

Merci, super, ça marche !