> Tous les forums > Forum Bureautique
 Format de cellule personnalisée - Excel 2007Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gabrilou
  Posté le 07/02/2013 @ 05:52 
Aller en bas de la page 
Astucienne

,

J'essaie de créer un format de cellule personnalisée. Il s'agit d'une séquence de chiffres + une lettre. Les chiffres ne sont jamais les mêmes, la lettre non plus, et tout se passe dans la colonne A. Le № se présente toujours de la façon suivante : 2 chiffres suivis d'une espace, 6 chiffres suivis d'une espace, 3 chiffres suivis d'une espace et d'une lettre en majuscule : (ex. : 46 120417 356 F). Il semble impossible de formater des chiffres et des lettres, en tout cas je n'ai pas réussi.

J'ai essayé de travailler avec 2 colonnes mais je n'ai pas réussi non plus ce formatage. J'ai tapé 46120417356 dans la colonne A et la lettre F dans la colonne B.

Dans la colonne C, j'ai mis la formule suivante : =TEXTE(A1;"000# 000#")&" "&B1. Ça ne marche pas comme je le voudrai.

Merci pour votre aide.

Publicité
DjiDji59430
 Posté le 07/02/2013 à 11:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

A partir du moment ou on melange des nombres et des lettres, c'est du texte, et il n'y a pas de format texte.

Avec 2 colonnes

=GAUCHE(A1;2)&" "&STXT(A1;3;6)&" "&STXT(A1;9;3)&" "&DROITE(A1;1)

46120417356A, dans A1, la formule dans B1


Il ya surement une façon plus élégante ! (genre zone de saisie qui formate le texte et va le placer a la derniere cellule vide de la colonne ! ), mais je ne sais pas faire.



Modifié par DjiDji59430 le 07/02/2013 11:12
Gabrilou
 Posté le 07/02/2013 à 14:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Je n'ai pas compris la formule, mais le résultat est là, comme je le voulais.

Merci d'avoir pris le temps de m'aider.

Bonne journée

papouclo
 Posté le 07/02/2013 à 19:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,
Peut-être une possibilité de "formater" la saisie avec une procédure évènementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim machaine As String

If Target.Count > 1 Then Exit Sub
'permet de sortir de la procédure si plus d'une cellule est sélectionnée
'(sinon la suite de la macro renvoie un message d'erreur)

If Target.Column > 1 Then Exit Sub
'permet de sortir de la procédure si la cellule modifiée
' n'est pas dans la colonne A

machaine = Target.Value

If Len(machaine) = 15 Then Exit Sub
'permet de sortir de la procédure lorsque la cellule est réécrite au format désiré

Target.Value = Format(Left(machaine, 5), "00 000") & Format(Mid(machaine, 6, 6), "000 000") & " " & Right(machaine, 1)

End Sub

Cordialement

Gabrilou
 Posté le 07/02/2013 à 19:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

DjiDji59430, papouclo

Me voilà avec deux formules qui marchent

Merci à vous deux

ferrand
 Posté le 08/02/2013 à 16:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Une version de ta formule utilisant TEXTE qui me paraît fonctionner...

=TEXTE(A1;"00\ 000000\ 000\ ")&B1

La définition des formats de cellule personnalisés n'est pas toujours identique à la définition du format dans la fonction, il faut souvent tâtonner...

Cela peut toujours être utile.

papouclo
 Posté le 08/02/2013 à 17:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous,

Merci ferrand pour ce format.
cela peut servir pour d'autres formats inhabituels.
Cordialement

Gabrilou
 Posté le 08/02/2013 à 17:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Merci à toi Ferrand

Quelle chance on a de vous avoir , je l'apprécie tellement

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
79,99 €Kit 5.1 Logitech Z607 bluetooth à 79,99 €
Valable jusqu'au 03 Mars

Amazon fait une promotion sur le kit d'enceintes 5.1 Logitech Z607 qui passe à 79,99 € livré gratuitement alors qu'on le trouve ailleurs autour de 125 €. Ce kit dispose d'un caisson de basses, d'une voie centrale et de 4 satellites offrant au total  une puissance de crête de 160 Watts et 80 Watts en puissance RMS. De quoi profiter pleinement de vos films et de vos jeux dans une pièce moyenne. D'autant que des câbles extra-longs (6,2 m) sont fournis pour les satellites arrières. Grâce à ses entrées 3.5mm et RCA, vous pourrez relier le kit à un PC, à une console de jeux, un lecteur DVD/Blu-Ray tandis que sa connexion bluetooth vous permettra de l'utiliser pour vos appareils sans fil. Vous pouvez même lui brancher directement une carte mémoire ou une clé USB et écouter la radio FM. Une télécommande (sans fil) vous permettra de contrôler tout cela. Une excellente affaire !


> Voir l'offre
113,60 €SSD SanDisk Ultra 3D 1 To à 113,60 €
Valable jusqu'au 01 Mars

En cette période de forte remontée des prix des SSD, Amazon fait une belle promotion sur le SSD SanDisk Ultra 3D d'une capacité de 1 To qui passe à 113,60 € livré gratuitement. On le trouve ailleurs autour de 160 €. Une bonne affaire pour ce SSD performant qui offre des débits de 560 Mo/s en lecture et 530 Mo/s en écriture. Cette version est garantie 3 ans.


> Voir l'offre
13,99 €Microsoft Office 2019 Professional Plus à 13,99 €
Valable jusqu'au 02 Mars

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation légale pour Microsoft Office Professionnel 2019 Plus en français à 13,99 €. Cette clé livrée par email vous permettra d'activer Microsoft Office Professionnel 2019 Plus légalement et vous permettra ainsi d'utiliser autant de temps que vous voulez (il s'agit de la version complète et pas d'un abonnement) Word,Excel, PowerPoint, OneNote, Outlook, Publisher et Access 2019 sur un PC. La clé sera à activer sur Office.com où vous pourrez ensuite télécharger toute la suite bureautique. Pour mémoire, Microsoft Office Professionnel 2019 nécessite Windows 10. Sous Windows 7 ou 8, vous devrez vous tourner vers la version 2016. Pour plus d'info sur la procédure, n'hésitez pas à jeter un oeil à notre dossier pratique Acheter une clé OEM d'Office 2019 et l'installer.


> Voir l'offre

Sujets relatifs
Format de cellule personnalisée excel
Imposer format dans cellule excel 2007
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
Comment verrouiller une cellule Excel 2007
format cellule Excel
Excel 2007 résultat formule dans une autre cellule
Excel 2007 formule et saisie dans la même cellule
Excel 2007 couleur dans une cellule non imprimable
Excel 2007 - Suppression selon format
cellule excel 2007
Plus de sujets relatifs à Format de cellule personnalisée - Excel 2007
 > Tous les forums > Forum Bureautique