Autres Justifier un texte dans des cellules Fusionner

piga25

XLDnaute Barbatruc

• 17 Mai 2019

• #2

Bonjour,

L'enregistreur de macro donne ceci

VB:

With Selection
        .HorizontalAlignment = xlJustify
        .VerticalAlignment = xlCenter
End With

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 17 Mai 2019

• #3

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

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 17 Mai 2019

• #4

Bonjour,

chaelie2015 à dit:

ci rattaché fichier exemple (des cellules grises)

Cliquez pour agrandir...

Il est ou le fichier

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 17 Mai 2019

• #5

Bonjour
Sorry ci joint le fichier

 

Pièces jointes

• charlie justifier.xlsx

  8.4 KB · Affichages: 9

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 17 Mai 2019

• #6

Bonjour
Sorry ci joint le fichier

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 17 Mai 2019

• #7

Bonjour,

fait avec l"enregistreur de macro

 

Pièces jointes

• charlie justifier.xlsm

  22.8 KB · Affichages: 6

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 17 Mai 2019

• #8

Re
Autrement un code plus court

VB:

Sub just()
Range("C5,C8,B11").HorizontalAlignment = xlJustify
End Sub

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 17 Mai 2019

• #9

Re
Merci piga25
mon souci est résolu
a+

 

Vote positif 0 Vote négatif