Supprimer les espaces avant et après cellules colonne A si cellules non vide
Résolu
PYGOS69
Messages postés
452
Date d'inscription
Statut
Membre
Dernière intervention
-
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite supprimer les espaces à gauche et à droite de toutes les cellules non vides de la colonne A.
Exemple : " 0000 00 00 00 00 " deviendrait "0000 00 00 00 00"
J'ai essayé d'utiliser RTrim et Ltrim en agissant que sur les cellules non vides, mais sans résultat.
Exemple pour RTrim :
Si je désigne comme ceci le nombre de lignes, cela fonctionne....
Dim x As Range
For Each x In Sheets("Feuil1").Range("A2:A14057")
x.Value = RTrim(x.Value)
Next x
Mais comment intégrer le calcul de la dernière cellule non vide de la colonne A ?
RTrim et LTrim > dernière cellule
Merci d'avance,
Je souhaite supprimer les espaces à gauche et à droite de toutes les cellules non vides de la colonne A.
Exemple : " 0000 00 00 00 00 " deviendrait "0000 00 00 00 00"
J'ai essayé d'utiliser RTrim et Ltrim en agissant que sur les cellules non vides, mais sans résultat.
Exemple pour RTrim :
Si je désigne comme ceci le nombre de lignes, cela fonctionne....
Dim x As Range
For Each x In Sheets("Feuil1").Range("A2:A14057")
x.Value = RTrim(x.Value)
Next x
Mais comment intégrer le calcul de la dernière cellule non vide de la colonne A ?
RTrim et LTrim > dernière cellule
Merci d'avance,
Configuration: Windows / Firefox 78.0
A voir également:
- Supprimer les espaces excel en fin de cellule
- Supprimer rond bleu whatsapp - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Impossible de supprimer une page word - Guide
1 réponse
Bonjour,
voir ceci
https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
ce qui donne:
voir ceci
https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/
ce qui donne:
Dim DerniereLigneUtilisee As Long
DerniereLigneUtilisee = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & DerniereLigneUtilisee )
J'ai modifié comme suit :
Sub Suppr_ESPACES()
Dim x As Range
Dim DerniereLigneUtilisee As Range
DerniereLigneUtilisee = Range("A" & Rows.Count).End(xlUp).Row
For Each x In Sheets("Feuil1").Range("A2:A" & DerniereLigneUtilisee)
x.Value = LTrim(x.Value)
Next x
End Sub
Pour les 2 fonctions RTrim et LTrim, dois-je décomposer en 2 temps ou puis-je traiter les 2 suppressions en même temps ?
Cela t'indiquera les erreurs
ensuite corrige tes déclarations de variables
https://www.excel-pratique.com/fr/vba/variables
voir ceci aussi:
https://www.excel-pratique.com/fr/fonctions-vba/trim
@+
Bonne journée !