XL 2016 Problèmes espace dans les cellules

[Fhll]

Bonjour,

J'ai un fichier Excel qui va récupérer des infos dans un autre via une macro.
Le but est de récupérer 3 colonnes où sont présent les identifiants, noms et provenances des personnes.
Le problème est que, dans le fichier où sont récupérer les informations, certains noms et prénoms sont séparés par 1 espace et ces mêmes noms et prénoms peuvent aussi être séparer par 2 espaces.
Du coup je me retrouve avec des "doublons"...
Ne pouvant pas toucher le document "mère"; je souhaiterais supprimé dans mon fichier final les espaces en trop (ne laissé qu'un seul espace quand il y en a 2 et garder l'espace quand il n'y en a qu'un). Mais j'ai environ 1000 lignes... Et je n'arrive pas à trouver de solution...

Exemple:

Identifiant	Noms	Service
17FKRH3	DUPONT STAN	RH
17FKRH3	DUPONT STAN	RH

J'ai déjà essayer :
Cells(B2, 2).Value = Replace(Cells(B2, 2).Value, " ", " ")
pour voir si ça fonctionnait sur une cellule... Mais pas du tout

 

[job75]

Bonjour Fhll, bienvenue sur XLD,

Pour supprimer les espaces superflus de la cellule c en VBA utiliser Application.Trim(c)

A+

 

[zebanx]

Bonjour Fhil, le forum

Essayez cette formule
=SUPPRESPACE(EPURAGE(A1)) *

En VBA ça doit donner =TRIM(CLEAN(A1))

@+

* au cas où il y ait des caractères spéciaux avec l'importation sinon supprespace suffit.

edit : bonjour job75

 

[job75]

Bonjour zebanx,

En VBA Trim (tout seul) supprime les espaces avant et après, pas au milieu..

A+

 

[Fhll]

Oui, ça ne fonctionne pas car les espaces sont entre le nom et prénom.. En plus avec la fonction Trim(Clean(B2)) je dois faire cellule par cellule... Sauf que je n'ai jamais le même nombre de ligne et ce n'est jamais les mêmes cellules qui sont impactées par ce problème..

 

[job75]

Vous n'avez pas vu mon post #2 ??? Testez cette fonction en VBA...

 

[Fhll]

Vous n'avez pas vu mon post #2 ??? Testez cette fonction en VBA...

C'est bon, le application.trim a eu l'air de fontionner ... Merci