Autres Justifier un texte dans des cellules Fusionner

chaelie2015

XLDnaute Impliqué
Bonjour Form
je souhaite avoir un code VBA pour Justifier un texte dans des cellules fusionnées est t il possible ?
Merci par avance
 

piga25

XLDnaute Barbatruc
Bonjour,

L'enregistreur de macro donne ceci
VB:
With Selection
        .HorizontalAlignment = xlJustify
        .VerticalAlignment = xlCenter
End With
 

chaelie2015

XLDnaute Impliqué
Bonjour Piga 25
Désolé je n'ai pas bien saisi votre réponse
ci rattaché fichier exemple (des cellules grises)
Merci
 

piga25

XLDnaute Barbatruc
Re
Autrement un code plus court
VB:
Sub just()
Range("C5,C8,B11").HorizontalAlignment = xlJustify
End Sub
 

Discussions similaires


Haut Bas