format dec cellules

[nono]

bonsoir a tous

voila mon probleme je souhaite avoir dans une cellule le format suivant
les references que je tape dans cette cellule (en lettres )doivent etre précédées de plusieurs 0 (zero)afin que l'ensemble fasse 12 caracteres .

exemples
quand je tape A cela donne 00000000000A
quand je tape cote cela donne 00000000COTE

merci d'avance @+

 

[Hellboy]

Bonjour

Regarde l'image que je t'envois et dis moi ci cela répond a ta demande !

Merci !

[file name=Format_Cellule.zip size=19987]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Format_Cellule.zip[/file]

 

[JeanMarie]

Bonsoir nono

Le format de la cellule ne permet pas pour une valeur Texte de formater la valeur affichée sur un certain nombre de caractères.

Voici un code à glisser dans la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
   If Not IsEmpty(Target) Then Target = Right('000000000000' & Target, 12)
Application.EnableEvents = True
End Sub

Nota : Pour placer le code dans la bonne feuille, clique droit sur l'onglet de la feuille, puis colle dans la nouvelle fenêtre apparue à l'écran.

@+Jean-Marie

 

[nono]

merci a vous de m'avoir repondu si rapidement.
je vais essayer cela demain car je n'ai pas excel sur ce pc.



@+

 

[nono]

bonjour

j'ai essaye ce code il est bien mais je souhaite que cela ne s'applique qu'a une serie de cellules comme R12:R50 par exemple.j'avais oublie de preciser cela.

merci @+