Effacer les espaces

ROGER2327

XLDnaute Barbatruc

• 30 Mars 2009

• #2

Re : Effacer les espaces

Bonsoir Doom76

La fonction SUPPRESPACE() devrait résoudre votre problème.​

ROGER2327

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 31 Mars 2009

• #3

Re : Effacer les espaces

Bonjour Doom76, Roger2327 🙂,
Par macro après sélection des cellules concernées :

Code:

Sub Suppression()
Dim Cellule As Range
For Each Cellule In Selection
Cellule = Trim(Cellule)
Next
End Sub

Bonne journée 😎

 

Vote positif 0 Vote négatif

D

Doom76

XLDnaute Nouveau

• 31 Mars 2009

• #4

Re : Effacer les espaces

Merci à tous les deux!

@ ROGER2327,
Je vais étudier cette fonction que je ne connaissais pas...

@JNP,

c'est pas mal du tout mais il n'y aurait pas moyen de faire en sorte que la suppression des blancs ne se fasse que dans les cellules non vides? En effet je sélectionne la feuille entière et avec ta macro, je dois l'interrompre manuellement pour la débloquer.
Est-il possible de le faire pour tous les onglets en même temps?

Merci encore!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2009

• #5

Re : Effacer les espaces

Bonjour Doom, Roger, JNP,

JNP n'est pas dans le coin semble-t-il.

Il faut en effet se limiter aux cellules contenant du texte :

Code:

Sub Suppression()
Dim Cellule As Range
On Error Resume Next 'au cas où aucune cellule ne contient du texte
For Each Cellule In Selection.[COLOR="Red"]SpecialCells(xlCellTypeConstants, 2)[/COLOR]
Cellule = Trim(Cellule)
Next
End Sub

Edit : pour toutes les cellules de tous les onglets :

Code:

Sub Suppression()
Dim w As Worksheet, Cellule As Range
On Error Resume Next
For Each w In Worksheets
For Each Cellule In w.Cells.SpecialCells(xlCellTypeConstants, 2)
Cellule = Trim(Cellule)
Next
Next
End Sub

A+

 

Dernière édition: 31 Mars 2009

Vote positif 0 Vote négatif

D

Doom76

XLDnaute Nouveau

• 31 Mars 2009

• #6

Re : Effacer les espaces

Merci à vous tous!

C'est parfait! Je sélectionnerai mes onglets chaque fois mais c'est un détail.

Très bonne journée à vous,

Doom76

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2009

• #7

Re : Effacer les espaces

Re,

Doom76 à dit:

Je sélectionnerai mes onglets chaque fois mais c'est un détail.

Cliquez pour agrandir...

J'ai fait un Edit sur mon post précédent, un peu trop tard.

A+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 31 Mars 2009

• #8

Re : Effacer les espaces

Re 🙂,
Merci Job75, j'étais au boulot... De plus, je n'ai jamais utilisé cette option, donc j'apprends 😱... Je ne pensais pas non plus que notre ami avait 2 millions de cellules à traiter 😀.
Bonne soirée 😎

 

Vote positif 0 Vote négatif