Découper une cellule

Version imprimable

Bonjour,

Sous excel 2010,

J'ai une cellule avec 60 nombres espacés par une tabulation.

Je souhaite la de couper en 60 cellules contenant un nombre a chaque fois.

J'ai trouvé le code que je n'arrive pas a adapter (même ce code ne fonctionne pas) :

Extraire les données séparées par un espace dans une chaine de caractères
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub extractionMots() Dim Tableau() As String Dim i As Integer 'découpe la chaine en fonction des espaces " " 'le résultat de la fonction Split est stocké dans un tableau Tableau = Split("Bienvenue sur le site Developpez.com", " ") 'boucle sur le tableau pour visualiser le résultat For i = 0 To UBound(Tableau) 'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros Debug.Print Tableau(i) Next i End Sub
D'avance merci pour m'aiguiller

Hidozo

Tiens voilà le code pour des chiffres et j'ai fait une opération avec z pour vérifier qu'il s'agisse bien de chiffres.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub test()
 
Dim Tableau() As String
Dim i As Integer
Dim x As Double
Dim z As Double
'découpe la chaine en fonction des espaces " "
 
'le résultat de la fonction Split est stocké dans un tableau
 
Tableau = Split("10 12 15 14 25 26 36 58", " ")
z = 0
 
'boucle sur le tableau pour visualiser le résultat
For i = 0 To UBound(Tableau)
'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
Debug.Print CDbl(Tableau(i))
x = CDbl(Tableau(i))
z = z + x
Debug.Print z
Next i
 
End Sub

résolu

re bonjour,

merci pour la réponse verredewhisky

j'ai essayé celle là et elle fonctionne bien.

Je vais faire un comparatif des 2 pour prendre la pus rapide, car en fait je vais avoir l'équivalanet de 30 cellules par seconde sur parfois 2 heures... cela fait quelques lignes
Code:

1 2 3 4 5 6 7 8 Sub CommandButton1_Click() Dim strTableauMot() As String Cells(3, 1).Activate With ActiveCell strTableauMot() = Split(.Value, " ") Range(Cells(.Row, .Column + 1), Cells(.Row, UBound(strTableauMot) + .Column + 1)) = strTableauMot End With End Sub
Encore merci

hidozo

Code:

1
2
3
4
5
6
7
8
9
Sub CommandButton1_Click()
Dim strTableauMot()  As String
Cells(3, 1).Activate
 
With ActiveCell
        strTableauMot() = Split(.Value, Chr(9))
        Range(Cells(.Row, .Column + 1), Cells(.Row, UBound(strTableauMot) + .Column + 1)) = strTableauMot
End With
End Sub