Est-il possible et si oui, par quel procédé y a t'il moyen d'effectuer un
tri sur des cellules formatées en texte (Certains nombres reçoivent des
lettres).
Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100
Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab
En vous remerciant d'avance pour tout conseil.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Sub triColInter2() [b:b].Insert For Each c In Range([A2], [a65000].End(xlUp)) c.Offset(0, 1) = Val(c) Next c Range("A2").CurrentRegion.Select Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select Selection.Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess [b:b].Delete End Sub
Est-il possible et si oui, par quel procédé y a t'il moyen d'effectue r un tri sur des cellules formatées en texte (Certains nombres reçoivent d es lettres). Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100 Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab En vous remerciant d'avance pour tout conseil.
Merci Christian
Bonsoir,
Sub triColInter2()
[b:b].Insert
For Each c In Range([A2], [a65000].End(xlUp))
c.Offset(0, 1) = Val(c)
Next c
Range("A2").CurrentRegion.Select
Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select
Selection.Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess
[b:b].Delete
End Sub
http://cjoint.com/?gqwc2xBPlr
JB
http://boisgontierjacques.free.fr/
On 16 juin, 21:26, Christian <Christ...@discussions.microsoft.com>
wrote:
Bonjour à tous et toutes
Est-il possible et si oui, par quel procédé y a t'il moyen d'effectue r un
tri sur des cellules formatées en texte (Certains nombres reçoivent d es
lettres).
Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100
Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab
En vous remerciant d'avance pour tout conseil.
Sub triColInter2() [b:b].Insert For Each c In Range([A2], [a65000].End(xlUp)) c.Offset(0, 1) = Val(c) Next c Range("A2").CurrentRegion.Select Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select Selection.Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess [b:b].Delete End Sub
Est-il possible et si oui, par quel procédé y a t'il moyen d'effectue r un tri sur des cellules formatées en texte (Certains nombres reçoivent d es lettres). Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100 Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab En vous remerciant d'avance pour tout conseil.
Merci Christian
Christian
Bonjour JB Un tout grand merci pour la solution. Bonne fin de week-end -- Christian
Bonsoir,
Sub triColInter2() [b:b].Insert For Each c In Range([A2], [a65000].End(xlUp)) c.Offset(0, 1) = Val(c) Next c Range("A2").CurrentRegion.Select Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select Selection.Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess [b:b].Delete End Sub
Est-il possible et si oui, par quel procédé y a t'il moyen d'effectuer un tri sur des cellules formatées en texte (Certains nombres reçoivent des lettres). Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100 Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab En vous remerciant d'avance pour tout conseil.
Merci Christian
Bonjour JB
Un tout grand merci pour la solution.
Bonne fin de week-end
--
Christian
Bonsoir,
Sub triColInter2()
[b:b].Insert
For Each c In Range([A2], [a65000].End(xlUp))
c.Offset(0, 1) = Val(c)
Next c
Range("A2").CurrentRegion.Select
Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select
Selection.Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess
[b:b].Delete
End Sub
http://cjoint.com/?gqwc2xBPlr
JB
http://boisgontierjacques.free.fr/
On 16 juin, 21:26, Christian <Christ...@discussions.microsoft.com>
wrote:
Bonjour à tous et toutes
Est-il possible et si oui, par quel procédé y a t'il moyen d'effectuer un
tri sur des cellules formatées en texte (Certains nombres reçoivent des
lettres).
Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100
Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab
En vous remerciant d'avance pour tout conseil.
Bonjour JB Un tout grand merci pour la solution. Bonne fin de week-end -- Christian
Bonsoir,
Sub triColInter2() [b:b].Insert For Each c In Range([A2], [a65000].End(xlUp)) c.Offset(0, 1) = Val(c) Next c Range("A2").CurrentRegion.Select Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select Selection.Sort Key1:=[B2], Order1:=xlAscending, Header:=xlGuess [b:b].Delete End Sub
Est-il possible et si oui, par quel procédé y a t'il moyen d'effectuer un tri sur des cellules formatées en texte (Certains nombres reçoivent des lettres). Ex:Souhaité: 1,1ab,2,3ab,4ab,5,6ab,10,20,100 Actuellement, je trouve après tri: soit: 1,10,100,1ab,2,20,3ab,4ab,5,6ab
1,2,5,10,20,100,1ab,3ab,4ab,6ab En vous remerciant d'avance pour tout conseil.