Discussion :

[Vigo Ravel]

Bonjour à tous,

Je viens d'acheter, en pensant faire une bonne affaire, une mail list. Cependant, je découvre qu'il y a également le MDP sur la même ligne, dans la même cellule ex : mail@gmail.com:motdepasse)

En toute sincérité, le MDP ne m’intéresse aucunement et je souhaite le faire disparaître pour ne bénéficier que du mail dans la cellule.
Peut on modifier ça à l’aide de macro sur excel 2016 ? Et ainsi répéter l'action sur chaque colonnes ?

Si oui, pouvez m'indiquer la marche à suivre ou du moins des infos me le permettant, car je suis un véritable novice et je ne me vois pas supprimer l’intégralité à la main

Merci pour votre aide.

Bon weekend

[Philippe Tulliez]

Bonjour,
Il n'est pas obligatoire de passer par une macro.
Etant donné que le mot de passe se trouve immédiatement après le caractère ":", il suffit de faire un recherche (fonction CHERCHE ou TROUVE) sur ce caractère et ensuite d'extraire la partie gauche de la chaîne (fonction GAUCHE)
Pour les exemples, la chaîne source est cellule A2
Exemple

Code :

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

=GAUCHE(A2;CHERCHE(":";A2)-1)

Avec le VBA, c'est le même principe. La recherche se fait à l'aide de la fonction Instr et Left pour l'extraction de la chaîne
Exemple

Code :

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

1
2
3
4
5
Sub t()
 Dim addrMail As String
 addrMail = Range("A2").Value
 Range("B2").Value = Left(addrMail, InStr(addrMail, ":") - 1)
End Sub

[Vigo Ravel]

Bonjour Philippe,

Merci pour ton réponse, c'est d'une efficacité redoutable.
Cependant dans le cas de figure suivant :

mail@gmail.com:mdp
mail@gmail.com:mdp
mail@gmail.com:mdp
mail@gmail.com:mdp
mail@gmail.com:mdp
mail@gmail.com:mdp

Puis je la modifier pour effectuer le changement sur l’ensemble des cellules ?
Navré pour mon ignorance et merci pour ton aide.

[Philippe Tulliez]

Bonjour,
Dans ma rapidité à répondre, j'ai omis la fonctionnalité Rechercher/Remplacer) beaucoup plus simple
Manuellement (sans VBA)

• Sélection de la plage à modifier
• Dans la zone de texte "Rechercher" entrer :*
• Dans la zone de texte Remplacer ne rien mettre
• Cliquer sur bouton remplacer tout

[EDIT]
Pour le VBA en utilisant la méthode Replace

Code :

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

1
2
3
Sub t2()
 Range("A2:A10000").Replace What:=":*", Replacement:="", LookAt:=xlValue
End Sub

[Vigo Ravel]

C'est super !!!!!
Un grand merci pour votre aide Philippe. Vraiment
Problème résolu, rapide efficace. Merci