XL 2010 visualiser les blancs dans une cellue

[jeanmi]

Bonjour à tous,

je cherche à visualiser les blancs qui peuvent être mis pas erreur lors de l'entrée d'une donnée dans les cellules : es la bonne solution ? es possible ?

ex : je rentre TOTO (en colonne A) et jean (en colonne B) et par erreur au niveau de TOTO avant ou après TOTO ou Jean j'ai un/des blancs.
le nom et prénom peut-être composé de deux ou trois parties ex Jean Michel

Dans mon programme, lorsque je cherche le nom ou prénom, il ne le trouve pas s'il y a ce type d'erreur, qui n'est pas visuel.

Merci de votre aide.

Cordialement

 

[Phil69970]

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

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

 

[jeanmi]

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

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

Bonjour @Phil69970

Merci pour cette réponse très rapide. c'est nickel pour supprimer les blancs devant et derrière mes données.

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.

Cordialement

 

[patricktoulon]

re
bonsoir

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.

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

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

 

[jeanmi]

re
bonsoir

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

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

 

[job75]

Bonsoir à tous,

Les solutions proposées effacent les espaces superflus mais ne répondent pas au problème posé :

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

Voyez le fichier joint et la MFC sur les colonnes A et B :

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

Les cellules contenant des espaces superflus sont colorées.

A+

 

[jeanmi]

Bonsoir à tous,

Les solutions proposées effacent les espaces superflus mais ne répondent pas au problème posé :

Voyez le fichier joint et la MFC sur les colonnes A et B :

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

Les cellules contenant des espaces superflus sont colorées.

A+

Bonjour @job75 , à tous

Un grand merci pour cette solution qui effectivement répond directement à ce que je souhaité.
Un grand merci
je garde la solution de coté car elle pourra me servir aussi.
cordialement