copier avec des cellules fistres

[a10]

Bonjour,

J'ai des lignes masquées par un filtre
Et quand je veux copier il me copie dans les cellules masquées et non masquées.
A+

 

[david84]

Re : copier avec des cellules fistres

Bonjour,

J'ai des lignes masquées par un filtre
Et quand je veux copier il me copie dans les cellules masquées et non masquées.

Oui c'est normal. Et donc ?
A+

 

[a10]

Re : copier avec des cellules fistres

Bobjour,

D'aprés david 84, c'est normal.
Moi je voudrai que lorsque je recopie je colle les informations uniqueemnt sur les cellules visibles.

A+

 

[Pierrot93]

Re : copier avec des cellules fistres

Bonjour a10, David🙂


regarde ceci, mais comme tu donnes peu de détails sera à adapter à ton projet...

Dim p As Range
Set p = Range("_FilterDatabase")
If WorksheetFunction.Subtotal(3, p.Offset(1).Resize(p.Rows.Count - 1, 1)) > 0 Then
    p.Offset(1).Resize(p.Rows.Count - 1).Copy Sheets("Feuil2").Range("L1")
End If

bon après midi
@+

 

[a10]

Re : copier avec des cellules fistres

bonjour,

Ce code c'est pour faire une macro?

a+

 

[Pierrot93]

Re : copier avec des cellules fistres

Re,

bah oui.... sinon soit peut être un peu plus explicite....

 

[a10]

Re : copier avec des cellules fistres

re,
voici un exemple de fichier:
nom critere
a 1
b 0
c 1
d 0
e 1


si je fais un filtre sur les criteres=1 j'obtiens:
nom critere
a 1
c 1
e 1

Voici je que je veux copier:
tuyau
cable
lunette

je veux copier cette liste uniquement pour les criteres =1, mais quand je copie voici le résultat:
nom critere
a 1 tuyau
c 1 lunette
e 1

et voici ce que je voudrai comme résultat en copiant et coller:
nom critere
a 1 tuyau
c 1 cable
e 1 lunette



a+

 

[Pierrot93]

Re : copier avec des cellules fistres

Bonjour,

place un tout petit fichier en pièce jointe représentant uniquement le problème posé et le résultat attendu, ce sera plus simple...

bonne journée
@+