Si vous souhaitez qu’un code VBA supprime tous les espaces de fin de la feuille active uniquement, cet article vous aidera certainement. Plusieurs fois, nous avons laissé un espace à la fin par erreur ou parfois nous copions des données à partir du Web et ne le remarquons pas. Dans cet article, nous allons apprendre comment éliminer l’espace laissé par erreur.

Question): Dans Excel, nous pouvons utiliser la fonction TRIM avec SUBSTITUTE & CHAR, c’est-à-dire = TRIM (SUBSTITUTE (A1, CHAR (160), «  »)) pour supprimer l’espace de fin à la fin de tout texte.

Je voudrais qu’une macro m’aide à supprimer tous les espaces inutiles laissés à la fin de la chaîne.

Pour obtenir le code pour supprimer l’espace à la fin du texte; nous devons suivre les étapes ci-dessous pour lancer l’éditeur VB.

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

img1

Copiez le code suivant dans le module de feuille de calcul

Sous trimspace ()

Dim c As Range, rngConstants As Range

Sur erreur Reprendre suivant

Définir rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)

Sur erreur GoTo 0

Sinon rngConstants n’est rien alors

‘optimiser les performances

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

‘cellules coupées y compris le caractère 160

Pour chaque c dans rngConstants

c.Value = Trim $ (Application.Clean (Replace (c.Value, Chr (160), «  »)))

Suivant c

‘réinitialiser les paramètres

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Fin si

End Sub

img2

  • Cela supprimera tous les espaces à la fin.

Remarque: la macro ci-dessus ne s’exécutera que sur la feuille active.

De cette façon, nous pouvons supprimer les espaces de fin à la fin, en utilisant le code VBA.

image 4