Supprimer les 8 derniers caractères d'une cellule [Résolu]

[fherolvera]

Bonjour à tous (tes)
Par une macro, je souhaiterai sur une selection de plage de cellules sur une colonne, pouvoir supprimer les 8 derniers caractères de chaque cellule dans la sélection.

Et en plus (cerise sur le gateau!!!) , si cela est possible , copier ces 8 caractères sur la cellule immédiatement a gauche.

Merci par avance pour votre aide.

Fher

[jfontaine]

Bonjour,

Comme cela

Code :

1
2
3
4
5
6
7
8
9
Dim Plage As Range
Dim Rg As Range
 
Set Plage = Range("C2:C11")
 
For Each Rg In Plage
    Rg.Offset(0, -1).Value = Right(Rg.Value, 8) 'Copie ls 8 derniers caractères dans la cellule a gauche
    Rg.Value = Left(Rg, Len(Rg.Value) - 8) 'Supprime les 8 derniers caractères
Next

[fherolvera]

Je te remercie Jêrome d'avoir répondu aussi vite.

Ta macro fonctionne très bien, mais lorsque j'arrive sur une cellule vide j'ai un message d'erreur. Est il possible de palier à celà?

Merci

[jfontaine]

En ajoutant un test

Code :

1
2
3
4
5
6
For Each Rg In Plage
    if Rg.Value <> "" then
        Rg.Offset(0, -1).Value = Right(Rg.Value, 8) 'Copie ls 8 derniers caractères dans la cellule a gauche
        Rg.Value = Left(Rg, Len(Rg.Value) - 8) 'Supprime les 8 derniers caractères
    end if
Next

[fherolvera]

Je te remercie pour ton aide Jêrome, ça fonctionne très bien!!
Bonne soirée à toi!!
Fher