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

[JBARBE]

Bonjour à tous,

Je sèche pour trier par macros des N° dans chacune des huit cellules prévues ainsi que pour supprimer les N° colonne A !

Merci à l'avance et bonne journée !

 

[Si...]

Re : Trier N° chacun dans huit cellules !

salut

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

 

[JBARBE]

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 !

 

[Si...]

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 :

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

 

[JBARBE]

Re : Trier N° chacun dans huit cellules !

Merci beaucoup Si....

Bonne soirée à tous !