Discussion :

[ab1to]

Bonjour,

J'aimerais créer une macro pour supprimer les espaces dans toutes les feuilles de mon fichier excell (sheet1 à sheet5).

1. Supprimer tous les espaces dans les cellules qui ne contiennent aucun caractère, et ce dans toutes les sheets.
2. Supprimer tous les espaces dans les cellules qui contiennent des caractères (mots ou chiffres) après le dernier caractère (à droite), et ce dans toutes les sheets.

Pouvez-vous m'aider à réaliser cette macro ?

Merci d'avance

Anthony

[Krovax]

Bonjour
Oui on peux t'aider.
Mais on te laisse commencer, aider n'est pas faire à la place.

Alors si tu veux des indications pour commencer
Pour supprimer les espace à droite point 2
http://silkyroad.developpez.com/VBA/...racteres/#LI-M

Pour le point 1 un espace est un caractère difficile de supprimer les espace là ou il n'y a pas de caractère

Mais essaye de voir si la fonction trim te suffit
S'il n'y as que des espcae elle semble tous les supprimer

Après il te suffit de boucler sur les onglet
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim ws as worksheet
for each ws in worksheets
...
next ws

Boucler sur les cellule de l'onglet en cours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim c as range
for each c in ws.UsedRange
 
next c

Voila tu devrais avoir tout il va peut être te faloir tester c en fonction de tes besoins. Mais ca te permettra de commencer ton code. Tu nous le montre et tu nous explique ce qui ne va pas
Bonne chance

edit en fonction du format de ton fichier le UsedRange peut poser problème regarde ici si c'est le cas pour trouver la dernièreligne et dernière colonne

[jojo86]

Salut,

Pour le 1, j'ai une solution mais j'aimerais d'abord comprendre ce que tu veux pour le 2?

En gros tu as :

Une Chaine+Un espace?
Et tu veux supprimer uniquement l'espace de la fin?

[ab1to]

Merci Krovax,

Voila ce que j'ai copier dans les macros de mon fichier et cela marche très bien. J'y ai lié un bouton dans mon fichier pour plus de facilité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Sheet1").Select
Dim x1 As Range
For Each x1 In ActiveSheet.UsedRange
    x1 = Application.WorksheetFunction.Trim(x1)
Next

J'ai juste encore une question :
Pour éviter de devoir écrire cela pour chaque sheet, y a-t-il un moyen d'exécuter cette macro directement sur toutes les sheets ?

Merci encore.

Anthony

[ouskel'n'or]

Bonjour vousss !
Et "Replace" n'existe pas dans la version 2007 d'Excel pour remplacer les espaces par rien, pour la première question ?
Rtrim, Ltrim et trim n'existe pas non plus pour supprimer les espaces à droite , à gauche ou à droite et à gauche ou encore à droite ET à gauche ?
Bonnes études

[Krovax]

Bonjour ousk

Pour antony tu dis

Pour éviter de devoir écrire cela pour chaque sheet, y a-t-il un moyen d'exécuter cette macro directement sur toutes les sheets ?

regarde un peu plus haut

Après il te suffit de boucler sur les onglet
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim ws as worksheet
for each ws in worksheets
...
next ws

DOnc lit mon message et utilise ce que j'y ai dis, tu as un tutos, l'aide et le nom des fonctions donc bonne chance

[ab1to]

Ca y est ! Ca fonctionne ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Suppression_Espaces()
 
Dim ws As Worksheet
   For Each ws In Worksheets
 
     Dim c As Range
     For Each c In ws.UsedRange
 
         'Suppression des espaces à droite
         c = RTrim(c)
 
     Next c
 
   Next wsSheets("Macro").Select
 
End Sub

Merci à tous.

[ouskel'n'or]

Tu pouvais simplifier et accélérer la procédure en traitant pour chaque feuille la plage de données complète (usedrange) et non chaque cellule de cette plage (ce que fait ta boucle imbriquée)