Supprimer les carrés dans les cellules

[miguelangelo]

Bonjour à tous,

j'ai une colonne de données, normalement numériques, qui sont précédées d'un petit carré. (voir image)

pouvez vous me dire comment me débarrasser de ces carrés ? (à peu près 10000 lignes de données !!)

Merci

 

[laurent950]

Re : Supprimer les carrés dans les cellules

Bonjour,

Voici aussi une autre solution :

Sub Macro1()

fin = Range("a65536").End(xlUp).Row

For Each c In Range(Cells(2, 1), Cells(fin, 1))
c.Value = Replace(c, "", "") ' Remplace le carractére spécial  par rien
Next c
End Sub


cela fonctionne aussi .

peut être il faudrait faire un

trim ' c'est la suppression de tous les espace superflux pour avoir une base de donner super propre.

Laurent

 

[Staple1600]

Re : Supprimer les carrés dans les cellules

Bonjour le fil

Bonjour le fil 🙂,
J'espère qu'on ne me dira pas de la boucler 😛...
Mais pourquoi pas tout simplement

Range("A:A").Replace Chr(12), "", lookat:=xlPart

Bonne journée 😎

Parce que je je suis dans ma période Split and Join
et aussi parce que j'y avions point pensé 😱

Mais au début, j'étais dans la Conversion Manuelle 😉 (bien que VBAtisable )
Et après je me suis laissé entrainer dans la boucle.

La chair est faible...

 

[miguelangelo]

Re : Supprimer les carrés dans les cellules

Bonjour,

Par formule, dans une colonne intermédiaire, ça peut donner :

=EPURAGE(A2)

à recopier vers le bas

@+

Merci...
rien d'autre à dire

 

[miguelangelo]

Re : Supprimer les carrés dans les cellules

merci bcp à vous tous pour votre aide...