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;
Code:
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.
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
Autre solution avec la suppression des guillemets :
Code:
Sub SupprDerCaract()
With Range("F5:F" & Range("A" & Rows.Count).End(xlUp).Row)
.FormulaR1C1 = "=SUBSTITUTE(TRIM(RC1),"""""""",)"
.Value = .Value
End With
End Sub