Discussion :

[Nicos77]

Bonjour,

Je m'explique.

J'ai un fichier Excel avec une grande quantitée d'infos.

Dans certaine cellule j'ai des infos dont une adresse mail. L'adresse mail est entouré d'espace.

j'ai pensé à une solution mais je ne sais pas la mettre en place.

Rechercher dans la colonne en question le "@", a partir de ce point retourner en arrière jusqu'au premier espace trouvé (Mémoriser la sélection) et faire de même vers la fin.

Est-ce possible?
Difficile?

Voici l'exemple d'une cellule !!

Code :

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

SGB 210.018.57       BRUXELLES                NE PAS ACCEPTER CHEQUESBOITE A                  PRODEM                   BOITE A                  4521                                               0RRJ 160                      BE 419 122 152           00.32.496.23.12.15       jean.git@aol.com

Merci

[Megaxel]

C'est une question un peu bête, mais on ne sait jamais: l'adresse mail n'est pas, comme dans ton exemple, toujours en dernière position?
Et ton fichier Excel ressemble à un fichier csv mal ouvert dans Excel (mauvais choix des séparateurs). Si c'est le cas, n'y aurait-il pas moyen de "refaire" l'ouverture sous Excel?
Sinon, ton idée est réalisable.

[ouskel'n'or]

Déjà, tu utilises Split pour transformer ta chaîne en tableaux de chaîne.
(je ne sais pas comment marche split pisk'j'l'ai pas dans office 97)
Ensuite, tu repères la chaîne de ton tableau qui contient @
Enfin, tu fais "Monadresse = trim(Montableau(n))"

Maintenant les ceusses qui ont split t'expliqueront son utilisation...

A+

[Nicos77]

L'adresse mail est bien en dernière position partout !!!

J'essai de le réouvrir et je vous itens au courant !!!

[Nicos77]

Impossible de l'ouvrir autrement....

Merci

[SfJ5Rpw8]

Impossible de l'ouvrir autrement....

Merci

? as bon pourquoi ? .... ( extension de ton fichier ?)

la cellule est bien une cellule de droite ... ?


tu peu aussi ouvri ton fichier avec un éditeur de texte ( notepad..) pour voir sa structure ... :

[Megaxel]

Ou alors, tu peux lire directement ton fichier texte ligne par ligne, avec un "Open".

[Nicos77]

L'extension est 001. Je peux l'ouvrir en plein de mode mais aucun ne correspond à ma demande.

Je viens de determiné une largeur de cellule fixe via un menu et là, j'ai tous mes mails dans une colonne.

Par contre, j'ai également certain n° de tel !!

Est-ce possible de faire le tri?

Merci

[ouskel'n'or]

Tiens, regarde si ça te convient

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TrouverLadresse()
mot = "SGB 210.018.57 BRUXELLES NE PAS ACCEPTER CHEQUESBOITE A PRODEM BOITE A 4521 0RRJ 160 BE 419 122 152 00.32.496.23.12.15 jean.git@aol.com"
For i = Len(mot) To 1 Step -1
     MotRenversé = MotRenversé + Mid(mot, i, 1)
     If i > 5 And Mid(mot, i, 1) = " " Then Exit For
Next
 
For i = 1 To Len(MotRenversé)
      Adresse = Mid(MotRenversé, i, 1) + Adresse
Next i
MsgBox Adresse
 
End Sub

Amusant, non ?

A+

[Nicos77]

Merci mais je viens de tout finir à la main

[ouskel'n'or]

C'était bien la peine que le dodo il se décarcasse !!!
Ceci dit, "à la main", c'est bien aussi !