VBA - Bouton pour ne garder que les 15 premiers caractères

Bonjour,

Je recherche un code VBA à mettre sur un bouton pour pouvoir garder uniquement les 15 premiers caractères de toutes les cellules de ma colonne A et effacer les caractères à partir du 16ème.

Pouvez-vous m'aider ?

Meilleures salutations

Titi

Salut Thierry36

Voici une possibilité

Sub Caractères15()
  Dim dLig As Long, Ind As Long
  Dim MonTab() As Variant
  With ActiveSheet
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    MonTab = .Range("A2:A" & dLig).Value
    For Ind = 1 To UBound(MonTab, 1)
      MonTab(Ind, 1) = Left(MonTab(Ind, 1), 15)
    Next Ind
    .Range("A2:A" & dLig).Value = MonTab
  End With
End Sub

A+

Bonjour JExceL2fr,

Merci pour votre code; il fonctionne merveilleusement bien.

Bonne journée à vous.

Titi

Bonjour

voici une autre technique :

sélectionner la colonne A, menu Données/ Convertir,

choisir largeur fixe,

mettre une flèche à 15 caractères

et ne pas prendre la 2de colonne (colonne non distribuée)

résultat

en VBA ça donne une seule instruction

Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(15, 9))

Stéphane