format personnalisé

[nrdz83]

Bonsoir à tous je cherche à avoir un format personnalisé du style trois chiffres un slash et l'année en cours (000\2012)

j'essaye cette piste mais ça fonctionne pas

####" \"(aujourdhui();"aaaa")

Quelqu'un pourrait il m'aiguiller sur le format à adopter ?

Par avance je vous remercie amitiés

 

[job75]

Re : format personnalisé

Bonjour nrdz83,

Les formats personnalisés n'acceptent ni fonction ni nom défini.

Par contre si le nombre est entré en A1 on peut entrer en B1 :

=REPT(TEXTE(A1;"000")&"\"&ANNEE(AUJOURDHUI());ESTNUM(A1))

Edit : ou aussi :

=TEXTE(A1;"000")&REPT("\"&ANNEE(AUJOURDHUI());ESTNUM(A1))

A+

 

[R@chid]

Re : format personnalisé

Bonsoir @ tous,
Salut l'ami Job75,
ou bien,

=TEXTE(A1;"000")&"\"&ANNEE(AUJOURDHUI())

Amicalement

 

[job75]

Re : format personnalisé

Bonsoir R@chid 🙂

Si A1 n'est pas un nombre, il vaut mieux que "\"&ANNEE(AUJOURDHUI()) n'apparaisse pas.

A+

 

[R@chid]

Re : format personnalisé

Bonsoir Job75,
oui je me demandais pourquoi tu l'as fait comme et j'ai bien compris, en cas de texte en A1, ESTNUM() renvoie FAUX=0
Bonne idée de ta part
Amicalement

 

[nrdz83]

Re : format personnalisé

Bonsoir et merci pour vos lumières, il serait pas plus simple de mettre un format en vba si je passe par un userform pour saisir les données?
merci d'avance pour votre aide

 

[job75]

Re : format personnalisé

Re,

Il n'y a pas besoin d'UserForm.

Il suffit de mettre dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
'--contrôle des valeurs numériques entrées en colonne A--
Set Target = Intersect(Target, [A:A], Me.UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target 'si entrées multiples
  If IsNumeric(Target.Text) Then _
    Target = Format(Target.Text, "000") & "\" & Year(Date)
Next
Application.EnableEvents = True
End Sub

Nota : il ne s'agit pas du format mais de la valeur texte de la cellule.

Edit : on peut se passer ici des Application.EnableEvents.

En effet il n'y a pas de risque de bouclage puisque le résultat n'est pas numérique.

A+

 

[job75]

Re : format personnalisé

Bonjour nrdz83, le forum,

On peut aussi appliquer le format aux cellules :

Private Sub Worksheet_Change(ByVal Target As Range)
'--contrôle du format en colonne A--
Set Target = Intersect(Target, [A:A])
If Target Is Nothing Then Exit Sub
Target.NumberFormat = "000""\" & Year(Date) & """"
End Sub

Bien noter que les valeurs des cellules ne sont pas modifiées.

A+

 

[nrdz83]

Re : [RESOLU]format personnalisé

Bonjour Job75 et le fil super c'est juste ce que je cherchais. Désolé de te répondre si tard mais j'etais au taff.

Encore merci amitiés