Microsoft 365 Fraction bizarre dans excel

[dessin direct]

Bonjour,

j'ai des fractions du genre 11/12, 5/6. 1/6 …
comment régler cela pour avoir des fractions de mesure
correct comme un tape à mesurer automatiquement

Merci pour votre aide

 

[mapomme]

Bonjour,

comment régler cela pour avoir des fractions de mesure
correct comme un tape à mesurer automatiquement

?????

 

[dessin direct]

Bonjour,

?????

en qu'il arrondissent au plus près en /4 /2 /8 /16
Par exemple 11/12 me donne 15/16 si je le met en /16 dans le format de cellule mais quand je change le chiffre de la mesure principale il me donne 4/16 au lieu de 1/4

 

[dessin direct]

Voici un fichier exemple. Change la mesure dans le carré rouge pour 80 et regarde les carrés vert

 

[Dranreb]

Bonsoir.
Je pense qu'en arrondissant au 1/16 ou 1/32 le plus proche ça ne devrait plus faire ça.
En F14 :

=ARRONDI(((H14*K14)+6)*16;0)/16

En F39 :

=ARRONDI(16*($B$5-$S$13-$S$15-$S$32)/3;0)/16

etc.

 

[dessin direct]

Bonsoir.
Je pense qu'en arrondissant au 1/16 ou 1/32 le plus proche ça ne devrait plus faire ça.
En F14 :

=ARRONDI(((H14*K14)+6)*16;0)/16

En F39 :

=ARRONDI(16*($B$5-$S$13-$S$15-$S$32)/3;0)/16

etc.

Super ça fonctionne très bien. Merci infiniment pour la solution.
Je n'ai pas utilisé les

 esse nécessaire

 

[JHA]

Bonjour à tous,

Il me semble que le format personnalisé "0/#" affiche la fraction au minimum

JHA

 

[Dranreb]

Bonjour @JHA

Il me semble que le format personnalisé "0/#" affiche la fraction au minimum

Oui mais toujours en d'éventuels dénominateurs plus proches autre que 2, 4, 8 et de surcroit plus en 1/16 de pouce cette fois. Avec 2 chiffres au dénominateur, c'est aussi la fraction simplifiée qui est affichée.

J'avais proposé ces deux fonctions il y a quelques temps :

Option Explicit
Function MètresIm(ByVal Impé)
   Dim Pouces As Double, TSpl() As String
   If TypeOf Impé Is Range Then Impé = Impé.Value
   Select Case VarType(Impé)
      Case vbString
         TSpl = Split(Impé, "'")
         If UBound(TSpl) = 1 Then
            Pouces = 12 * Val(TSpl(0)): Impé = TSpl(1)
            End If
         TSpl = Split(Impé, """")
         If UBound(TSpl) = 1 Then
            TSpl = Split(TSpl(0))
            Pouces = Pouces + Val(TSpl(0))
            If UBound(TSpl) = 1 Then
               TSpl = Split(TSpl(1), "/")
               If UBound(TSpl) = 1 Then Pouces = Pouces + Val(TSpl(0)) / Val(TSpl(1))
               End If: End If
      Case vbDouble: Pouces = Impé
      Case Else: MètresIm = CVErr(xlErrValue): End Select
   MètresIm = 0.0254 * Pouces
   End Function
Function Impérial(ByVal m As Double) As String
   Dim Pouces As Double, Pieds As Integer, N&, D%, U$
   Pouces = Int(16 * m / 0.0254 + 0.5) / 16
   If Pouces >= 12 Then
      Pieds = Int(Pouces / 12)
      Impérial = Pieds & "'"
      Pouces = Pouces - 12 * Pieds
      End If
   If Pouces >= 1 Then
      Impérial = Impérial & Int(Pouces)
      Pouces = Pouces - Int(Pouces)
      U = """": End If
   If Pouces > 0 Then
      N = 16 * Pouces: D = 16
      While N Mod 2 = 0: N = N \ 2: D = D \ 2: Wend
      If Right$(Impérial, 1) > "'" Then Impérial = Impérial & " "
      Impérial = Impérial & N & "/" & D
      U = """": End If
   Impérial = Impérial & U
   End Function

 

[dessin direct]

Bonjour @JHA

Oui mais toujours en d'éventuels dénominateurs plus proches autre que 2, 4, 8 et de surcroit plus en 1/16 de pouce cette fois. Avec 2 chiffres au dénominateur, c'est aussi la fraction simplifiée qui est affichée.

J'avais proposé ces deux fonctions il y a quelques temps :

Option Explicit
Function MètresIm(ByVal Impé)
   Dim Pouces As Double, TSpl() As String
   If TypeOf Impé Is Range Then Impé = Impé.Value
   Select Case VarType(Impé)
      Case vbString
         TSpl = Split(Impé, "'")
         If UBound(TSpl) = 1 Then
            Pouces = 12 * Val(TSpl(0)): Impé = TSpl(1)
            End If
         TSpl = Split(Impé, """")
         If UBound(TSpl) = 1 Then
            TSpl = Split(TSpl(0))
            Pouces = Pouces + Val(TSpl(0))
            If UBound(TSpl) = 1 Then
               TSpl = Split(TSpl(1), "/")
               If UBound(TSpl) = 1 Then Pouces = Pouces + Val(TSpl(0)) / Val(TSpl(1))
               End If: End If
      Case vbDouble: Pouces = Impé
      Case Else: MètresIm = CVErr(xlErrValue): End Select
   MètresIm = 0.0254 * Pouces
   End Function
Function Impérial(ByVal m As Double) As String
   Dim Pouces As Double, Pieds As Integer, N&, D%, U$
   Pouces = Int(16 * m / 0.0254 + 0.5) / 16
   If Pouces >= 12 Then
      Pieds = Int(Pouces / 12)
      Impérial = Pieds & "'"
      Pouces = Pouces - 12 * Pieds
      End If
   If Pouces >= 1 Then
      Impérial = Impérial & Int(Pouces)
      Pouces = Pouces - Int(Pouces)
      U = """": End If
   If Pouces > 0 Then
      N = 16 * Pouces: D = 16
      While N Mod 2 = 0: N = N \ 2: D = D \ 2: Wend
      If Right$(Impérial, 1) > "'" Then Impérial = Impérial & " "
      Impérial = Impérial & N & "/" & D
      U = """": End If
   Impérial = Impérial & U
   End Function

Cette solution me semble intéressante pour intégrer dans mes fichiers source.
Je dois copier tout le code ? Merci

 

[Dranreb]

Tout le code est nécessaire dans un module standard pour pouvoir faire des calcul sur des textes représentant des mesures impériales et restituer aussi le résultat sous cette forme.

 

[dessin direct]

Tout le code est nécessaire dans un module standard pour pouvoir faire des calcul sur des textes représentant des mesures impériales et restituer aussi le résultat sous cette forme.

Merci Dranreb. Cela ma été d'une aide considérable et j'ai appris. Merci au autre personne qui ce sont impliqué dans la solution