supprimer dernier caracteres

maval · 2 Mai 2018

Bonjour

Dans ma colonne "A" j'ai une liste de nom finissant par des guillemets comme ceci ...Les Abymes"
J'ai mis se code

Code:

Sub SupprCaractA()

Dim Nc, Cel As Range
    For Each Cel In Range("a1:a1000")
        Cel.Value = Trim(Cel.Value)
        Nc = Len(Cel)
        Cel.Value = Left(Cel, Nc - 1)
    Next Cel
End Sub

j'ai un message d'erreur " Argument ou appel de procédure incorrect"

Je vous remercie de votre aide

Cordialement

max

Gardien de phare · 4 Mai 2018

Bonjour,

La macro ci-dessous devrait faire le job...

VB:

Sub GDP()
Dim Dlig As Long, C As Range
  With Sheets("Feuil1")
  Dlig = .Range("A" & .Rows.Count).End(xlUp).Row
  For Each C In .Range("A5:A" & Dlig)
  C.Value = LCase(Replace(Replace(C.Value, Chr(34), ""), " ", "_"))
  Next
  End With
End Sub

Victor21 · 4 Mai 2018

Bonjour à tous.

A savoir que :

Code:

=MINUSCULE(SUBSTITUE(STXT(A5;1;NBCAR(A5)-1);" ";"_"))

fait "presque" le même job : A Redmond, Bill s'était réveillé un matin en se disant : "Et si maval..."

maval · 6 Mai 2018

Bonjour Gardien de phare, Victor21,

Je vous remercie Nickel
Bonne journée

supprimer dernier caracteres

maval

XLDnaute Barbatruc

Gardien de phare

XLDnaute Accro

Victor21

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires