Pb macro mise en forme
Bonjour,
J'utilise cette macro qui marche très bien sauf la dernière partie en gras. Cette même partie est sur 8 autres macro et marche très bien mais pas avec celle-ci, pourquoi??? Ce bout de macro sert juste a indiquer en cellule "B19" que le reste de la macro est "Ok".
La cellule "B19" est au bon format.... alors si quelqu'un voit l'erreur merci, car moi je sèche depuis 2 jours ....
Sub décomposeedi()
'
' décomposeedi Macro
Sheets("EDI++").Select
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Dim Cel As Range, I As Integer
Dim Tablo
Dim Ligne As Long
Application.ScreenUpdating = False
Ligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Do
Set Cel = Columns("A").Find(What:="|", LookIn:=xlValues, LookAt:=xlPart)
If Cel Is Nothing Then Exit Sub
Tablo = Split(Cel, "|")
Cel = Tablo(0)
For I = 1 To UBound(Tablo)
Range("A" & Ligne) = Tablo(I)
Range("B" & Ligne) = Cel.Offset(0, 1)
Ligne = Ligne + 1
Next I
Loop
' Avancement
Sheets("Présentation").Select
Range("B19").Select
ActiveCell.FormulaR1C1 = "Ok"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Calibri"
.FontStyle = "Gras"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16727809
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("B19").Select
End Sub
D'avance merci
Bonjour,
Quel est l'intérêt de selectionner la cellule B19 en fin de macro ?
Peux-tu joindre un bout de fichier.
Cdlt.
Bonjour, et merci Mattsly
En fait mon fichier utilise plusieurs macro (tu as une copie de la page de garde de mon fichier en doc joint) la cellule B19 sert au report de l'etape n°7 pour me dire que la macroégalement n°7 est "OK" et terminé avant de lancer la suivante.
J espère avoir été claire
Re,
Essaye de passer ta cellule au format texte. Et c'est étrange que la mcro fonctionne pour toutes les autres et pas celle là.
Cdlt.
Bonjour
Et bien non malheureusement c'est pas ça ....
encore merci