Discussion :

[jeanseb80]

Bonjour à tous,

Je cherche a filtrer puis a selectionner la premiere valeur filtrer jusqu'a
la premiere cellule vide (dans la colonne C).

Code :

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

1
2
3
4
5
Sheets("Data").Select
   ActiveSheet.Range("$A$1:$H$8485").AutoFilter Field:=7, Criteria1:="<>-", Operator:=xlFilterValues
 
Range("C1", Range("C1").End(xlDown)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Mais cela ne marche pas au niveau du Range("C1", Range("C1").End(xlDown)).Select.

Merci pour votre aide.


Cordialement

[Marc-L]

Bonjour,

pas besoin de Select dans un bon code !

Ne peux aller plus loin sans une explication claire et exhaustive …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[OBO29]

Bonjour,

Il te suffit te trouver quelle est la dernière ligne visible sur ton filtre pour arriver à terminer ton code.

Voir : ICI

A+

[jeanseb80]

Merci de vos première reponses.

En fait, j'applique un filtre sur une colonne qui me trouvera toujours 4
lignes. Ces lignes changent dans le temps suivant les data que je faits
intervenir.

Donc le numéro de la 4ème et dernière ligne déterminée par le filtre
changera.

L'idée est de pouvoir selectionner uniquement un colonne de 4 valeurs
déterminées par le filtre et de la copier dans une autre feuille.

Voilà. J'espère être plus clair.

Si joint le fichier de base.


Merci encore pour vos lumières.test.xlsm

[joe.levrai]

Bonjour,

s'il s'agit de filtrer, récupérer 4 valeurs, pour les copier ailleurs, un filtre avancé serait peut-être plus judicieux ?

[jeanseb80]

Bonjour,

Le problème b'est pas de filtrer ici mais de copier les valeurs filtrées
alors que les cellules sélectionnées vont changer dans le temps.

Mai si vous avez un exemple je suis preneur.

Merci