• Initiateur de la discussion Initiateur de la discussion Marc
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Marc

Guest
Bonjour à toutes et tous,

je voudrais supprimer les espaces dans un nombre.
Ces chiffres sont importés d'internet avec l'extension .csv
J'ai essayé , recherche espace, supprespace(),cnum(): nada.
Je me souviens avoir vu sur ce forum que cet espace était à rechercher via un code du genre 0161 ou autre...
Si quelqu'un peut m'aider.

Merci
🙂
 
Bonjour,

Convertis la colonne via données convertire, utilise largeur fixe, clic sur suivant jusquà format des cellules, choisis texteet terminer.
Esuite utilise edition remplacer ' ' par rien, ca devrait marcher enfi peut être

bonne journée
 
Tibo,

merci pour la formule, ça marche bien.

Pierrot,
j'ai essayé ta solution mais sans succès; merci quand même.

Avec Ctrl+F et entrer un code, il y a moyen de supprimer ces espaces, mais quel code...

🙂
 
Re,

Pour la solution de Pierrot, il faut faire ainsi :

Sélectionner la (ou les) colonne(s) concernées

Faire CTRL H (pour Remplacer)
Rechercher Alt 0160
Remplacer par : rien du tout

Et ça doit également fonctionner et on fait l'économie des formules.

A toi de choisir

@+
 
Bonjour,

Si ça t'intéresse, on peut faire la somme sans passer par une colonne de conversion :

=SOMME(SI(A2:A16 différent de '';SUBSTITUE(A2:A16;CAR(160);'')*1))

Formule matricielle, à valider par ctrl, maj et entrée
Tu remplaces 'différent de' par les signes supérieur à et inférieur à

Message édité par: monique, à: 17/04/2006 14:55
 
Salut

ma soluce en vba:
basé sur un code de 'Mc Ritchie (MPEP)'
' sélectionner les cellules avant de lancer la macro
Sub REMOVESPACE()
'David McRitchie 2000-02-28 excel.programming
Application.ScreenUpdating = False
Dim temp As String
Dim cell As Range
For Each cell In Selection ' .SpecialCells(xlCellTypeConstants, 2)
'above limits to constants which are TEXT
If InStr(1, cell.Value, Chr(160)) Then 'Insure possibility of change
temp = Trim(cell.Value)
While InStr(temp, Chr(160)) > 0
temp = Replace(temp, Chr(160), '')
Wend
cell.Value = Trim(temp)
End If
Next
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
2 K
Réponses
14
Affichages
3 K
Réponses
1
Affichages
584
Guest
G
Retour