transfert de cellules

[Francis]

Bonjour le forum
Je désire envoyer sur une autre feuille les cellules visibles d’une partie de feuille.
Je les sélectionne avec 'Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible) '
Tout marche bien…mais je voudrais aussi faire suivre les commentaires, les couleurs de la police et du surlignage. Mais là suis perdu…
Quelle est la phrase à rajouter ?
Merci Francis

 

[Ashaar]

Bonjour Francis,

Le code suivant semble répondre à ta question (du moins je l'espère) :

Sub CopyVisible()
Selection.SpecialCells(xlCellTypeVisible).Copy
Range('C20').Select
ActiveSheet.Paste
End Sub