Discussion :

[JamesPel]

Bonjour,

Actuellement je copie une cellule avec la commande suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range (a1).copy

Les valeurs se copient mais j'ai de la couleur et elle ne suit pas.

J'ai cherché les fonctions disponibles et aucune me semble convenir

Aussi lorsque je supprime avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range(a1)..ClearContents

la mise en page demeure en place, c'est-à-dire la couleur.

Y a-t-il un moyen d'effectuer ces opérations s.v.p.

Merci d'avance.

[Philippe Tulliez]

Bonjour,
Vous publiez la méthode Copy mais pas la manière dont vous collez or c'est là que le problème se situe. L'autre instruction c'est pour effacer le contenu de la cellule. C'est la même chose que faire un "delete" .

la mise en page demeure en place, c'est-à-dire la couleur.

On parle plutôt de format. La mise en page concerne toute la feuille

[JamesPel]

Bonjour Philippe,

En effet j'ai oublié d'ajouter le coller voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PasteSpecial xlPasteValues

Merci.

[Philippe Tulliez]

Bonjour James,
C'est donc normal que le format ne soit pas collé puisque c'est un CollageSpécial-Valeur.

Si l'on veut conserver toutes les propriétés d'une cellule c'est à dire valeur ou formule, format mais également mise en forme conditionnelle, validation de données, commentaire, etc. on utilise la méthode Copy de l'objet Range avec l'argument Destination soit par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Worksheets("t_Data")
  .Range("D2").Copy Destination:=.Range("P5")
End With

En revanche si l'on ne se souhaite coller que la valeur et le format, on passe par un copier et un collage special Valeur + collage special Format

[EDIT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub t()
  With ThisWorkbook.Worksheets("t_Data")
  .Range("D2").Copy
   With .Range("P5")
   .PasteSpecial xlPasteValues  ' Collage valeur
   .PasteSpecial xlPasteFormats ' Colage format
   End With
  End With
End Sub

[JamesPel]

Bonjour Philippe,

Tout fonctionne à merveille.

Merci.