Discussion :

[djobadi]

Je souhaiterai des données (nombres ou caractères) se trouvant dans une seule cellule puis les attribuer à d'autres cellules:

Exemple:

Départ
D3 = 1.2 1.24 1.3256 1.364
final
E3 = 1,2
F3 = 1.24
G3 = 1.3256
H3 = 1.364

Départ
D4 = 2.2663 34.656 6.003 7.1 9.52324
Final
E4 = 2.2663
F4 = 34.656
G4 = 6.003
H4 = 9.52324

La plage va par exemple de D3 à D(n)

Merci.

[riaolle]

Bonjour,
Pas besoin de VBA pour cela. TU peux utiliser la fonctionnalité suivante :

[djobadi]

Bonsoir,

Je viens de voir votre réponse et elle fonctionne.
Maintenant je voudrai savoir SVP comment réaliser la conversion avec des chiffres non pas séparé par des virgules mais par une tabulation?
Ou comment en début de formule remplacer les tabulation, dans les cellules d'une colonnes, par des espaces.

Merci

[riaolle]

Bonjour,

[djobadi]

Merci ça m'a aidé.

Maintenant j'ai essayé d'automatiser tous ça afin de pouvoir traiter jusqu’à 600 cellules mais j'ai un problème,il copie les cellules mais pour ce qui est de la conversion rien ne se passe. au mieux il copie une des valeur de la première cellule et la copie dans les autres cellules.

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
 
 
Sub convertir()
 
    Dim Fin As Long, i As Long
    Fin = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 3 To Fin
        Range("C" & i).Copy Range("G" & i)
 
    Next i
 
    For i = 3 To Fin
        Selection.TextToColumns Destination:=Range("G" & i), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
            Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
        SendKeys "{ENTER}", True
    Next i
End Sub

[djobadi]

Après recherche j'ai fini par effectuer ce changement de code pour la 2ème boucle for. Ca me donne le résultat rechercher mais me donne une erreur 1004 toujours dans la zone

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
 
 
Range("G3").Select
    Range(Selection, Selection.End(xlDown)).Select
    a = Selection.Cells.Count
 
    For i = 0 To a - 1
 
        Selection.TextToColumns Destination:=Range("G" & i + 3), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
            :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
            Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
        SendKeys "{ENTER}", True
    Next i