XL 2016 Problèmes espace dans les cellules

Fhll

XLDnaute Nouveau
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:

IdentifiantNomsService
17FKRH3DUPONT STANRH
17FKRH3DUPONT STANRH

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

XLDnaute Barbatruc
Bonjour Fhll, bienvenue sur XLD,

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

A+
 

zebanx

XLDnaute Accro
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 ;)
 

Fhll

XLDnaute Nouveau
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..
 
Haut Bas