Centrer un texte dans une cellule

Bonjour,

Je souhaite centrer Horizontalement et verticalement du texte dans une cellule.

J'ai fait une macro qui donne le résultat :

Sub Macro1()

Pour cette opération, il n'y a pas un code plus simple ?

Bonjour toutes et tous

@JeanF44

tu peux le faire directement sur ta feuille de ton classeur directement.....

(voir onglet Feuil2 ci-joint)

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("D5")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

voir onglet Feuil3

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("D5")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub

crdlt,

André

crdlt,

André

Bonjour,

Il suffit de :

Sub Macro1()
  With Range("D5")
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
  End With
End Sub

Notes qu'il suffit de cliquer sur un des mots du langage VBA et de taper F1 pour obtenir l'aide sur le mot concerné et donc savoir s'il est utile ou non à la macro !

Bonsoir et merci de vos réponses