Centrer avec TextAlign

[Potentis]

Bonjour tous,
je débute en macro
1° je n'arrive pas a trouver la syntaxe exact pour centrer le mot Bonjour en e13, voici la macro :

Private Sub CommandButton1_Click()
If Range('e13').Value = '' Then
Range('e13').Value = 'Bonjour'
Else
Range('e13').Value = ''
End If
End Sub

en cliquant sur le bouton ca affiche ou efface Bonjour
dans un 1er temps je souhaite centrer et dans un 2eme temps voir si possible les autres possibilités, de modification de cette cellule e13 par ex en Gras, italique, couleur de fond et d'encre, changer la largeur ou la hauteur, faire clignoter ...etc

2° autre probleme
on m'a aidé pour une macro mais je ne peux plus faire de coller dans cette feuille, voici le debut de macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et dans l'aide sur le mot Worksheet j'ai lu quelque chose comme lecture seule.
y a t'il un rapport avec le coller

pour info le menu édition copier n'est pas grisé alors que coller oui

Merci d'avance

 

[Creepy]

Hello,

Alors reponse à ta question 1 :

Sub Macro1()
Range('a2').VerticalAlignment = xlCenter
Range('a2').HorizontalAlignment = xlCenter
End Sub

Ca va centrer le texte horizontalement & verticalement

pour la querstion 2 il faudrait le code au complet, parce que là c'est un peu leger.

++

Creepy