Supprimer dernier caractere

Bonsoir a tous,

Je sollicite votre aide afin de supprimer en colonne i qui est compose de 4 caractere et je souhaiterai supprimer le dernier caractere

Jai bien trouve avec formule mais je preferais en VBA s il vous plait

Merci

Bonjour kamellias,

Je te propose ce fichier Excel :

26exo-kamellias.xlsm (15.03 Ko)

Ctrl e ➯ travail effectué

Cordialement,

dhany

Salut Kamellias,

Bonsoir Dhany,

je crois que je vais te donner une carte de fidélité, Kamellias...

La même chose, autrement...

Démarrage de la macro via un double-clic sur la première ligne de la colonne visée.

En fonction des besoins, il y a encore et toujours moyen de jouer sur le nombre de caractères à ôter, dans des données de telle ou telle longueur dans telle ou telle condition.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
'
Cancel = True
'
sCol = Split(Columns(Target.Column).Address(ColumnAbsolute:=False), ":")(1)
iRow = Range(sCol & Rows.Count).End(xlUp).Row
tData = Range(sCol & "2:" & sCol & iRow).Value
'
For x = 1 To UBound(tData, 1)
    tData(x, 1) = Left(tData(x, 1), 3)
Next
Range(sCol & ":2" & sCol & iRow) = tData
'
End Sub

A+

Bonsoir curulis57,

Je tiens a te remercier du temps que tu as consacre a mes projets , c'est toujours agreable d'avoir des personnes comme toi pour nous aider a realiser nos taches repetetifs qui nous gache les soirée,

Concernant la macro que tu m'as realiser " Extraction.." je teste si tout est ok sinon .........

A tres bientot et merci Encore

Rechercher des sujets similaires à "supprimer dernier caractere"