[MACRO] Supprimer caractere cellule

Bonjour,

Apres avoir fais des recherches, je ne trouve pas une macro qui permet de garder les 8 derniers caractères de droite d'une cellule. J'ai trouvé des formules mais cela ne me convient pas.

Dans mon fichier la colonne est la A, j'ai besoin des 8 derniers caractères de chaque cellule de cette colonne A.

Merci d'avance pour vos solutions

Bonjour,

La formule est :

=DROITE(A3;8)

Merci de ta réponse mais je recherche une macro et non une formule

Re,

Option Explicit
Private Sub cmdGO_Click()
Dim ws As Worksheet
Dim lastRow As Long, i As Long

    Application.ScreenUpdating = False

    Set ws = ActiveSheet

    With ws
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        .Columns(2).Clear
        For i = 3 To lastRow
            .Cells(i, 2) = Right(.Cells(i, 1), 8)
        Next
    End With

    Set ws = Nothing

End Sub

Merci de ta réponse Jean-Eric,

Entre temps j'ai trouvé le code suivant qui me correspond mieux à ma demande :

Sub FILTRE()

Dim Rg As Range, C As Range

Application.ScreenUpdating = False

With Worksheets("Feuil1")

Set Rg = .Range("A2:A" & .Range("A" & .Cells.Rows.Count).End(xlUp).Row)

ss = Rg.Address

End With

For Each C In Rg

C.Value = Right(C.Value, 8)

Next

Application.ScreenUpdating = True

End Sub

La fonction est quasiment la même que le tiens sauf que le miens ne retranscrit pas les données dans la colonne B.

Je voulais pousser plus loin l'idée et l'appliquer a mon fichier professionnel... Mais je n'y parviens pas.

Je voulais insérer mon code cité ci dessus au fichier en pièce jointe.

J'aimerais que le code fonctionne pour la colonne "O" de l'onglet portefeuille livrable.

Pour cela sur ce même onglet il y a déjà un bouton "mise a jour tableau" avec un code VBA, je souhaiterais insérer le code ci dessus dans le bouton existant...

Merci d'avance

Re,

Sub FILTRE()
Dim ws As Worksheet
Dim lastRow As Long, i As Long

    Application.ScreenUpdating = False

    Set ws = Worksheets("DS12")

    With ws
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To lastRow
            .Cells(i, 1) = Right(.Cells(i, 1), 8)
        Next
    End With

    Set ws = Nothing

End Sub

Merci de ta réponse et de ton aide... Mais je n'arrive vraiment pas a appliquer ce code à mon fichier..

Lorsque je colle le code que tu me propose ci dessus rien ne change en colonne 0 de l'onglet "portefeuille livrable" après avoir cliqué sur le bouton "mise a jour tableau"....