Macro supprimer caracteres

Bonsoir,

j'aurai besoin d'aide pour écrire une macro afin d'automatiser une opération via un bouton.

Dans la colonne B à partir de la ligne 5, j'ai une centaine de lignes. Je souhaiterai qu'une macro actionnée via un bouton ne conserve que les 8 premiers caractères des cellules de la colonne B.

Je sais le faire via une formule, mais je souhaiterai automatisé cette opération. Par contre je n'ai aucune idée de comment le faire avec une macro.

En vous remerciant.

Bonsoir

Pour le même prix 2 macros, à toi de choisir celle qui te plait le plus

Option Explicit

Sub Coupe()
Dim T1, J As Long

  Application.ScreenUpdating = False
  T1 = Range("B5:B" & Range("B" & Rows.Count).End(xlUp).Row)
  For J = 1 To UBound(T1)
    T1(J, 1) = Left(T1(J, 1), 8)
  Next J
  Range("B5").Resize(UBound(T1)) = T1
End Sub

Sub CoupeBis()

  Application.ScreenUpdating = False
  With Range("C5:C" & Range("B" & Rows.Count).End(xlUp).Row)
    .Formula = "=LEFT(B5,8)"
    .Value = .Value
    .Copy Range("B5")
    .ClearContents
  End With
End Sub

Bonjour,

Merci pour ces deux versions, elles fonctionne parfaitement.

Par-contre j'ai pas pensé à une chose. En exécutant la macro, elle ne conserve que les 8 premiers caractères de en-tête de la colonne.

Il y aurait-il un moyen pour que la macro s’exécute a partir d'une cellule, par exemple la cellule B3?

Bonjour

Partout où tu vois 5 il faut le remplacer par 3

Je te remercie beaucoup pour ton aide