Macro insoluble !!!

[La Patate]

Tout d'abord merci pour votre aide, j'ai déja bien progressé en VBA
(Partant de Zéro c'etait facile!)

Mon soucis actuel consiste a ne couper que les lignes filtrées d'une liste puis les coller en fin de liste de la feuille "reste a lancer"
C'est la selection de la plage filtrée qui me pose un probleme.
La premiere ligne n'est que rarement la meme!donc le " Rows ("2:2").select ne va pas.

Autre essai: Une fois le filtre executé, les Commandes "Selection.CurrentRegion.Select" ou "Cells.Select" prennent aussi les ligne masquées par le filtre.

Merci d'avance.

Voici mon code:

Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Cut
Sheets("Reste a lancer").Select
Range("A1").Select
Dim Dercell As Object
Set Dercell = Selection.End(xlDown)
Dercell.Select
Set cellvide = ActiveCell
Set cellvide = cellvide.Offset(1, 0)
Selection.CurrentRegion.SelectActiveSheet.Paste

 

[Abel]

Bonjour La Patate,

Est-il possible de remplacer ton filtre par un tri ?

Car on peut personnalisé les listes de tri.

Si oui, il sera alors très facile de sélectionner les lignes où on trouve telle ou telle valeur et d'en faire ce que l'on veut.
On peut même rejeter les lignes directement à la fin du tableau à l'aide du tri.

Sinon, dis nous en quand même un peu plus sur ton filtre.
Il doit pouvoir être possible de faire une sélection sur la base des conditions de ce filtre et à partir de là tout est possible.

Même que la Grèce soit championne d'Europe.

A+

Abel

 

[Gérard DEZAMIS]

Bonjour Abel et La Patate

Je vois que tu n'as pas essayé xlUp, tu préfères.......

changer de nom et reposer ta question.

A moins de tenir absolument au VBA pur pourquoi ne pas essayer avec filtre élaboré ?
possible de voir la tête de ton fichier ?
@+
GD

 

[Domic]

Bonsoir à tous,
Pour selectionner uniquement les cellules, tu peux utiliser la commande :

Selection.SpecialCells(xlCellTypeVisible).Select,

mais la commande "cut" ne marche pas, seulement "copy" fonctionne.

Donc dans l'ordre :
- filtrer (filtre automatique)
- selectionner avec "SpecialCells(xlCellTypeVisible)
- copier / coller
- reselectionner
- supprimer avec Selection.EntireRow.Delete.

Et cela fonctionne. (si cela correspond à ce que tu veux faire...)

Bon courage.

Domic.