Supprimer les espaces dans les cellules

Bonjour à tous

J'espère que vous alliez bien

Svp pouviez vous m'aider avec mon fichier ?

j'ai le même soucis. Je voudrais supprimer les espaces vides en les chiffres de la colonne D.

J'ai essayé avec cette macro mais rien ne se passe

Sub SupprimerEspacesInsécables()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim text As String

    ' Spécifie la feuille de calcul
    Set ws = ThisWorkbook.Sheets("rapport de transaction")

    ' Spécifie la plage de cellules
    Set rng = ws.Range("D9:D500")

    ' Parcours chaque cellule de la plage
    For Each cell In rng
        ' Vérifie si la cellule n'est pas vide
        If Not IsEmpty(cell.Value) Then
            ' Supprime les espaces insécables entre les chiffres
            text = Replace(cell.Value, Chr(160), "")

            ' Met à jour la valeur de la cellule avec le texte modifié
            cell.Value = text
        End If
    Next cell
End Sub

Cdt

Bonsoir à tous !

Une solution via Power Query ?

Compte tenu de votre Excel, un complément gratuit Microsoft est à installer. Ceci fait, mettre à jour le chemin de votre fichier CSV puis "Actualiser tout".

Si cette option (pourtant la meilleure) ne vous agrée pas, une formule :

=SUBSTITUE(D2;CAR(160);"")*1

Bonjour,
Une formule méconnue et/ou mal aimée !...

=VALEURNOMBRE(D2;",";CAR(160))

Cdlt.

Bonsoir à tous !

@Jean-Eric : Pleinement d'accord avec vos qualificatifs !

Cependant notre ami est dans un environnement Excel 2013.

Re,
@JFL,
Et cette fonction est apparue avec Excel 2013 ...
Cdlt.

Bonsoir à tous de nouveau !

Alors la documentation Microsoft et moi sommes défaillants....

Il faudra bien, un jour, que je me constitue un bréviaire des lacunes documentaires de notre éditeur préféré....

Bonsoir JFL et Jean-Eric

Merci beaucoup pour vos réponses. Je crois que je vais me résigner à une solution formule ou Power querry à défaut d'un code.

Merci pour votre aide

Bonsoir à tous de nouveau !

Je vous remercie de ce retour.

Bonjour,
@JFL,
Mon pense-bête (ou guide-âne) pour des fonctions Excel.
Cdlt.

Bonjour à tous !

Jean-Eric a écrit :

Mon pense-bête (ou guide-âne) pour des fonctions Excel.

Génial ! Grand merci à vous pour ce partage....

Bonjour,

Si je peux me permettre, une petite mise à jour pour xl2021, fonctions disponibles :

- Tableau.en.texte (ligne 2)
- Valeur.champ (ligne 12)
- Historique.actions (ligne 38)
- Valeur.en.texte (ligne 50)

Bonne journée

Re,
@cousinhub,
Ces fonctions étaient natives 2021 ou suite à des mises à jour ?
Il n'y a pas d'informations pour ces fonctions !?
Cdlt.

Re-,

Comment dire...

Je les utilise tellement souvent...

Je ne saurais te répondre à ce sujet, mais elles existent dans ma version :

Bonne journée

Re,
pour la version Excel, voir :

Re-,

Oui, bien sûr, Excel 2021 :

Re,
Tu as bien 2021 et une version pro.
Je doute que la version de base inclut ces fonctionnalités !
Cdlt.