Méttre chiffre en Premier Si valeur 0

phil59110 · 9 Décembre 2012

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 · 9 Décembre 2012

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:

VB:

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.

Méttre chiffre en Premier Si valeur 0

phil59110

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Discussions similaires