Suppression de caractere apres la limitation

Résolu
blablablajesaitpas Messages postés 6 Statut Membre -  
blablablajesaitpas Messages postés 6 Statut Membre -
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. Frenchie83 Messages postés 2254 Statut Membre 339
     
    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