Méttre chiffre en Premier Si valeur 0

phil59110

XLDnaute Occasionnel
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
 

Pièces jointes

  • Valeur 0.xls
    16 KB · Affichages: 41
  • Valeur 0.xls
    16 KB · Affichages: 43
  • Valeur 0.xls
    16 KB · Affichages: 45

Dranreb

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
2
Affichages
792

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 845
Messages
2 092 770
Membres
105 529
dernier inscrit
StarExcel