format personnalisé

job75

XLDnaute Barbatruc

• 21 Septembre 2012

• #2

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 :

Code:

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

Edit : ou aussi :

Code:

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

A+

 

Dernière édition: 21 Septembre 2012

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2012

• #3

Re : format personnalisé

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

Code:

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

Amicalement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2012

• #4

Re : format personnalisé

Bonsoir R@chid 🙂

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

A+

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2012

• #5

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 21 Septembre 2012

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2012

• #7

Re : format personnalisé

Re,

Il n'y a pas besoin d'UserForm.

Il suffit de mettre dans le code de la feuille :

Code:

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+

 

Dernière édition: 22 Septembre 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2012

• #8

Re : format personnalisé

Bonjour nrdz83, le forum,

On peut aussi appliquer le format aux cellules :

Code:

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+

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 22 Septembre 2012

• #9

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

 

Vote positif 0 Vote négatif