Supprimer les espaces avant et après cellules colonne A si cellules non vide

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - Modifié le 12 oct. 2021 à 15:55
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 13 oct. 2021 à 08:55
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,


Configuration: Windows / Firefox 78.0
A voir également:

1 réponse

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 12 oct. 2021 à 15:59
Bonjour,

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 )


1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
12 oct. 2021 à 16:13
Bonjour et Merci !

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 ?
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023
12 oct. 2021 à 16:29
Mettre Option Explicit au début du module.

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

@+
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
13 oct. 2021 à 08:55
Je te remercie, cela répond à toutes mes questions !

Bonne journée !
0