La syntaxe Range(Cellule_1, Cellule_2, Cellule_3) est incorrecte !
Essaies :
With Worksheets("AT")
With Union(.Range(Cellule_1), .Range(Cellule_2), .Range(Cellule_3))
.Font.Name = "Arial Narrow"
.Font.Size = 12
.Font.Bold = True
.Font.ThemeColor = xlThemeColorLight1
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End With
Merci d'un retour aussi rapide. En effet, j'ai pris note du fonctionnement des balises.
Cellule_1, Cellule_2 et Cellule_3 sont des TextBox d'un UserForm et renseignent l'adresse de cellule (UserForm1.TextBox1 = Cellule_1, "A1" par exemple).
Modifié le 16 janv. 2021 à 14:27