Méttre chiffre en Premier Si valeur 0

[phil59110]

Bonjour a tous et bon dimanche,

Voila je vous classé des chiffres par rapport a une valeur 0 Donc comme c'est souvent dit il vaut mieu méttre un
bon exemple que mille explications je vous est joint un petit fichier!

Pouriez vous y jetet un coup d'oeil

Merci Beaucoup

Phil59110

 

[Dranreb]

Re : Méttre chiffre en Premier Si valeur 0

Dans vos corrections vous aviez mis des .Columns(13) alors que votre plage commençait à la colonne M donc 13 de sorte que sla colonne 13 était donc toujours sa colonne 1, en revanche vous n'aviez pas corrigé en 13 dans la formule, juste là où seulement il fallait:

Sub Macro1()
 Application.ScreenUpdating = False
 With ActiveSheet.[m15:o5000]
    .Columns(1).FormulaR1C1 = "=R[-1]C+(R[-1]C13="""")"
    .Sort Key1:=.Columns(1), Order1:=xlAscending, Key2:=.Columns(3), Order2:=xlAscending, _
       Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
       DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    .Columns(1).ClearContents
    End With
 End Sub

Corduialement.