Supprimer des doubles espaces dans chaque cellule et lettre redondante

josanche · 21 Avril 2012

Bonjour le forum,

J'aurais besoin de votre aide et elle serait la bienvenue pour résoudre mon problème. J'ai deux fichiers excel, commençons avec le premier "gun right check". En colonne A, il y a une liste de noms de sénateurs et je voudrais une fonction ou une macro qui convertit les doubles espaces en simple espaces (exemple: Shakira Mebarak ==> Shakira Mebarak).

Pour le deuxieme fichier excel "gun control check", il faudrait appliquer en premier temps une fonction ou un macro sur la colonne A pour supprimer dans chaque cellule une lettre qui traine (exemple du style Shakira M Ripoll, je veux que le M disparaisse).
Attention, Il s'agit que d'UNE lettre cad que si il est écrit Shakira Jr Ripoll, Jr ne dois PAS disparraitre car c'est deux lettre collé l'une de l'autre.

Ensuite, je voudrais qu'on applique dans la colonne A la meme fonction ou macro utilisé pour le premier fichier excel pour convertir les doubles espaces et les remplacer en simple espace !

Je vous remercie d'avance pour votre aide !

Josanche

david84 · 21 Avril 2012

Re : Supprimer des doubles espaces dans chaque cellule et lettre redondante

Bonjour,
Concernant ta 1ère demande :

Code:

=SUBSTITUE(A4;"  ";" ")

A+

david84 · 21 Avril 2012

Re : Supprimer des doubles espaces dans chaque cellule et lettre redondante

Re
concernant ta 2ème demande, une fonction personnalisée à tester :

Code:

Function Nettoyage(MaChaine As String) As String
Dim oRegExp As Object
If MaChaine = "" Then Exit Function
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
    'épurage des espaces doubles (ou plus)
    .Pattern = "\s{2,}"
    If .test(MaChaine) Then MaChaine = .Replace(MaChaine, " ")
    'épurage d'une lettre majuscule unique placée entre deux espaces
    .Pattern = "\s[A-Z]\s"
    If .test(MaChaine) Then MaChaine = .Replace(MaChaine, " ")
End With
Nettoyage = Trim(MaChaine)
End Function

A+

pierrejean · 21 Avril 2012

Re : Supprimer des doubles espaces dans chaque cellule et lettre redondante

Bonjour josanche

Salut David

Vois si cela te convient

josanche · 22 Avril 2012

Re : Supprimer des doubles espaces dans chaque cellule et lettre redondante

merciiiiiiiiiiiiiiiiiii

Supprimer des doubles espaces dans chaque cellule et lettre redondante

josanche

XLDnaute Occasionnel

Pièces jointes

david84

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

josanche

XLDnaute Occasionnel

Discussions similaires

Supprimer des doubles espaces dans chaque cellule et lettre redondante

josanche

XLDnaute Occasionnel

Pièces jointes

david84

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

josanche

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency