Discussion :

[NEC14]

Bonjour le Forum,

Dans la zone A4:A178 de mon tableau, j'ai des références saisies, elles sont toutes écrites en format texte. Ces références ont ce format "CN 00 00 00 00 000"; "O0 00 00 00 00 000" et "00 00 00 00 00 000".
Dans la zone F25:F97, il y a une zone de liste dans chaque cellule, elles font appel aux références saisies dans A4:A178.

J'aimerai mettre en place, si cela est possible bien entendu, une macro qui modifierait automatiquement le format saisi en format texte.
Par exemple : je saisie CN01010203004, je souhaite que le format soit en texte CN 01 01 02 03 004 dans la cellule. Idem pour les autres formats (O102030405006 - O1 02 03 04 05 006; 0000000000000 - 00 00 00 00 00 000)

J'espère avec été clair dans mon explication. L'utilisateur tapera la référence sans espaces, (par exemple : CN00000000000) le but étant d'éviter de taper les espaces entre chaque chiffre.

Merci par avance pour l'aide que vous pourrez m'apporter
René

[eriiic]

Bonjour,

un format, s'il est toujours le même pour une plage est à mettre directement sur la feuille. Aucun intérêt à le faire par macro.
De toute façon un format s'adresse à des nombres et CN01010203004 est du texte.
eric

[NEC14]

Bonsoir,

Le format ne sera jamais le même sur une même plage. Pour le moment la saisie se fait en laissant des espaces entre les lettres et nombres, ce qui n'est pas pratique, c'est pour cela que j'ai opté pour une macro.
Quand il n'y a que un ou deux références à saisir on peut le faire sans automatiser la tâche, mais quand il y en a plusieurs dizaine, voir une centaine, ça prend du temps.

L'utilisateur n'aurait qu'à taper au kilomètre, et le format s'automatise. Mais si ce n'est pas possible tant pis.

Merci quand même d'avoir participer à ce post

[unparia]

Bonjour
Ce sera donc en effet du texte et non un "nombre"
Tu peux toujours aller vers le ridicule et formater à l'avance le texte à saisir dans la cellule.
Regarde ce que fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
toto = "CN01010203004"
Range("A1") = Left(toto, 2) & " " & Format(Mid(toto, 3, 8), "@@ @@ @@ @@") & " " & Mid(toto, 11)
toto = "O102030405006"
Range("A2") = Left(toto, 2) & " " & Format(Mid(toto, 3, 8), "@@ @@ @@ @@") & " " & Mid(toto, 11)

Mais si tu fais cela, il vaudra mieux n'accepter que si 13 caractères saisis (pas un de plus, pas un de moins).

[NEC14]

Bonsoir unparia,

Merci pour votre réponse. Effectivement c'est du texte, mais je ne peux pas, plutôt je ne sais pas, le personnaliser à toute ma plage. Je vais mettre votre proposition en œuvre et je vous tiens au courant.
Encore merci.
René

[NEC14]

Bonjour,

J'ai mis le code en place, le format qu'il rend me plait bien; Maintenant il faut que je l'adapte à la cellule uniquement saisie car pour le moment il me rempli la colonne entière avec les mêmes données.