XL 2010 visualiser les blancs dans une cellue

Phil69970 à dit:

Bonjour @jeanmi

Quand tu parles de blancs je suppose que tu veux parler d'espace

Je te propose ce code qui supprime les espaces en début et en fin de cellule

VB:

Sub Sup_Espace()
Dim Derlig&, i&
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To Derlig
    Range("A" & i) = Trim(Range("A" & i))
Next i
End Sub

J'ai supposé que tes données commencent en A2 (à adapter si besoin)

Merci de ton retour

@Phil69970

Cliquez pour agrandir...

par contre comment faire dans le cas de nom composé ( TOTO TATA) s'il y a deux blanc entre les deux ?
Merci pour l'aide.

Cliquez pour agrandir...

Sub Sup_Espace()
Dim Derlig&, i&
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To Derlig
    Range("A" & i) = application.Trim(Range("A" & i))
Next i
End Sub

patricktoulon à dit:

re
bonsoir

application.trim supprime les espaces avant et après et régule les espace intermédiaire à un seul espace

VB:

Sub Sup_Espace()
Dim Derlig&, i&
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To Derlig
    Range("A" & i) = application.Trim(Range("A" & i))
Next i
End Sub

[/COD
[/QUOTE]
Un grand merci à [USER=167882]@patricktoulon[/USER]  pour cette solution qui est nickel.

cordialement

Cliquez pour agrandir...

jeanmi à dit:

je cherche à visualiser les blancs qui peuvent être mis pas erreur

Cliquez pour agrandir...

=(A1<>"")*TROUVE("  ";" "&A1&" ")