OVH Cloud OVH Cloud

sélection copie relatif

3 réponses
Avatar
Érico
Salut la gang,

Mon probl=E8me est le suivant:

Je fais un tri avec le filtre et je s=E9lectionne le r=E9sultat
pour le copi=E9 sur un autre onglet.

Voici ce que =E7a donne:
________________________________________________
Range("C3").Select
ActiveCell.Offset(1, 0).Range("A1:F9").Select
Selection.Copy
________________________________________________
J'ai fais une s=E9lection relatif et il s=E9lectionne quand
m=EAme tous les cellules. Le "Range ("A1:F9") n'est pas relatif.

Il ne faut pas oubli=E9 que lors du filtre, quelques lignes
sont masqu=E9.

Comment je fais pour copi=E9 les lignes qui sont affich=E9 en
macrocommandes?

Merci de votre collaboration.


=C9rico de Montr=E9al

3 réponses

Avatar
Ellimac
Bonjour,

Les 2 commandes suivantes, l'une pour sélectionner la zone
en cours (CTRL * au clavier) et l'autre pour sélectionner
les cellules visible (F5 + Cellules + Cellules visibles
seulement) devraient faire l'affaire :

Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select

Camille

-----Message d'origine-----
Salut la gang,

Mon problème est le suivant:

Je fais un tri avec le filtre et je sélectionne le
résultat

pour le copié sur un autre onglet.

Voici ce que ça donne:
________________________________________________
Range("C3").Select
ActiveCell.Offset(1, 0).Range("A1:F9").Select
Selection.Copy
________________________________________________
J'ai fais une sélection relatif et il sélectionne quand
même tous les cellules. Le "Range ("A1:F9") n'est pas
relatif.


Il ne faut pas oublié que lors du filtre, quelques lignes
sont masqué.

Comment je fais pour copié les lignes qui sont affiché en
macrocommandes?

Merci de votre collaboration.


Érico de Montréal
.



Avatar
AV
Et si faisais comme ça :

[C4:H12].SpecialCells(xlCellTypeVisible).Copy

AV

"Érico" a écrit dans le message news:
070901c3505f$53184300$
Salut la gang,

Mon problème est le suivant:

Je fais un tri avec le filtre et je sélectionne le résultat
pour le copié sur un autre onglet.

Voici ce que ça donne:
________________________________________________
Range("C3").Select
ActiveCell.Offset(1, 0).Range("A1:F9").Select
Selection.Copy
________________________________________________
J'ai fais une sélection relatif et il sélectionne quand
même tous les cellules. Le "Range ("A1:F9") n'est pas relatif.

Il ne faut pas oublié que lors du filtre, quelques lignes
sont masqué.

Comment je fais pour copié les lignes qui sont affiché en
macrocommandes?

Merci de votre collaboration.


Érico de Montréal
Avatar
AV
J'ai mis ces lignes invisible:
Range("C27").Select
ActiveCell.Range("A1:F9091").Select
Selection.Copy
J'ai mis ceci à la place
[C4:H9110].SpecialCells(xlCellTypeVisible).Copy
Et ça bog!!!!!!!!


Le problème est que "tu as mis autre chose à la place" !

L'équivalent de la référence relative :
Range("C27").ActiveCell.Range("A1:F9091")
c'est : [C27:H9117]
et non : [C4:H9110]

AV