Sup caractère et colle dans colonne

maval · 15 Octobre 2018

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;

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.

Je vous remercie d'avance

Max

job75 · 15 Octobre 2018

Bonjour maval,

Code:

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 · 15 Octobre 2018

Re,

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

A+

maval · 15 Octobre 2018

Bonjour Job

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

Max

Sup caractère et colle dans colonne

maval

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires

Sup caractère et colle dans colonne

maval

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency