copie des celulles affichées

[takeiteasy]

bonjour,

Je coince dans l'écriture d'une macro qui :

A partir d'une feuille "A" dans un range de A1 a F12
va recopier toutes les cellules qui ne sont pas masquées
vers un feuille "B" a partir d'une celulle définie "C3"

grand merci d'avance

take_it_easy

 

[kjin]

Re : copie des celulles affichées

Bonjour,
Peux tu préciser ce qu'est une cellule "masquée"
merci
A+
kjin

 

[takeiteasy]

Re : copie des celulles affichées

c'est une cellule où la ligne ou la colonne est en mode "hide".

Pour être peut être plus clair. Le but est que en page "B" se retrouve les infos de la page "a" telles que affichées

 

[wilfried_42]

Re : copie des celulles affichées

Bonjour

je ne sais pas si j'ai compris

dim cel as range

For each cel in sheets("Feuil1").range("A1:F12").cells.specialcell(xltcellypevisible)
     sheets("Feuil2").range(cel.adress).offset(2,2) = cel
next

procedure non testée

 

[Kero]

Re : copie des celulles affichées

Bonjour,

Voici ma première aide j'espere avoir compris la demande

Sub CopierCellVisible()
Worksheets("Feuil1").Select
Range("A1:F12").SpecialCells(Type:=xlCellTypeVisible).Copy Worksheets("Feuil2").Range("C3")
End Sub

 

[takeiteasy]

Re : copie des celulles affichées

rebonjour,

pour plus de clarté quant à ma demande (qui est sans doute atypique) j'ai joint le fichier avec les expliquations à l'intérieur.

merci d'avance

 

[cbea]

Re : copie des celulles affichées

Bonjour takeiteasy et à tous,

Voici une solution.

 

[takeiteasy]

Re : copie des celulles affichées

merci beaucoup cbea,

c'est exactement ce dont j'avais besoin

ps. Si bea signifie beatrice je t'embrasse autrement je te serre la main