Macros pour supprimer les espaces inutiles ,Excel VBA

Un problème courant lors de l’importation de données est les lacunes inutiles au début et à la fin. Les valeurs importées ont des espaces au début ou à la fin des valeurs placées dans les cellules. Cela l’usage de certaines fonctionsplus difficilles comme. Voici une macro qui facilite la recherche et la suppression des espaces inutiles dans les cellules.

Comment ca marche?
Dans cette étape, une boucle est activée pour activer chaque cellule dans la plage indiquée dans laquelle l’instruction Trim est exécutée.

Sub SuppressionEspace()
'Étape 1: Déclarez les variables
Dim MaPlage As Range
Dim MesCellules As Range
'Étape 2: enregistrer la feuille de calcul avant d'apporter des modifications aux cellules?
Select Case MsgBox("L'action ne peut pas être annulée. "&" Faites d'abord
enregistrer la feuille", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
'Étape 3: Définir la plage de cellules
Set MaPlage = Selection
'Étape 4: Démarrage d'une boucle pour la plage
For Each MesCellules In MaPlage
'Étape 5: supprimer les espaces
If Not IsEmpty(MesCellules) Then
MesCellules = Trim(MesCellules)
End If
'Étape 6: passez à la cellule suivante de la plage
Next MesCellules
End Sub

 

1. Dans la première étape, les deux variables objet du type Range sont déclarées – la variable MaPlage stockera l’adresse de la plage entière, tandis que la variable MesCellules stockera les données des cellules calculées successivement de la plage donnée.
2. Lorsque la macro est exécutée, la pile d’annulation sera supprimée. Les actions entreprises par la macro ne peuvent pas être annulées. Étant donné que les données changent, il est utile d’avoir la possibilité d’enregistrer le classeur avant d’exécuter la macro. Cela se produit à l’étape deux. Une boîte de message s’affiche, qui propose des options pour enregistrer le classeur. Il propose trois options: Oui, Non.
et Annuler. Cliquez sur Oui pour enregistrer le classeur et poursuivre la macro. Cliquez sur Annuler pour mettre fin à la macro. Toutefois, en cliquant sur le bouton Non, l’exécution de la macro commencera sans enregistrer le classeur au préalable.
3. À l’étape trois, la plage cible de cellules est transmise à la variable MaPlage. Dans cet exemple, la plage déjà sélectionnée dans la feuille de calcul est sélectionnée. Bien entendu, la variable MaPlage peut facilement être définie sur une plage spécifique, par exemple Range (“A1: Z100”). De même, lorsqu’une plage a un nom. Ensuite, vous pouvez simplement le saisir: Range (“nomdeplage”).
4. À l’étape quatre, les boucles sont activées pour toutes les cellules dans la plage spécifiée.
5. Lorsqu’une cellule est activée, la macro détermine si la cellule est vide en fonction de la propriété IsEmpty. Il s’agit d’améliorer les performances – si la cellule est vide, aucune action n’est effectuée. Puis à la valeur
les cellules utilisent la fonction Trim. La fonction Trim pour supprimer les espaces inutiles est intégrée à Excel.
6. À l’étape six, la boucle passe à la cellule suivante. Après avoir activé toutes les cellules de la plage macro, l’opération se termine.
Comment appliquer une macro?
Pour implémenter cette macro, vous pouvez copier et coller son code dans le module standard. À cette fin:
1. Utilisez la combinaison de touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille.
3. Sélectionnez Insérer / Module.
4. Saisissez ou collez le code.
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x