dionys0s
XLDnaute Impliqué
Bonjour le forum,
j'aimerais savoir s'il est possible d'appliquer tous les paramètres Font d'une cellule sur une autre.
Le code suivant applique certaines paramètres comme la graisse ou l'italique, mais pas tous (couleur de police par exemple) :
Le code suivant renvoie carrément une erreur
Y a-t-il un moyen différent ? L'idée serait de ne pas avoir un truc du style :
D'avance, merci pour votre aide
j'aimerais savoir s'il est possible d'appliquer tous les paramètres Font d'une cellule sur une autre.
Le code suivant applique certaines paramètres comme la graisse ou l'italique, mais pas tous (couleur de police par exemple) :
VB:
Let MaCelluleCible.Font = MaCelluleSource.Font
VB:
Set MaCelluleCible.Font = MaCelluleSource.Font
Y a-t-il un moyen différent ? L'idée serait de ne pas avoir un truc du style :
VB:
With MaCelluleCible.Font
Let .Color = MaCelluleSource.Font.Color
Let .Bold = MaCelluleSource.Font.Bold
Let .Name = MaCelluleSource.Font.Name
Let .Size = MaCelluleSource.Font.Size
'etc
End With
D'avance, merci pour votre aide