Suppression de caractere apres la limitation Résolu/Fermé

Question

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

Frenchie83 · Answer

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

Suppression de caractere apres la limitation

1 réponse

Discussions similaires