classer des colonnes

Version imprimable

24/04/2020, 10h57
gaelle671

1 pièce(s) jointe(s)

classer des colonnes

bonjour,
est-ce quelqu’un aurait une idée d'une macro qui pourrait classer dans le même ordre les chiffres que je lui met en feuille 1 contenu dans 1 colonnes séparer avec " / ", il y a toujours 3 chiffres donc 3 colonnes par lignes.
voici le fichier vous comprendrez beaucoup mieux : Pièce jointe 559716

( ligne 1 : les chiffres à classer et à partir ligne 3 : le résultats attendu )

mon exemple contient que 5 suites de chiffre mais ceci est un exemple j'en ai plus d'habitude à traiter.
merci de votre aide

Citation:

Envoyé par gaelle671

Bonjour,

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Test()
 
Dim I As Integer, J As Integer, DerniereColonne As Integer
 
  With ActiveSheet
       DerniereColonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
       J = 3
       For I = 1 To DerniereColonne
           With .Cells(1, I)
                ActiveSheet.Cells(J, 1) = Split(.Value, "/")(0)
                ActiveSheet.Cells(J, 2) = Split(.Value, "/")(1)
                ActiveSheet.Cells(J, 3) = Split(.Value, "/")(2)
           End With
           J = J + 1
       Next I
  End With
 
End Sub

24/04/2020, 12h09
Menhir

A priori, ce que tu demandes peut être réalisé en deux actions :

D'abord une copie avec collage transposé, ce qui mettra tes séries les unes sous les autres.
Ensuite la séparation avec la commande Convertir du ruban Données.

En VBA, ces deux actions peuvent être réalisées en trois lignes de code dont l'enregistreur automatique de macro te livrera 80%.
24/04/2020, 12h42
gaelle671

merci ! cela fonctionne parfaitement Eric KERGRESSE,
Mehnir je n'ai pas compris comment faire mais la macro à Eric fonctionne donc c'est bon :)
bonne journée