Supprimer caractere

bonsoir a tous,

Je sollicite votre aide a propos afin de me faire une macro via vba pour supprimer 2 carateres ( ' ) sur une colonne A qui contients 65000 lignes

rapidement .

Exemples :

A

'131313133132'

'546454646466'

'854546464646'

resultat souhaite

131313133132

546454646466

854546464646

Merci d'avance

bonjour,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    t = Cells(1, 1).Resize(dl, 1)
    For i = LBound(t) To UBound(t)
        t(i, 1) = Replace(t(i, 1), "'", "")
    Next i
    Cells(1, 1).Resize(dl) = t
End Sub

Bonjour,

Sub prefixe()
    Dim pl As Range, c As Range
    Set pl = Intersect(Columns(1), ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues))
    If Not pl Is Nothing Then
        For Each c In pl
            If c.PrefixCharacter <> "" Then c.Formula = c.Formula
        Next c
    End If
End Sub

eric

La proposition de h2so4 sera sans aucun doute plus rapide. Comme je ne l'ai lue qu'après....

Tu peux même te permettre de supprimer la boucle :

    Dim derlig As Long
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    [A1].Resize(derlig, 1).Formula = [A1].Resize(derlig, 1).Formula

De plus ça te préservera d'éventuelles formules

SUPER !

Merci a vous et vous souhaite une bonne soirée

J'ai édité mon post. Je ne sais pas si tu as vu la dernière proposition

Oui cela me convient parfaitement. NICKEL

Bonjour Dehbi,

Si ça a marché, c'est que la colonne A était déjà avec un format Texte, car sinon, on obtient :

screen

Pour ceux qui ont ce genre de problème, je propose ce code VBA :

Option Explicit

Sub Essai()
  Dim Tbl, dlig&, i&: Application.ScreenUpdating = 0
  dlig = Cells(Rows.Count, 1).End(xlUp).Row
  Tbl = [A1].Resize(dlig): Columns(1).NumberFormat = "@"
  For i = 1 To dlig
    Tbl(i, 1) = Left$(Tbl(i, 1), 12)
  Next i
  [A1].Resize(dlig) = Tbl
End Sub
4exo-dehbi.xlsm (14.91 Ko)

dhany

Bonjour,

@dhany : exact, j'avais testé avec '1234

@dhebi :

je viens de m'apercevoir que je n'avais pas vu l'apostrophe finale.

Tu peux oublier mes propositions.

eric

Rechercher des sujets similaires à "supprimer caractere"