Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

CELLULE AVEC BARRE OBLIQUE ET TEXTE DE CHAQUE COTE

3 réponses
Avatar
Maryse
Bonjour à tous,
Peux t-on dans excel sur une cellule faire une séparation en 2 avec un trait
oblique et du texte de chaque côté ?

Merci d'avance pour vos suggestions
Salutations

3 réponses

Avatar
JohnFuss
Bonjour,

un bête Alt Gr + 6 pour un "|" en ecrivant en Arial (tous les caractères
sont de tailles identiques, pour les alignements c'est le top).

Voilà

John

"Maryse" a écrit dans le message de
news:
Bonjour à tous,
Peux t-on dans excel sur une cellule faire une séparation en 2 avec un
trait

oblique et du texte de chaque côté ?

Merci d'avance pour vos suggestions
Salutations


Avatar
michdenis
Bonjour Maryse,

Il est impossible de "spliter" une cellule en 2 en introduisant un symbole comme celui-ci "/" ou tout autre symbole.


Salutations!


"Maryse" a écrit dans le message de news:
Bonjour à tous,
Peux t-on dans excel sur une cellule faire une séparation en 2 avec un trait
oblique et du texte de chaque côté ?

Merci d'avance pour vos suggestions
Salutations
Avatar
Modeste
Bonsour "Michel" ;o)))
michdenis wrote:
Il est impossible de "spliter" une cellule en 2 en introduisant un
symbole comme celui-ci "/" ou tout autre symbole.


pour fun !!! ;o)))
je proposerai tout de même :

Sub SplitGD()

nbcar = Len(ActiveCell)
If nbcar >= 2 Then
x = Application.Ceiling(nbcar / 2, 1)
y = nbcar - x
ActiveCell = Left(ActiveCell, x) & "/" & Right(ActiveCell, y)
With ActiveCell.Characters(Start:=1, Length:=x).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

With ActiveCell.Characters(Start:=x + 2, Length:=y).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = True
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End If
End Sub


--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042