comment selectionner seulement les lignes d'un filtre

[51padawan49]

bonjour,
moi j'ai un gros souci je m'explique :
1-j'exécute un filtre automatique
2- je sélectionne ma dernière ligne filtré

'derlig = Sheets("tableau").Range("F65000").End(xlUp).Row
sa c OK mais

3- je voudrais ensuite remonté d'une ligne parmi celle filtré et ainsi de suite jusqu'à la dernière

auriez vous une solution????

merci
excel 2003

 

[51padawan49]

Re : comment selectionner seulement les lignes d'un filtre

j'ai essayé le derlign-1
mais ça sélectionne par exemple une ligne non filtré se situant entre 2 ligne filtré....😡

 

[GBI]

Re : comment selectionner seulement les lignes d'un filtre

Bonjour,
peut-etre que ce n'est pas la bonne voie, mais as-tu essayé de faire une selection de ta table? A partir du moment où tu as déterminé la derniere ligne et derniere colonne (cf ton derlig), il n'est pas compliqué de sélectionner l'autre angle (A2 si tu as des en-tetes)?
En espérant t'avoir un peu aider 🙂
Cdt

 

[51padawan49]

Re : comment selectionner seulement les lignes d'un filtre

re
le problème c que entre derlig et A2 il y a des lignes que je ne doit pas pouvoir sélectionner

en faite il me faudrait une fonction qui remonte d'une ligne dans les lignes déja filtré
c'est peut être pas clair???
merci kan meme

 

[hoerwind]

Re : comment selectionner seulement les lignes d'un filtre

Bonjour,

Peut-être en enregistrant la procédure suivante après avoir sélectionné la plage
Touche clavier F5 - Cellules - Cellules visible seulement - OK

 

[Pierrot93]

Re : comment selectionner seulement les lignes d'un filtre

Bonsoir,

regarde peut être le code ci-dessous, boucle sur les cellules visibles de la colonne A :

Dim c As Range
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    'ton code
Next c

bonne soirée
@+

 

[51padawan49]

Re : comment selectionner seulement les lignes d'un filtre

super c la formule qu'il me fallait mais j'arrive pas vraiment à l'utiliser

j'ai fait
derlig = Sheets("tableau").Range("F65000").End(xlUp).Row //choix de la dernière ligne

Range("Z" & derlig).Select //choix de l'angle de sélection inférieur droit
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select//jusqu'à A1
Selection.SpecialCells(xlCellTypeVisible).Select// sélectionne que les cellules visible

OK sa sa marche
et comment se déplacer sur la ligne visible au dessus du coup???
Merci je sent que tu vous m'avez pas mal débloqué

 

[Pierrot93]

Re : comment selectionner seulement les lignes d'un filtre

Re,

essaye ainsi, mais le déplacement se fera de haut en bas :

Dim c As Range
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
    c.Select
Next c

A noter qu'en vba, il est rarement utilile d'effectuer des selections...

 

[51padawan49]

Re : comment selectionner seulement les lignes d'un filtre

je comprend pas ton code 'c' correspond a quoi???
la boucle et exécuter jusqu'à kan ??

 

[Pierrot93]

Re : comment selectionner seulement les lignes d'un filtre

Re,

en l'occurence "c" est une variable représentant une cellule visible de la colonne A.

La boucle est effectuée de la cellule A2 à la dernière ligne renseignée de la colonne A, et ce uniquement sur les cellules visibles...

 

[51padawan49]

Re : comment selectionner seulement les lignes d'un filtre

re
OK j'essaie sa et je te redit
merci

 

[Staple1600]

Re : comment selectionner seulement les lignes d'un filtre

Bonsoir jeune padawan, Pierrot93, le fil, le forum


Cet exemple,essayer tu peux 😉
En colonne A, des chiffres 1, saisir, il faut
puis d'autres chiffres

ensuite , la macro lancer , tu dois

Sub a()
Dim plage_filtre, x&
With ActiveSheet
    .[A1].AutoFilter 1, "1"
    Set plage_filtre = .[_FilterDataBase]
    x = plage_filtre.Rows.Count - 1
    MsgBox plage_filtre.Offset(1, 0).Resize(x).SpecialCells(12).Address
End With
End Sub

 

[Pierrot93]

Re : comment selectionner seulement les lignes d'un filtre

Re, bonsoir Jean-Marie

Aarf, pas compris qu'il fallait créer un filtre par vba, moi....

bonne soirée
@+

 

[51padawan49]

Re : comment selectionner seulement les lignes d'un filtre

salut a tous

Staple1600 remercie je t'en!!!(mdr)
bon j'ai solutionner mon problème donc merci a tous
Mais j'ai une autre question qui n'a rien a voir

j'aimerais utiliser l'outil formulaire se situant dans
Données>formulaire....
le problème c'est que j'ai plusieurs colonne qui doivent être traité séparément en enregistrant ma macro 3 fois pour 3 colonnes différentes chaque macro donne le même rendu????

merci pour vos connaissance encore une fois
je joins l'exemple