Suppression de caractere apres la limitation

Résolu
Bonjour,
tout d'abord je souhaite a vous remercier de prendre une minute pour m'aider avec mon problème.
Je vous explique mon problème, j'ai un tableau Excel de 889 ligne avec des nom de mes contact et je souhaite que les nom n'est pas plus de 6 caractères.
Ex:
Blablabla
Trucmachin
Voilala
et je souhaite que sa face sa:
Blabla
Trucma
Voilal

Donc je voulais savoir s'il y a une commande pour faire sa auto et éviter de faire les 800 ligne a la main.
Merci d'avance,

Cordialement

1 réponse

  1. Bonjour
    Une proposition en VBA
    Sub SuppressionCaracteres()
        Application.ScreenUpdating = False
        Colonne = "A"
        DerLig = Cells(10000, Colonne).End(xlUp).Row
        For i = 2 To DerLig
            Cells(i, Colonne) = Left(Cells(i, Colonne), 6)
        Next i
    End Sub

    Dans la ligne Colonne = "A" Remplacez "A " par la lettre de la colonne ou se situent vos contacts.

    Si vous ne connaissez pas le VBA, sur votre feuille Excel, faites ALT + F11, puis sélectionnez "Insertion" - "module" et copier-y le texte ci- dessus.
    Sur votre feuille Excel, insérer un objet quelconque de votre choix ( dessin, bouton, etc..) clic droit sur l'objet, et sélectionnez "Affecter une macro" et cliquez sur la macro proposée "SuppressionCaractères".
    Cdlt
    0