Formatage colonne fichier

Bonsoir à tous

je vous expose mon problème en espérant que cela soit clair pour tous

voilà j'ai un fichier excel sur le quel je bute pour formater la colonne (B) matricules sur 14 digits

1 - cette colonne doit par défaut être en format texte pour ne pas supprimer les matricules commençant par 0

2 - dans cette colonne il faut que les espaces en trop JUSTE en tabulant après le dernier digit d'un matricule disparaissent

J'ai procédé avec le fonction "CTRL" F pour supprimer les vides mais çà ne fonctionne pas

il faudrait en fait formater cette colonne avec 8 DIGITS PAR DEFAUT pour que je puisse après y copier - coller de nouveaux matricules .

merci de votre aide

pas bien compris

il y a 2 colonnes de matricules :

• A en 8 digits mais il n'en contient que 6,
• B en 14 digits mais il n'en contient que 9

à quoi servent ces matricules ?

que doivent-ils contenir au final ?

nombre de digits réel ?

Bonsoir ,

c'est vrai que je n'ai pas assez détaillé

mon problème concerne que la Colonne B , les matricules servent à alimenter un autre fichier qui sera transformé en .CSV

Mais avant tout , il faut que dans la colonne B les cellules ne contiennent que 8 digits et aucun espaces ou de blancs après le dernier digit .

exemple : 12345678 ( conforme)

exemple : 12345678 _ _ _ _ _ _ _ ( non conforme ) car contient des espaces après le dernier digit

Merci pour ton aide

Bonsoir,

Un petit code pour supprimer les espaces de fin

Sub SupprEspacesFin()
Dim Lg&, Cel As Range
    Lg = Range("a" & Rows.Count).End(xlUp).Row - 1
    For Each Cel In Range("b2:b" & Lg)
        Cel.Value = RTrim(Cel.Value)
    Next Cel
End Sub

édit: le .Value est inutile

Sub SupprEspacesFin()
Dim Lg&, Cel As Range
    Lg = Range("a" & Rows.Count).End(xlUp).Row - 1
    For Each Cel In Range("b2:b" & Lg)
        [barrer]'Cel.Value = RTrim(Cel.Value)[/barrer]
        Cel = RTrim(Cel)
    Next Cel
End Sub

Amicalement

Claude

Bonsoir Claude ,

je te remercie de m'avoir répondu mais je suis incapable d'exploiter ta réponse

comment çà marche et as tu un autre chose à me proposer qui soit de mon niveau

bien cordialement

Bonsoir,

Peux pas te dire mieux !

Fais Alt+F11 pour voir le code

Claude

Bonsoir

Une solution sans macro mais une formule et quelques manipulations

Dans une colonne libre (exemple la R)

Formule en R2 et à tirer vers le bas

=SUPPRESPACE(B2)

Ensuite tu sélectionnes toutes tes données en colonne R

Copier

Tu sélectionnes B2

Collage spécial ---> Valeurs

Tu supprimes les données en colonne R

C'est fini

bonjour

je vais mettre cela en pratique dès lundi au bureau

je reviendrais vers vous pour vous dire comment cela c'est passé

merci de votre aide

et bonne journée

merci à tous çà marche nikel

au plaisir de vous lire