supprimer dernier caracteres

Staple1600

XLDnaute Barbatruc

• 2 Mai 2018

• #2

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Mai 2018

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mai 2018

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Mai 2018

• #5

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

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 2 Mai 2018

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mai 2018

• #7

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)

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mai 2018

• #8

Re

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

VB:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 2 Mai 2018

• #9

Bonjour Gardien de Phare, Staple

Je vous remercie Nickel.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 3 Mai 2018

• #10

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mai 2018

• #11

Bonjour le fil, le forum

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

VB:

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 3 Mai 2018

• #12

Salut JM

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

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 3 Mai 2018

• #13

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...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mai 2018

• #14

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...

Cliquez pour agrandir...

D'où le nom de ma macro 😉

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 4 Mai 2018

• #15

Bonjour Gardien de phare, Staple,

Voici mon dossier avec explications

Merci et bonne journée

 

Pièces jointes

• sup_caract.xlsm

  17.2 KB · Affichages: 26

Vote positif 0 Vote négatif