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
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
Bonjour Maryse,
Il est impossible de "spliter" une cellule en 2 en introduisant un symbole comme celui-ci "/" ou tout autre symbole.
Salutations!
"Maryse" <zazarod@contact.fr> a écrit dans le message de news: 8FA7BF64-DC68-4D5A-A287-0B908DD142C7@microsoft.com...
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é ?
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
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
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