Re : PERSONAL.XLSB qui me demande toujours de l'enregistrer.
Ok mias c'est juste de toutes petites macro de test :
Sub Macro1()
'
' Macro1 Macro
' Rows("1:9").Select
Selection.Delete Shift:=xlUp
Columns("A:C").Select
Selection.Delete Shift:=xlToLeft
End Sub
Sub Macro2()
'
' Macro2 Macro
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Compteur"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Date pièce"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Type de pièce"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Société"
Range("E1").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'
Columns("S:S").Select
Application.CutCopyMode = False
Selection.Cut
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Sub Macro4()
'
' Macro4 Macro
'
'
Selection.Replace What:="invoice", Replacement:="KR", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="credit note", Replacement:="KG", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'ARC DISTRIBUTION France
'ROCHE FORTUNE
'VACHAUD DISTRIBUTION
End Sub
Sub Macro5()
'
' Macro5 Macro
'
'
Columns("F:F").Select
Selection.Replace What:="*vachaud*", Replacement:="336", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Sub periode()
'
' periode Macro
'
'
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=VALUE(MID(RC[-1],4,2))"
Range("D3").Select
Selection.FillDown
End Sub