Discussion :

[Mister Paul]

Bonjour,

ça doit me crever les yeux mais je n'y arrive pas.

J'ai une cellule avec une centaine de numéros de téléphone séparés par un espace.
J'aimerais me trouver avec une colonne d'une centaine de cellules, chacune avec 1 numéro de téléphone.

Je n'arrive pas à faire ça avec le rechercher /remplacer...

Merci pour l'aide
PAul

[mercatog]

Si tu as des n° de téléphone séparés avec un espace en A1 de Feuil1, essaies ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Trans()
Dim Str As String
Dim Tb
 
Application.ScreenUpdating = False
With Worksheets("Feuil1").Range("A1") ' à adapter
    Str = Trim(.Value)
    Tb = Split(Str)
    If UBound(Tb) > 0 Then .Resize(UBound(Tb) - LBound(Tb) + 1, 1) = Application.Transpose(Tb)
End With
End Sub

[Mister Paul]

Aïe j'ai posté par erreur dans Macros et VBA : je n'ai pas ces fonctionnalités sur ma version Mac d'Excel...


Il faudrait que je fasse ça avec une autre méthode…

[doncamelo]

Bonjour Mister Paul,

Une solution (peut-être pas la meilleure) :
1- En A1 se trouve ta cellule avec les centaines de num tel avec les espaces
2- Il ne faut pas que tu ais des données après la colonnes A
3- Sélectionne la colonne A
4 - Va dans Donnees --> Convertir
5- Sélectionne : * Largeur Fixe : Les champs sont alignés par colonnes et séparés par des espaces
6- Dans l'aperçu de données (la page suivante), tu peux modifier la séparation par défaut
7- Normalement à ce stade, le tour est joué.

Doncamelo.

[Mister Paul]

Ah c'est quasi ça sauf que là ça me ventile les données sur des colonnes séparées au lieu de les mettre sur une même colonne…

[doncamelo]

Il te suffit de copier ta ligne A et en A2 (par exemple) faire un Collage Spécial - Transposé.

Doncamelo

[Mister Paul]

Merci Doncamelo