Format de cellule

S

Sha0lin

Guest
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
 

Hellboy

XLDnaute Accro
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)
 
S

Sha0lin

Guest
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
 
S

Sha0lin

Guest
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 ;)
 
S

Sha0lin

Guest
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

XLDnaute Barbatruc
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é
 

PascalXLD

XLDnaute Barbatruc
Modérateur
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é

XLDnaute Barbatruc
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.

Â+
 

Discussions similaires