Supprimer deux espaces en vba

Jocelyn à dit:

re,

Le car(32) en formule ou peut être chr(32) en VBA mais la pas sur est un espace insécable

voila ce qu'en dit wikipédia

Une espace insécable est un caractère typographique consistant en une espace que l’on intercale entre deux mots (ou un mot et une ponctuation) qui ne doivent pas être séparés par un éventuel retour à la ligne automatique. L’espace insécable permet d’éviter qu’un mot ou une ponctuation soit rejeté et isolé en début de ligne lorsque cela nuirait à la fluidité de la lecture.
Le code typographique français recommande, contrairement à d’autres langues telles que l’anglais, une espace insécable[SUP]1[/SUP] devant les signes de ponctuation doubles (point-virgule, point d’interrogation, point d’exclamation, deux-points), entre les guillemets et le texte qu’ils renferment, ainsi que comme séparateur des groupes de caractères (séparateur de groupes de trois chiffres dans les nombres par tranches de mille pour la partie entière et la partie décimale[SUP]2[/SUP], séparateur sans valeur facilitant la lecture des numéros de téléphone[SUP]3[/SUP] ou des numéros et codes d’identification, etc.).

Cliquez pour agrandir...

13GIBE59 à dit:

Bonjour Jocelyn,

merci pour ta réponse qui m'apprend (comme d'habitude) quelque chose : qu'est-ce que le Chr 32 ?

Cela dit, avec :

Code:

Sub supprespaces()
Dim X As Long
For X = 2 To Range("B65536").End(xlUp).Row
        Range("B" & X) = Replace(Range("B" & X), Chr(160), "")
        Range("B" & X) = Replace(Range("B" & X), Chr(32), "")
Next X
End Sub

ça marche parfaitement, merci !

Cliquez pour agrandir...

Si... à dit:

salut

tu peux passer par LTrim pour des espaces "normaux" (voir aide)
Variante :

Code:

Sub supprespaces()
  Dim R As Range
  For Each R In Range("B1", [B6000].End(xlUp))
    R = Replace(LTrim(R), Chr(160), "")
  Next
End Sub

Cliquez pour agrandir...