Re : Macro, problème format pour formules
Bingo YAhooooo pour ne pas faire de pub,
Merci à tous ceux qui ont contribué à la résolution de ce rébus. Je suis hyper content et je réalise mon rêve faire ma première macro. C'est en quelque sort un petit pas pour l'humanité mais un pas de géant pour mes connaissances en Excel.
Voici la macro complète. Bonne lecture
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(6, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.ClearContents
Columns("D
").Select
Selection.Insert Shift:=xlToRight
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1)), TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Columns("D
").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(15, 1)), TrailingMinusNumbers:=True
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1)), TrailingMinusNumbers:=True
Columns("H:H").Select
Selection.Delete Shift:=xlToLeft
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(11, 1)), TrailingMinusNumbers:=True
Columns("M:N").Select
Selection.Delete Shift:=xlToLeft
Columns("N:O").Select
Selection.Delete Shift:=xlToLeft
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
ActiveCell.FormulaR1C1 = "N° IC"
Range("B1").Select
ActiveCell.FormulaR1C1 = "IC "
Range("C1").Select
ActiveCell.FormulaR1C1 = "Groupe March"
Range("D1").Select
ActiveCell.FormulaR1C1 = "N° Article"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Dés Article"
Range("F1").Select
ActiveCell.FormulaR1C1 = "N° Cde"
Range("G1").Select
ActiveCell.FormulaR1C1 = "Période"
Range("H1").Select
ActiveCell.FormulaR1C1 = "N° Clt"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Dés Client"
Range("J1").Select
ActiveCell.FormulaR1C1 = "Qté vte"
Range("K1").Select
ActiveCell.FormulaR1C1 = "Qté Grat."
Range("L1").Select
ActiveCell.FormulaR1C1 = "CA / MCSI"
Range("M1").Select
ActiveCell.FormulaR1C1 = "PR Cession"
Cells.EntireColumn.AutoFit
Columns("A:A").Select
Selection.Replace What:="non af", Replacement:="n/a", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("B:B").Select
Selection.NumberFormat = "General"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=
IF(R[0]C[-1]="""","""",IF(R[0]C[-1]=""n/a"",""N"",""O""))"
Range("B2").Select
Selection.Copy
Range("B3:B9999").Select
ActiveSheet.Paste
End Sub
Encore moulte mercis.
Ciao et à la prochaine
Bien cordialement.
Daniel R.