=STXT(E7;8;3)*1
le fichier que tu as joint ne fonctionne pas avec ma version d'office mac 2011.
... macro se bloque et le debogguer me renvoi a cette commande : " With ActiveSheet.CommandButton1 "
Merci.
Voici qui répondra à ton interrogationSi MAC n'admet pas le "CommandButton".
Sub Plus()
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Columns(4).Insert
For i = Range("f" & Rows.Count).End(xlUp).Row To 7 Step -1
Range("f" & i).Offset(, -1).FormulaR1C1 = "=RIGHT(RC[1],7)&RC[1]"
Next
Range("e7:f65000").Sort Range("e7"), xlDescending, Header:=xlNo
Columns(5).Delete
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub
Sub Moins()
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Columns(4).Insert
For i = Range("f" & Rows.Count).End(xlUp).Row To 7 Step -1
Range("f" & i).Offset(, -1).FormulaR1C1 = "=RIGHT(RC[1],7)&RC[1]"
Next
Range("e7:f65000").Sort Range("e7"), xlAscending, Header:=xlNo
Columns(5).Delete
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub