Supprimer premiereS majuscules d'une cellule

[bestsh]

Bonjour,

j'ai recherché longtemps sur Internet et été au bout de mes connaissances (modestes) dans excel.
Je cherche à enlever les majuscules imbriquées par erreur dans ma liste d'adresse Email.

Exemple :

BYLfrance@xxxx.com
RECRUTEMENToffre339119.8@ixxxx.com
CLEMENCEcanusc@xxxxo.fr
ROSNY-SOUS-BOISe.robois@xxxxxi.fr
JIYOUNGaatelier@wanadoo.fr
YASMINAykaddour@pxxxxt.net
JEROMEemailnt@gixxxxv.fr

et aussi

ANDERSSONcardss@oxxxxxope.comAUTRE PHRASE EN FIN DE CELLULE


Voilà...J'aimerai effacer en gros toutes les majuscules d'une cellule dans ce cas là.

Merci d'avance pour votre aide.

 

[DoubleZero]

Re : Supprimer premiereS majuscules d'une cellule

Bonjour à toutes et à tous, bonjour bestsh et bienvenue 🙂,

Voir le fichier joint.

Bonne journée.

 

[Staple1600]

Re : Supprimer premiereS majuscules d'une cellule

Bonjour betstsh, 00

Voilà...J'aimerai effacer en gros toutes les majuscules d'une cellule dans ce cas là

Pour cela il existe la fonction : =MINUSCULE(*)

ou *= la référence d'une cellule.

 

[Efgé]

Re : Supprimer premiereS majuscules d'une cellule

Bonjour bestsh, DoubleZero 🙂, Bonjour Staple 🙂,
Une proposition par macro (merci à DoubleZero d'avoir fait le fichier

Option Explicit
Private Sub CommandButton1_Click()
Dim LTLigne As Long
Dim VTPlage As Variant
Dim TSFin() As String
'-------------------------------------------------------------
VTPlage = Range("A2:" & Cells(Rows.Count, 1).End(xlUp).Address).Value
'-------------------------------------------------------------
ReDim TSFin(1 To UBound(VTPlage, 1), 1 To 2)
For LTLigne = LBound(VTPlage, 1) To UBound(VTPlage, 1)
    TSFin(LTLigne, 1) = LCase(VTPlage(LTLigne, 1))
Next LTLigne
Columns("B").ClearContents
Range("B2").Resize(UBound(TSFin, 1), 1) = TSFin
End Sub

Cordialement.

 

[bestsh]

Re : Supprimer premiereS majuscules d'une cellule

Bonjour et tout d'abord merci Efgé et Doublezéro.

Je me suis sans doute mal exprimé, autant pour moi.

En fait je voudrais SUPPRIMER les majuscules car elles ne font pas partie de l'adresse Email.

Par exemple :

BYLfrance@xxxx.com >>> france@xxxx.com
RECRUTEMENToffre339119.8@ixxxx.com >>> offre339119.8@ixxxx.com
CLEMENCEcanusc@xxxxo.fr >>> canusc@xxxxo.fr
ANDERSSONcardss@oxxxxxope.comAUTRE PHRASE >>> cardss@oxxxxxope.com

Si vous avez une idée cela pourrait m'aider fortement.

 

[JNP]

Re : Supprimer premiereS majuscules d'une cellule

Bonjour le fil 🙂,
Pour faire plaisir à Jean-Marie ici présent, une solution RegExp

Function ExtraitMinuscule(MonTexte As String) As String
Dim Matches, Match
Application.Volatile
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[^A-Z]"
    Set Matches = .Execute(MonTexte)
    For Each Match In Matches
        ExtraitMinuscule = ExtraitMinuscule & Match
    Next
End With
End Function

Je n'ai pas tenu compte des majuscules accentuées ou autre caractères spéciaux, mais le Pattern est aisément modifiable en ajoutant les caractères non souhaités à la fin de la classe

.Pattern = "[^A-ZÂÄÀÉÈÊËÎÏÔÖÛÙ]"

Bonne journée 😎
PS : Bises à 00 et merci pour le fichier 🙂

 

[bestsh]

Re : Supprimer premiereS majuscules d'une cellule

Merci JNP.

pour peaufiner en prenant encore quelques minutes de vos cerveaux et mettre quelques infos de plus dans le mien :

1) comment enregistrer ton module en macro que je peux retrouver à partir de chaque classeur (si c'est possible ouf course 🙂)

2) Dans ta formule, (j'ai ajouté les caractères spéciaux d'ailleurs) s'il y a des nombres cela ne peut les prendre en compte. Y a t'il un moyen de rechercher toutes les minuscules avant et après un "@" et de les extraire? cela pourrait résoudre tous les problèmes.

Merci encore, vous êtes formidables les gars (bon je sais qu'on a déjà dù vous le dire allez.. (je me permet un petit MDR))


Bestsh.

 

[bestsh]

Re : Supprimer premiereS majuscules d'une cellule

Au fait, avant une réponse sur le point 2 : il arrive qu'il y ait des nombre dans les emails même donc je ne peux pas ajouter l'extraction des nombres directement dans le module.. 😉

 

[JNP]

Re : Supprimer premiereS majuscules d'une cellule

Re 🙂,
1) Tu crées un fichier PERSONNAL.XLSB en enregistrant une macro avec l'enregistreur de macro et en choisissant Enregistrer la macro dedans : classeur de macros personnelles.
Les fonctions mises dans les modules de ce fichier seront accessibles à chaque ouverture d'Excel 😛...
2) Allez, soyons puriste 🙄

Function ExtraitMinuscule2(MonTexte As String) As String
Dim Matches, Match
Application.Volatile
With CreateObject("vbscript.regexp")
    .Global = False
    .Pattern = "([a-z0-9_\.\-])+@(([a-z0-9\-])+\.)+(com|org|net|gov|biz|info|name|aero|fr|be|co.uk|it|es|de|info)+"
    Set Matches = .Execute(MonTexte)
    If Matches.Count = 1 Then ExtraitMinuscule2 = Matches(0)
End With
End Function

ne devrait accepter que des adresses mails valides 😛 !
Bonne suite 😎

 

[Staple1600]

Re : Supprimer premiereS majuscules d'une cellule

Bonjour le fil

Bonjour le fil 🙂,
Pour faire plaisir à Jean-Marie ici présent, une solution RegExp[

Juste un petit passage pour remercier JNP de sa délicate attention 😉