fomat de cellule

[tinet]

Bonjour le forum,

je voudrais savoir si pour une cellule il est possible de saisir deux formats différents
une valeur décimale avec virgule et une fraction

Donc pouvoir saisir 0,05 ou la fraction 1/8 par exemple sans changer le format de celulle
.

A+

 

[Papou-net]

Re : fomat de cellule

Bonsoir tinet,

Tu n'as rien d'autre à faire que l'une des 2 opérations suivantes :

- tu tapes 0.05 pour afficher en décimale

- tu tapes "0 1/8" pour écrire une fraction (sans les guillemets qui ne sont là que pour visualiser l'espace après le 0)

Et pis c'est tout.

Cordialement.

 

[tinet]

Re : fomat de cellule

Bonsoir Papou net,

Merci, et si je veux revenir en décimale

a+

 

[Papou-net]

Re : fomat de cellule

Ah ça, je ne l'ai pas envisagé : apparemment, ça me semble assez compliqué sans intervenir dans le menu de formatage de la cellule.

Je tâcherai d'y regarder en espérant pouvoir trouver la solution.

Cordialement.

 

[tinet]

Re : fomat de cellule

Re,

et une macro VBA en indiquant la plage

A+

 

[tinet]

Re : fomat de cellule

Bonjour le Forum,

j'ai bricoler cette fonction, mais sa ne marche pas

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([B11:B880], Target) Is Nothing Then Target.Value = IIf(Selection.NumberFormat = "0.000", "# ??/??", "0.000")
Cancel = True
End Sub

a+

 

[Pierrot93]

Re : fomat de cellule

Bonjour,

regarde ceci, contrôle la cellule T1 qui doit être dans l'un ou l'autre des formats...

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$T$1" Then
    Target.NumberFormat = Switch(Target.NumberFormat = "# ?/?", "#,##0.00", _
        Target.NumberFormat = "#,##0.00", "# ?/?")
    Cancel = True
End If
End Sub

bonne journée
@+

 

[tinet]

Re : fomat de cellule

Bonjour Pierrot93,

désolé de n'avoir par répondue plutôt.
dit-moi ce que je fais mal.

a+

 

[Pierrot93]

Re : fomat de cellule

Bonjour,

si tu veux contôler la plage A1:A50, modifie comme suit :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
    Target.NumberFormat = Switch(Target.NumberFormat = "# ?/?", "#,##0.00", _
        Target.NumberFormat = "#,##0.00", "# ?/?")
    Cancel = True
End If
End Sub

bonne journée
@+

 

[tinet]

Re : fomat de cellule

Bonjour Pierrot93,

Merci et à un autre moment sur le forum.