OVH Cloud OVH Cloud

Renvoie des données

3 réponses
Avatar
Patrick
Bonjour =E0 tous,

J'aimerai savoir comment renvoyer les valeurs dans ma=20
cellule apr=E8s tel caract=E8res.

EX : alain@alapage.com=20
Donc a partir de @ toutes les donn=E9es sont bascul=E9s sur la=20
deuxieme colonne. Le but n'est pas de le faire ligne par=20
ligne, mais sur la totalit=E9 d'une colonne.

R=E9sultat : alapage.com

Merci d'avance,
Patrick

3 réponses

Avatar
ru-th
Salut

Donnée/convertir étape 1 : délimité, étape 2 autre : @

a+
rural thierry

"Patrick" a écrit dans le message de
news: 0a6f01c3ba59$74cd67a0$
Bonjour à tous,

J'aimerai savoir comment renvoyer les valeurs dans ma
cellule après tel caractères.

EX :
Donc a partir de @ toutes les données sont basculés sur la
deuxieme colonne. Le but n'est pas de le faire ligne par
ligne, mais sur la totalité d'une colonne.

Résultat : alapage.com

Merci d'avance,
Patrick
Avatar
Ellimac
Bonjour,

A condition que B soit vide.
Sélection de A et Données/Convertir/Délimité/Autres : @

Camille

-----Message d'origine-----
Bonjour à tous,

J'aimerai savoir comment renvoyer les valeurs dans ma
cellule après tel caractères.

EX :
Donc a partir de @ toutes les données sont basculés sur
la

deuxieme colonne. Le but n'est pas de le faire ligne par
ligne, mais sur la totalité d'une colonne.

Résultat : alapage.com

Merci d'avance,
Patrick
.



Avatar
Frédéric Sigonneau
Bonjour,

Les solutions précédemment fournies sont parfaites, mais juste pour ne pas
manquer une occasion de dégainer le Split du jour, enfin, de 3 jours plus tard
:), version spéciale feuille de calcul (à condition que tu utilises Excel 2000
ou + récent) :

Function xlSPLIT(Chaine, Optional Delim = " ", Optional Elt)
Dim cell As Range
If IsMissing(Elt) Then
xlSPLIT = Split(Chaine, Delim)
On Error Resume Next
Set cell = Application.Caller
On Error GoTo 0
If cell Is Nothing Then Exit Function
If Application.Caller.Rows.Count > 1 Then _
xlSPLIT = Application.Transpose(xlSPLIT)
Else
If Elt < 0 Or Elt > UBound(Split(Chaine, Delim)) Then Elt = 0
xlSPLIT = Split(Chaine, Delim)(Elt)
End If
End Function 'fs

Après avoir copié ce code dans un module standard de ton classeur, si tu as en
A1 , entre en B1

=xlSplit(A1;"@";1)

pour renvoyer alapage.com

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à tous,

J'aimerai savoir comment renvoyer les valeurs dans ma
cellule après tel caractères.

EX :
Donc a partir de @ toutes les données sont basculés sur la
deuxieme colonne. Le but n'est pas de le faire ligne par
ligne, mais sur la totalité d'une colonne.

Résultat : alapage.com

Merci d'avance,
Patrick