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

Bonjour.
Avec cette macro peut être:`

Sub Macro1()
Application.ScreenUpdating = False
With ActiveSheet.[A10:C5000]
   .Columns(1).FormulaR1C1 = "=R[-1]C+(R[-1]C3="""")"
   .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

Cordialement.

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Bonjour Dranreb,

ça Fonctionne impecable Super!!

par contre si je veut changer l'emplacement du tableau ou je doit modifier?

Merci Beaucoup

 

[Dranreb]

Re : Méttre chiffre en Premier Si valeur 0

Si la colonne A, au moins, est toujours libre pour une formule temporaire dans le nouvel emplacement, remplacer ActiveSheet.[A10:C5000]
par l'expression Range correspondant à la nouvelle plage à traiter, mais à partir de la colonne qui la précède.
À +

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Sil il y a des valeurs dans la colonne qui précéde ça va fonctionner aussi ou pas ?
en sachant que dans la colonne qui la précéde les valeur sont issu de formules!!

Merci

 

[Dranreb]

Re : Méttre chiffre en Premier Si valeur 0

Non, elle serait écrasée.
Adaptez le code à vos vrais besoins.
Vous voyez bien comment ça marche: on installe dans une colonne libre de travail une formule qui reprend à chaque ligne la valeur de la ligne juste au dessus d'elle, mais augmentée de 1 si seulement à cette même ligne d'au dessus, la colonne des valeurs est vide.
On obtient ainsi des numéros de groupes dans l'ordre initial qui ne seront pas déplacés lors d'un tri global sur ce numéro de groupe puis sur la colonne de valeurs.
Il ne reste plus qu'à effacer la colonne des groupes une fois le classement effectué.
À +

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

j'ai tester avec l'expression range mais cela ne fonctionne pas

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Il n'y a rien faire si on change les donnés de place ça ne fonctionne pas avec stop de la macro j'ai tout tenter pour la modifier
mais rien a faire!!

Merci!!

 

[JHA]

Re : Méttre chiffre en Premier Si valeur 0

Bonjour à tous,

Un début par formule pour excel2003,

JHA

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Bonsoir JHA,

Je teste ça et je dit quoi!!

Merci beaucoup!!

 

[Dranreb]

Re : Méttre chiffre en Premier Si valeur 0

Peut être avez vous oublié de rectifier le n° 1 de la colonne de travail ou le n° 3 de la colonne de valeurs dans la formule et dans le tri ?
À +

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Ben j'ai modifier dans le code pour l'emplacement des colonne de travails mais pour le reste je sais pas

Merci Dranreb

 

[Dranreb]

Re : Méttre chiffre en Premier Si valeur 0

Joignez ce que vous avez fait, avec les plages implantées au bon endroit, si ça ne marche toujours pas. Je vous dirais pourquoi, et ce qu'il faut mettre à la place.
À +

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Voila avec la modif

Merci

 

[phil59110]

Re : Méttre chiffre en Premier Si valeur 0

Bonjour à tous,

Un début par formule pour excel2003,

JHA

Les Formules fonctionnes Impécable Super!!! Méme si c'est trés dificile a méttre en place

Merci Beaucoup JHA
Bonne Soirée a Toi et a tout le Forum

Phil59110