Discussion :

[hidozo]

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 :

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
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

[verredewhisky]

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 :

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
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

[hidozo]

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 :

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

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

[Invité]

Code :

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

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