Méttre chiffre en Premier Si valeur 0

Dranreb

XLDnaute Barbatruc

• 9 Décembre 2012

• #2

Re : Méttre chiffre en Premier Si valeur 0

Bonjour.
Avec cette macro peut être:`

VB:

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.

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Décembre 2012

• #4

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.
À +

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #5

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Décembre 2012

• #6

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é.
À +

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #7

Re : Méttre chiffre en Premier Si valeur 0

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

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #8

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!!

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 9 Décembre 2012

• #9

Re : Méttre chiffre en Premier Si valeur 0

Bonjour à tous,

Un début par formule pour excel2003,

JHA

 

Pièces jointes

• Valeur 0.xls

  29.5 KB · Affichages: 37
• Valeur 0.xls

  29.5 KB · Affichages: 32
• Valeur 0.xls

  29.5 KB · Affichages: 26

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #10

Re : Méttre chiffre en Premier Si valeur 0

Bonsoir JHA,

Je teste ça et je dit quoi!!

Merci beaucoup!!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Décembre 2012

• #11

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 ?
À +

 

Dernière édition: 9 Décembre 2012

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #12

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Décembre 2012

• #13

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.
À +

 

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #14

Re : Méttre chiffre en Premier Si valeur 0

Voila avec la modif

Merci

 

Pièces jointes

• Valeur2.xls

  288.5 KB · Affichages: 28

Vote positif 0 Vote négatif

P

phil59110

XLDnaute Occasionnel

• 9 Décembre 2012

• #15

Re : Méttre chiffre en Premier Si valeur 0

JHA à dit:

Bonjour à tous,

Un début par formule pour excel2003,

JHA

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif