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

 

[Staple1600]

Bonjour le fil, le forum

@maval
Tu veux absolument passer par VBA?

Sinon essaie avec ces modis
Sub SupprCaractA_bis()
Dim Nc&, Cel As Range
For Each Cel In Range("a1:a1000")
Cel.Value = VBA.Trim(Cel.Value)
Nc = VBA.Len(Cel)
Cel.Value = VBA.Left(Cel, Nc - 1)
Next Cel
End Sub

 

[maval]

Bonjour Staple

je te remercie mais j'ai toujours un message d'erreur " Argument ou appel de procédure incorrect" alors qu'il supprime bien le dernier caractère

@+

max

 

[Staple1600]

Re

Chez moi ton code produit aussi une erreur

Est-ce qu'il y a d'autres " dans le contenu des cellules de la colonne A?

Si non, tu peux faire comme cela aussi

Sub SupprCaractA_Ter()
Range("A1", Cells(Rows.Count, 1).End(3)).Replace """", "", 2, 1
End Sub

 

[maval]

Re,

Avec se code sa fonctionne, je ne comprend pas pourquoi alors que je n'ai que cette colonne dans mon classeur?
Mystère de l'informatique.

Je te remercie et te souhaite une bonne journée

Max

 

[Gardien de phare]

Bonjour,
L'erreur se produit si la macro rencontre une cellule vide. Il faut ajouter un test sur la longueur.

 

[Staple1600]

Re

Bonjour Gardien de Phare
C'est justement ce que je viens de réaliser
(je suis encore dans les brumes du sommeil, et le café n'est pas encore passé dans la cafetière)

Sub SupprCaractA_OK()
Dim C As Range, X$
For Each C In Range("a1:a1000")
If Len(C) > 0 Then
X = Trim(C): C.Value = Left(X, Len(X) - 1)
End If
Next
End Sub

 

[Staple1600]

Re

Cela fonctionne aussi (si pas de formules dans la colonne A)

Sub SupprCaractA_OKbis()
Dim C As Range, X$
For Each C In Columns(1).SpecialCells(xlCellTypeConstants, 2)
X = Trim(C): C.Value = Left(X, Len(X) - 1)
Next
End Sub

 

[maval]

Bonjour Gardien de Phare, Staple

Je vous remercie Nickel.

 

[maval]

Bonjour,

Suite au code pour supprimer le dernier caractère je voudrais ajouter un underscore au mot composé. je sais qu'il faut ajouter "Replace "_" " mais j’essaye depuis hier sans résultat ?

je vous remercie de votre aide.

 

[Staple1600]

Bonjour le fil, le forum

@maval
En guise d'exemple, pour adaptation au fichier réel (que je te laisse faire)

Sub test_sans_fichier_joint_par_le_demandeur()
Dim mot_composé$
mot_composé = "Jean-Marie" & Chr(34)
MsgBox Replace(Replace(mot_composé, Chr(34), ""), "-", "_")
End Sub

 

[maval]

Salut JM

Bon j'ai essayé de le mettre avec ton code et je n'y arrive pas?

 

[Gardien de phare]

Bonsoir,
Qu'est-ce que tu n'arrive pas à faire ? Ce que l’Agrafe t'a proposé supprime les double-quotes (") exprimées par chr(34) et remplace les tirets (-) par des underscore (_). Peut-être qu'avec un petit fichier représentatif des données d'origine et du résultat attendu, ce serait plus simple, peut-être...

 

[Staple1600]

Bonjour le fil, le forum

@Gardien de phare

un petit fichier représentatif des données d'origine et du résultat attendu, ce serait plus simple, peut-être...

D'où le nom de ma macro

 

[maval]

Bonjour Gardien de phare, Staple,

Voici mon dossier avec explications

Merci et bonne journée