Discussion :

[Aposto]

Bonjour à tous,

Ma recherche sur ce sujet à été infructeuse
j'ai un problème avec l'utilisation de l'objet intérior, pourquoi ce code ne fonctionne pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim intérieur As Interior
    With Range("A1")
        Set intéireur = .Interior
    End With
 
    With Range("A2")
        .Value = "titi"
        .Interior = intérieur
    End With
End Sub

Actuellement je passe par la fonction copy de l'objet range.

Merci pour vos réponses

[Philippe Tulliez]

Bonjour,
L'objet Interior a des propriétés dont Color

Code :

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

1
2
3
4
5
6
 Dim interieur As Interior
 Set interieur = Range("G2").Interior
 ' Lecture de la propriété Color de l'objet Interior
 Debug.Print interieur.Color
 ' Ecriture de la propriété Color de l'objet Interior
 Range("A12").Interior.Color = interieur.Color

On peut aussi utiliser directement la propriété Color
Exemple

Code :

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

1
2
3
4
 Dim CouleurInterieure As Long
 CouleurInterieure = Range("G2").Interior.Color
 Debug.Print CouleurInterieure
 Range("A12").Interior.Color = CouleurInterieure

ps : J'éviterais d'utiliser les accents dans le nom des variables.

[Aposto]

Effectivement,

donc si on veut recopier toutes les propriétés, il faut les recopier toutes une par une... et cela génère des erreurs ci celles-ci ne sont pas initialisées, la propriété gradient, par exemple.

En plus, pour mon cas il faudrait que je fasse la même chose avec l'objet font.

Je pense donc que je vais rester avec la méthode copy, au moins je suis sur de tout avoir.

[Philippe Tulliez]

Bonjour,
En effet, au stade de mes connaissances en VBA pour excel, je ne vois pas comment attribuer l'ensemble des propriétés Format d'une cellule à une autre cellule ou plage de cellules autrement qu'en prenant les valeurs de chaque propriété de l'objet source vers l'objet cible ou en passant par un Copier/Collage Special Format

Code :

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

1
2
3
4
5
6
Sub T1()
 Dim rng As Range
 Set rng = Range("A2")
 rng.Copy: Range("D2").PasteSpecial xlPasteFormats
 Application.CutCopyMode = False
End Sub

J'ai aussi cherché cette solution miracle de le faire en une seule instruction mais en vain. On peut effacer le format complet d'une cellule mais on ne peut pas l'attribuer (Je précise bien au stade de mes connaissances)
Une autre solution est de faire une copie simple en effaçant ensuite le contenu mais évidemment ne peut s'appliquer aux cellules contenant déjà des valeurs (sauf en copiant au préalable leur valeur pour les recopier ensuite.

Code :

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

1
2
3
4
5
Sub T2()
 Dim rng As Range
 Set rng = Range("A2")
 rng.Copy Range("D2"): Range("D2").ClearContents
End Sub

[Aposto]

Merci pour la réponse, très complète, et pour la confirmation de ce problème

Je met ce post résolu