Sup caractère et colle dans colonne

[maval]

Bonjour,

Sur une colonne "A5" j'ai une liste de noms de pays avec ce code je supprime le dernier caractère de toute la colonne;

Sub SupprCaract()
Min

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

Jusque là tous va bien!
J'aimerai que la colonne avec le dernier caractère supprimer se copie en colonne "F5" et que la colonne "A" reste avec le caractère non supprimer.

Je vous remercie d'avance

Max

 

[job75]

Bonjour maval,

Sub SupprDerCaract()
With Range("F5:F" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = "=IF(TRIM(RC1)="""","""",LEFT(TRIM(RC1),LEN(TRIM(RC1))-1))"
    .Value = .Value
End With
End Sub

A+

 

[job75]

Re,

Autre solution avec la suppression des guillemets :

Sub SupprDerCaract()
With Range("F5:F" & Range("A" & Rows.Count).End(xlUp).Row)
    .FormulaR1C1 = "=SUBSTITUTE(TRIM(RC1),"""""""",)"
    .Value = .Value
End With
End Sub

A+

 

[maval]

Bonjour Job

je te remercie et te souhaite une bonne soirée Nickel.......

Max