Discussion :

[guigui69]

Bonjour à tous,

je voudrais savoir en VBA comment supprimer un espace invisible (le separateur de millier)

Car j'ai des nombre (exemple: 2 500) et je suis obligé de selectionner l'espace entre le 2 et le 5 puis faire remplacer pour arriver à les supprimer.

Je voudrait savoir comment supprimer cela en VBA, car je n'arrive pas à trouver la solution.

Merci d'avance pour votre aide

guigui69

[Didier Gonard]

Bonjour,

sans préjuger que ce soit un souci de formats,

vois du côté de la fonction Replace (cf aide vba)

cordialement,

Didier

[guigui69]

Bonjour,

j'ai deja essayé mais cela ne fonctionne pas

[Didier Gonard]

bonjour,

si tu donnes des détails, tu risque plus d'avoir une réponse

on ne sait rien s'il s'agit de nombres dans des cellules, il suffit de jouer sur le format.

cordialement,

Didier

[guigui69]

Ci-joint un fichier exemple

(Si je sélectionne plusieurs chiffre par exemple 800 et 1 200 dans somme de excel il ne compte que 800)

Merci d'avance pour votre aide

guigui69

[Philippe Tulliez]

Bonjour,
Dans ton cas, l'espace invisible est le caractère ascii 160.
Voici une petite procédure pour les enlever.
Attention qu'il reste à enlever la virgule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub SupAllSpace()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
 rng.Replace what:=Chr(160), replacement:=vbNullString
End Sub

[guigui69]

Merci je teste ca,

par contre

Attention qu'il reste à enlever la virgule

je ne comprend pas?

[Philippe Tulliez]

Bonjour

Au sujet de la virgule c'est une erreur de ma part, j'ai écrit trop vite.
C'était au cas ou la décimale devait être un point au lieu d'une virgule.

[guigui69]

Je reviens vers vous.

Merci cela semble fonctionner, mais apres cela certaine nombre ne sont pas reconnu en tant que nombre (Petit triangle vert en haut à gauche de la cellule). Est-ce qu'il y a code VBA pour transférer une colonne entière en nombre?

Merci d'avance


guigui69

[Philippe Tulliez]

Bonjour,

Si tu as des nombres formatés comme texte, tu peux par exemple utiliser ce code
Exemple pour les cellules A2:A100 de la feuille nommée Feuil1 du classeur où se trouve le code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ThisWorkbook.Worksheets("Feuil1")
.Range("A2:A100").Value = .Range("A2:A100").Value
End With

[guigui69]

Merci, mais je doit avoir du texte résistant mais avec ton code j'ai du texte qui résiste.

ci-joint un exemple pour que vous puissiez voir.

Merci d'avance pour votre aide

guigui69

[Philippe Tulliez]

Bonjour,
Effectivement, c'est un problème de format texte qui refuse obstinément de passer à un format nombre. J'ai déjà eu ce problème.
La seule solution que j'ai trouvée est de multiplier la valeur par 1
Soit par une formule d'excel soit par VBA
En excel = A1 * 1
En VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim c As Range
 For Each c In Range("A1:A13")
  c = c * 1
 Next

Il y a aussi la solution avec le Collage spécial - Opération multiplication (Il faut au préalable avoir copié une cellule contenant la valeur 1)