Discussion :

[gaelle671]

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 : devlopez.xlsx

( 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

[Invité]

Bonjour,

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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%.

[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