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

 

[JHA]

Re : Supprimer les carrés dans les cellules

Bonjour

Essai avec données/convertir/ autres......

JHA

 

[miguelangelo]

Re : Supprimer les carrés dans les cellules

nann
marche pas...

merci

 

[hoerwind]

Re : Supprimer les carrés dans les cellules

Bonjour, salut JHA,

Moi j'avais des boutons sur les bras.
J'ai envoyé une photo à mon médecin, mais il n'a pas pu me recommander le remède miracle.
Ah, ces médecins, vraiment des incapables !

 

[chris]

Re : Supprimer les carrés dans les cellules

Bonjour
Clin d'œil à hoerwind

Sélectionner un des carrés puis le copier
Sélectionner la colonne
CTRL H : zone remplacer, coller ce carré qui est dans le presse papier
zone remplacer par : laisser vide

 

[miguelangelo]

Re : Supprimer les carrés dans les cellules

des médecins en télé travaille ..!!!

ok message reçu...

 

[miguelangelo]

Re : Supprimer les carrés dans les cellules

Bonjour
Clin d'œil à hoerwind

Sélectionner un des carrés puis le copier
Sélectionner la colonne
CTRL H : zone remplacer, coller ce carré qui est dans le presse papier
zone remplacer par : laisser vide

ne me le colle pas ...

 

[phlaurent55]

Re : Supprimer les carrés dans les cellules

Bonjour à tous,

après avoir vu la pièce jointe, avec cette formule à recopier vers le bas
=SI(CODE(GAUCHE(A2;1))=12;STXT(A2;2;NBCAR(A2)-1);A2)

à+
Philippe

 

[Staple1600]

Re : Supprimer les carrés dans les cellules

Bonsoir

nann
marche pas...

merci

Pas d'accord 🙄


Données/Convertir fonctionne très bien (en choisissant : Largeur fixe)
Regarde la pièce jointe 819102
Cela nécessite juste d'insérer une colonne supplémentaire
puis concaténer les cellules contenant du texte (ex: M & ARTIN -> MARTIN)

Le tout pouvant être fait en lançant l'enregisteur de macro
pour ensuite avoir une macro à disposition qui fera le job.

 

[Grand Chaman Excel]

Re : Supprimer les carrés dans les cellules

Bonsoir à tous,

Et pourquoi pas avec une macro ?

Sub Toto()

Application.ScreenUpdating = False
Set rg = [A1]
i = 0
Do Until i = Range("A60000").End(xlUp).Row
    If Asc(Left(rg.Offset(i, 0), 1)) = 12 Then
        rg.Offset(i, 0) = Right(rg.Offset(i, 0), Len(rg.Offset(i, 0) - 1))
    End If
    i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

A+

 

[Staple1600]

Re : Supprimer les carrés dans les cellules

Re, bonsoir Chaman

Bonsoir à tous,

Et pourquoi pas avec une macro ?

Le tout pouvant être fait en lançant l'enregistreur de macro
pour ensuite avoir une macro à disposition qui fera le job.

N'en était-ce point une de macro?
et qui évite la boucle 😉

 

[Grand Chaman Excel]

Re : Supprimer les carrés dans les cellules

Bonsoir Staple,

N'en était-ce point une de macro?
et qui évite la boucle

Tu as raison... 🙂 J'ai lu trop vite et mal compris ce que tu voulais dire... La boucle c'était pour faire simple car il commence à être tard... hop au lit maintenant! 😉

 

[Staple1600]

Re : Supprimer les carrés dans les cellules

Re


S'il faut boucler, alors ainsi bouclerai-je

Sub ab()
Dim i&
With Feuil1
    '.Columns(2).Insert -4161 'pour insérer une colonne
        For i = 2 To 66
            .Cells(i, 1) = _
            Split(.Cells(i, 1), Chr(12))(1) 'si insertion colonne alors
' .Cells(i, 2) = Split(.Cells(i, 1), Chr(12))(1)
        Next i
End With
End Sub

 

[JNP]

Re : Supprimer les carrés dans les cellules

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 😎

 

[Tibo]

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

@+