Selcetion des lignes filtrées par une filtre automatique.

[Chris]

Bonjour le forum.


Ce forum est genial, grace aux exemple que je trouve et aux participant je peux apprendre le vba (pas facile quand meme) mais j'avance à petit pas.
Je ne pose plus mes probleme en une fois parce que des pros me fabriquent une macro super elaborée qui fonctionne tes bien mais je suis incapable de la modifiée ni de l'adaptée aux problemes et en plus je n'apprend pas comment ca fonctionne.

Apres avoir resolu des petits problemes des filtres elaboré en vba, je coince avec le filtre auto.

Ma question est :

Comment faire pour selectionner les lignes filtrées (celles qui aparaissent avec des numeros bleu)?

pour la suite je vais chercher un peut et je pense me debrouiller seul.


Merci d'avance.

Chris

 

[Jeannot]

Bonjour,

tu peux par un range sélectionner une cellule de zone filtrée, puis tu utilises

ActiveCell.CurrentRegion.Select

Toute ta zone résultat du filtre sera sélectionnée

A+

Jeannot

 

[Chris]

Merci Jeannot

Ca fonctionne nickel, mais le filtre auto reste activé sur la feuille et en utilisant AutoFilterMode = False ca ne le desactive pas.

Est ce que tu aurais une solution?


@+

Chris

 

[Jeannot]

Je pense qu'en intégrant l'instruction : Selection.Autofilter
excel désactivera le filtre si celui-ci est actif et inversement

je n'ai pas le temps de tester, je te laisse faire. Tiens moi au courant

Jeannot

 

[Chris]

Merci jeannot ca fonctionne tres bien.


Un probleme de reglé (je fais des progres de fous depuis ce matin moi)

A bientot sur le forum.

 

[Chris]

Salut jeannot, salut le forum

Il me semblait bien que ça n'allait pas durer longtemps. un nouveau point de bloquage vient d'apparaitre (et je me doute que ce n'est pas fini).

Lorsque j'utilise la commande

ActiveCell.CurrentRegion.Select

Je selectionne toute la region avec les champs or j'utilise cette commande pour faire un couper / coller sur une autre feuille qui comporte deja des champs.

Comment faire pour eviter de selectionner les champs tout en selectionnant les lignes triées.


Sheets("Encours").Select
Range("a3").Select
Selection.AutoFilter Field:=8, Criteria1:="<>"
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Histogen").Select
Range("A8").End(xlDown)(2).Select
ActiveSheet.Paste
Sheets("Encours").Select
Selection.AutoFilter
Application.CutCopyMode = False


voila le code si ca peut vous aider


Merci d'avance.


Chris

 

[Jeannot]

Hello,

TU te possitionnes sur la première cellule à selectionner exemple A2

Range("A2").select
Range(Selection,Selection.End(xldown).select
Range(Selection,Selection.End(xlToRight).Select

Ces trois lignes te permettront de selectionner ta zone à récupérer

A+

Jeannot

 

[Chris]

salut


Appaament il y a un probleme avec le code que m'a donné cella ne fonctionne pas.

@+


Chris

 

[Chris]

C rien g il manque juste une parenthese