Microsoft 365 Supprimer un espace invisible avant un nombre

[AudreyLa]

Bonjour,

Je n'arrive pas à supprimer l'espace devant les numéros de Siret, cela provient d'une extraction DMS.
J'ai essayé diverse manière (substitue, remplacer par, supprimer les formats… )

Quelqu'un aurait une idée ?

Merci

 

[Nicolas JACQUIN]

Bonjour,

avec en B2 par exemple =SUPPRESPACE(A1)

Nicolas

 

[AudreyLa]

Bonjour,

avec en B2 par exemple =SUPPRESPACE(A1)

Nicolas

Merci Nicolas mais j'ai déjà essayé, quand je supprime la formule en faisant un copié/collé123 je retrouve mon espace...

 

[jurassic pork]

Hello,
apparemment c'est un caractère TAB que tu as devant tes numéros. Veux-tu une formule ou un code VBA qui te supprime définitivement les caractères parasites ?
Ami calmant, J.P

 

[AudreyLa]

Hello,
apparemment c'est un caractère TAB que tu as devant tes numéros. Veux-tu une formule ou un code VBA qui te supprime définitivement les caractères parasites ?
Ami calmant, J.P

Hello,

Plutôt une formule parce que je ne maîtrise pas encore assez le VBA 🙂
Merci

 

[Nicolas JACQUIN]

ou en vba

Sub SupprimerEspacesInvisiblesDebut()
    Dim Cellule As Range
    Dim Texte As String
    Dim i As Integer
    
    ' Parcourt chaque cellule sélectionnée
    For Each Cellule In Selection
        If Not IsEmpty(Cellule) Then
            Texte = Cellule.Value
            ' Supprime tous les espaces au début (y compris les caractères invisibles)
            Do While Left(Texte, 1) = " " Or Asc(Left(Texte, 1)) = 160 Or Asc(Left(Texte, 1)) = 9
                Texte = Mid(Texte, 2)
            Loop
            Cellule.Value = Texte
        End If
    Next Cellule
End Sub

 

[ALS35]

Bonjour à tous,
Tu as un caractère de tabulation (Car(9), devant, essaie avec EPURAGE(A1)
Cordialement

 

[Nicolas JACQUIN]

ou alors en formule: =STXT(A1;EQUIV(VRAI;ESTNUM(CODE(STXT(A1;LIGNE($1:$50);1)));0);NBCAR(A1))

 

[sousou]

Bonjour essaie ceci.
=DROITE(A1;NBCAR(A1)-1)

 

[AudreyLa]

Bonjour à tous,
Tu as un caractère de tabulation (Car(9), devant, essaie avec EPURAGE(A1)
Cordialement

Top ça fonctionne et ça va grandement m'aider ! Merci beaucoup

 

[AudreyLa]

ou en vba

Sub SupprimerEspacesInvisiblesDebut()
    Dim Cellule As Range
    Dim Texte As String
    Dim i As Integer
   
    ' Parcourt chaque cellule sélectionnée
    For Each Cellule In Selection
        If Not IsEmpty(Cellule) Then
            Texte = Cellule.Value
            ' Supprime tous les espaces au début (y compris les caractères invisibles)
            Do While Left(Texte, 1) = " " Or Asc(Left(Texte, 1)) = 160 Or Asc(Left(Texte, 1)) = 9
                Texte = Mid(Texte, 2)
            Loop
            Cellule.Value = Texte
        End If
    Next Cellule
End Sub

Dès que j'ai un peu de temps j'essaye de la mettre dans ma feuille de suivi, cela me parait plus pertinent pour l'utilisation par d'autres de mon fichiers. Merci beaucoup !

 

[Nicolas JACQUIN]

Dès que j'ai un peu de temps j'essaye de la mettre dans ma feuille de suivi, cela me parait plus pertinent pour l'utilisation par d'autres de mon fichiers. Merci beaucoup !

Je pense être la meilleur solution de passer en vba, en modifiant un peu le code bien sûre, ça évitera des colonnes en plus et ça permettrait d'avoir directement le bon format à la modification de feuille.

Bonne continuation

Nicolas

 

[Nicolas JACQUIN]

Voici code modifié, si valeur entré en colonne "A" avec le fichier

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
    Dim Texte As String
    
    ' Vérifie si la modification est dans la colonne A
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        ' Parcourt chaque cellule modifiée dans la colonne A
        For Each Cellule In Target
            If Not IsEmpty(Cellule) Then
                Texte = Cellule.Value
                ' Supprime tous les espaces au début (y compris les caractères invisibles)
                Do While Left(Texte, 1) = " " Or Asc(Left(Texte, 1)) = 160 Or Asc(Left(Texte, 1)) = 9
                    Texte = Mid(Texte, 2)
                Loop
                Cellule.Value = Texte
            End If
        Next Cellule
    End If
End Sub

A tester

 

[Victor21]

Bonjour à tous.

Microsoft 365, pourquoi ne pas utiliser les expressions régulières ?

=REGEX.EXTRAIRE(A1;"\d{14}")