Format de cellule

[Sha0lin]

Bonjour à tous,

je voudrais faire un format de cellule personnalisé qui limite l'affichage d'une cellule à 5 caractères.

En gros, je vais rentrer que des numéros à 10 chiffres, mais il n'y a que les 5 premiers qui m'intéressent et je voudrais qu'il n'y ait que ceux la qui s'affichent.

Il ne s'agit que de nombres entier - des références en fait - et je ne veux pas non plus qu'ils soient arrondis.

Si quelqu'un peut m'aider...

Merci d'avance de votre patience 🙂

Sha0lin

 

[herve62]

Salut

utilise l'instruction ci-dessous dans ton code :
Left ( val cellule , Nb caract)

exemple:
Range('b3').Value = Left(Range('b3').Value, 5)

Lorsque ta macro tournera , la valeur dans B3 n'aura plus que 5 chiffres

Hervé

 

[Hellboy]

Bonjour ShaOlin (showdown) 😉

Je n'ai pas réussi a créer de format personnalisé de cellule répondant à ta demande. Mais j'ai une proposition par formule:

            Colonne A
            Ligne 1
12345678910
            Colonne B
            Ligne 1
=GAUCHE(A1;5)

 

[Sha0lin]

Re et merci à vous pour la rapidité !!!

herve62, nickel ! c'est ce que je voulais.

La seule chose que je regrette un peu, c'est qu'avec cette solution en VBA, au lieu d'un format de cellule, je perd complètement le code que j'ai saisi à l'origine.

J'aurais préféré n'avoir qu'une mise en forme visuelle à 5 chiffres - question de gestion - mais pouvoir retrouver ma référence complète au besoin.

Mais bon, c'est déjà tip top 😉

Hellboy, ça aurait été parfait mais je voulais que cette mise en forme se fasse directement dans la cellule de saisie

Bonjour ShaOlin (showdown) lol 😉

Si vous avez du nouveau... 🙂

Sha0lin

 

[Hellboy]

re

Le plus près que je suis arrivé avec un format de cellule personnalisé, c'est avec ceci '# ' (2 espaces). Mais le Hic c'est que ça arrondi. 😱

a+

 

[Sha0lin]

Merci Hellboy c'est gentil mais t'embête pas, je vais faire avec la formule VBA...

A moins qu'il y ait un moyen d'empêcher l'arrondi, mais bon :S

++

Sha0lin

 

[herve62]

Re
Explique ce que tu perds comme code ?
en mettant l'instruction que je t'ai laissé
Un exemple c'est mieux

Hervé

 

[Sha0lin]

Bonjour Herve,

Voici mon exemple :

J'importe la référence 1234567890

Et la cellule n'affiche que 12345

------ jusque là tout fonctionne à merveille et je t'en remercie -------

Pour l'heure je suis satisfait car c'est vraiment ce que je voulais.

Pour cause, je me moques des 5 derniers chiffres qui me sont inutiles.

Ceci dit, pour mon info, j'aurais juste aimé savoir s'il était possible que tout reste comme ça, mais simplement que lorsque tu sélectionne la cellule, tout la référence (1234567890) s'affiche ?

D'avance merci

Sha0lin 😉

 

[Sha0lin]

Re Herve,

En fait j'ai une question bien plus importante !

Comment puis-je modifier ton code afin qu'il s'applique à toute la colonne B ?

Merci d'avance de ta réponse car je suis bloqué et ça urge 🙁

Sha0lin

 

[herve62]

Bonjour Shaolin

En fait il faut 'astucer' !!

cellB = Range('x1').Value ' x1 est un exemple ou la formule 'NBVAL' sera mise

For x = 1 To cellB
Range('b' & x).Value = Left(Range('b' & x).Value, 5)
Next x

tu mets dans un coin de ta feuille une cellule ave la formule NBVAL('B:B') qui va compter le nombre de cellules non vides dans ta colonne ex: s'il y a des donnees de 1 a 20 ta boucle sera limitée à 20 au lieu de je ne sais combien de lignes pour rien
Dans ta macro tu recuperes la valeur de cette cellule ( ici cellB) et tu boucles sur la formule
Voila, esperant que cela te depannes
A+
Hervé

 

[Sha0lin]

Merci pour ta disponibilité et ta rapidité Hervé, je suis parvenu à mon but en partie grâce à tes conseils !

Au plaisir

Sha0lin

 

[PascalXLD]

Bonjour ce fil

Bon en fait tu avais doublé le fil Shaolin et je n'avais pas vu

Pour Hervé en VBA tu n'as pas besoin de passer par une cellule pour limiter le nombre de ligne tu peux faire

For x = 1 To range('B65536').end(Xlup).row
Range('b' & x).Value = Left(Range('b' & x).Value, 5)
Next x

Sinon sur l'autre fil je donne une solution avec un tableau de variables ce qui sera beaucoup plus rapide si il y a beaucoup de lignes

Le fil se trouve Lien supprimé

Bonne journée

 

[andré]

Salut,

Avec beaucoup de retard !

Menu Outils / Options / Modification
Cocher décimale fixe
Place : 5
Menu Format / Cellule / Nombre / Nombre
Nombre de décimales : 0

Petit inconvénient : il faut toujours encoder 10 chiffres, c'est à dire ajouter le nombre de 0 pour obtenir les 10 chiffres.

Â+