Trier N° chacun dans huit cellules !( Résolu )

S

Si...

XLDnaute Barbatruc

• 6 Janvier 2016

• #2

Re : Trier N° chacun dans huit cellules !

salut

voir fichier joint (cas de 8 numéros par ligne)

 

Pièces jointes

• Trier par Split.xls

  32.5 KB · Affichages: 31

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Janvier 2016

• #3

Re : Trier N° chacun dans huit cellules !

Merci, mais peut-être suis-je exigeant, il me faudrait les N° dans l'ordre ( voir désordre ci-joint )!

Bonne soirée !

 

Pièces jointes

• Numéros_Cellules.jpg

  6.7 KB · Affichages: 27

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 6 Janvier 2016

• #4

Re : Trier N° chacun dans huit cellules !

re

au mot "Trier", j'ai pensé à l'ordre de grandeur. Si tu veux garder l'ordre d'écriture, c'est plus simple :

VB:

Sub unparun()
  Dim L As Byte, n As Byte, a
  Application.ScreenUpdating = 0
  For L = 1 To 15 Step 2
    Cells(L, 1) = Trim(Cells(L, 1))  'plus d'espaces
     Cells(L, 1) = Replace(Cells(L, 1), ":", "-") 'remplacement de : par -
     a = Split(Cells(L, 1), "-")  'tableau des éléments de la cellule séparés par -
     For n = 0 To 8: Cells(L, 7 + n) = a(n): Next 'écriture
   Next
 [A1:A15] = ""   'nettoyage
End Sub

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Janvier 2016

• #5

Re : Trier N° chacun dans huit cellules !

Merci beaucoup Si....

Bonne soirée à tous !

 

Vote positif 0 Vote négatif