VBA supprimer les espaces devant et après un "="

Bonjour, je cherche un code VBA qui me permettra de supprimer les espace avant et après un "="
j'ai dans ma cellule a+b" "" "=" "c
ou a+b" "=" "
je voudrais avoir a+b=c

Merci d'avance

Bonjour Vins75,

test ça : replace("a+b = c"," = ","=")
et regarde l'aide VB pour comprendre la ligne de code ;)

Salut,

Je te propose plusieurs solutions sans VBA (On va déjà commencer pas çà)
Solution 1
Si ton texte est dans la cellule A1, tu peux mettre cette formule et la recopier ensuite
=SUBSTITUE(A2;" ";"")

Solution 3
Utiliser la fonction de remplacement.
Pour que le remplacement ne se fasse que sur une partie du tableau, sélectionne cette partie
CTRL + H
Dans la zone "Rechercher" tu mets un espace
Tu laisse vide la zone "Remplacer par" et tu lance le replacement.

Et si tu veux du VBA et bien tu n'as qu'a utiliser la solution 2 avec l'enregistreur de macro ...

En espérant que ceva va t'aider ...

Citation:

---

Envoyé par Vins75

Bonjour, je cherche un code VBA qui me permettra de supprimer les espace avant et après un "="

---

Deux solutions :

Code:

---

1 2 3 4

Dim cc As Range For Each cc in UsedRange cc.Value = replace(cc.Value," = ","=") Next cc

---

Encore plus rapide :

Code:

---

ActiveWorksheet.UsedRange.Replace What:=" = ", Replacement:="=", LookAt:=xlPart

---

Cela dit, je ne vois pas l'intérêt de faire en VBA ce qui peut se faire à la main en 3 clics et 5 touches.

Merci de Vos réponse
En fait je travaille sur un grand fichier excel et je voulais automatiser tout sa c'est pour sa je passe par VBA

Même avec un grand fichier, cette modification peut se faire en trois clics et 5 touches sans VBA.

Ruban Accueil > Icone Rechercher et Sélectionner (1 clic) > Remplacer (1 clic)
champ Rechercher = = (3 touches)
Tab pour changer de champ (1 touche)
Champ Remplacer par = = (1 touche)
Bouton Remplacer Tout (1 clic)

A vue de nez, 5 à 10 secondes.
Tu vas avoir du mal à justifier la rentabilité de ta macro.