supprimer dernier caracteres

[maval]

Bonjour

Dans ma colonne "A" j'ai une liste de nom finissant par des guillemets comme ceci ...Les Abymes"
J'ai mis se 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]

Bonjour,

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

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]

Bonjour à tous.

A savoir que :

=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]

Bonjour Gardien de phare, Victor21,

Je vous remercie Nickel
Bonne journée