XL 2019 Affichage mesure impérial Ft/In

[C-B]

Bonjour,

J'ai un problème d'afficher avec les unité de mesure impérial. Mon logiciel de dessin me permet d'exporter la quantité et les dimension de mes composantes...

EM1	01	56	Latte	2 1/2"	3/4"	10'0"	#VALEUR!​
EM1	01	14	Latte	2 1/2"	3/4"	3'11 5/16"
EM1	01	80	Latte	2 1/2"	3/4"	7'10 3/4"
EM1	02	14	Latte	2 1/2"	3/4"	4'1"
ME3	01	56	Latte	2 1/2"	3/4"	10'0"
ME3	01	14	Latte	2 1/2"	3/4"	3'11 5/16"
ME3	01	80	Latte	2 1/2"	3/4"	8'11"
ME3	02	14	Latte	2 1/2"	3/4"	4'1"
ME4	01	56	Latte	2 1/2"	3/4"	10'0"
ME4	01	14	Latte	2 1/2"	3/4"	3'11 5/16"
ME4	01	80	Latte	2 1/2"	3/4"	8'3/4"
ME4	02	14	Latte	2 1/2"	3/4"	4'1"
						Total pi/Li

Mais j'aimerais pouvoir avoir 56 lattes x 10'0" = 560'0"... ou quelques chose d'équivalent...

Que dois-je faire???

Merci

 

[JHA]

Bonjour à tous,

un début de piste pour les "pieds"

=(STXT(G3;1;CHERCHE("'";G3)-1)*C3)&"'"

JHA

 

[Laurent78]

Bonjour,
Plusieurs petites questions :
2 1/2" correspond à quoi ?
56, c'est bien une quantité ?
à quoi correspond le total pi/Li ?
Je suppose qu'il s'agit d'un fichier texte à importer dans Excel
Avez-vous essayé en changeant les paramètres régionaux du PC ?
Cdlt

 

[Dranreb]

Bonsoir.
Passez peut être par le mètre en utilisant ces fonctions personnalisées à mettre dans un module standard VBA :

Option Explicit
Function MètresImpérial(ByVal Txt As String) As Double
   Dim Pouces As Double, TSpl() As String
   TSpl = Split(Txt, "'")
   If UBound(TSpl) = 1 Then
      Pouces = 12 * Val(TSpl(0)): Txt = TSpl(1)
      End If
   TSpl = Split(Txt, """")
   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
   MètresImpérial = 0.0254 * Pouces
   End Function
Function ImpérialMètres(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érialMètres = Pieds & "'"
      Pouces = Pouces - 12 * Pieds
      End If
   If Pouces >= 1 Then
      ImpérialMètres = ImpérialMètres & 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érialMètres, 1) > "'" Then ImpérialMètres = ImpérialMètres & " "
      ImpérialMètres = ImpérialMètres & N & "/" & D
      U = """": End If
   ImpérialMètres = ImpérialMètres & U
   End Function

=ImpérialMètres(MètresImpérial("10'0""")*56) affiche "560'"

 

[Laurent78]

et également à regarder (pour ceux qui passeraient par là) la fonction Excel CONVERT et le fils :

Convertir dans Excel des cm en pouces et fractions Ajustées

J'ai une demande très compliqué à trouver? J'ai besoin de convertir dans Excel des cm en pouces et fractions Ajustées Exemple 77.15cm/2.54 = 30.374015... Il me faudrait Ajuster pour obtenir 30.375 ce qui est égal à 30 3/8 et avoir la possibilité faire l'inverse avec le même calcul 30.375...

www.excel-downloads.com

qui peuvent aussi donner des idées.

 

[C-B]

Bonjour,
Plusieurs petites questions :
2 1/2" correspond à quoi ?
56, c'est bien une quantité ?
à quoi correspond le total pi/Li ?
Je suppose qu'il s'agit d'un fichier texte à importer dans Excel
Avez-vous essayé en changeant les paramètres régionaux du PC ?
Cdlt

Merci Laurent78 d'avoir prix du temp pour me répondre. Donc vos réponses:
2 1/2" correspond à la largeur de la pièce de bois et 3/4" son épaisseur. Ses 2 variables me serve seulement à identifier le type de produit.
56 est la quantité de pièces de cette longueur
Pi/Li = Pied linaire, donc la longueur bout à bout

En résumé ma première ligne me dit que j'ai 56 latte de 2.5po x 0.75po de 10pi de long chacune. J'ai donc besoin 560Pi/Li

Merci

 

[C-B]

Bonjour à tous,

un début de piste pour les "pieds"

=(STXT(G3;1;CHERCHE("'";G3)-1)*C3)&"'"

JHA

Bonjour JHA,

Ceci fonction pour multiplier les pieds, mais ceci ne me permet de multiplier les pouces...

14 lattes 3'-11 5/16" devrait donner 55'-2 3/8" et non pas 42' comme indiquer ci-haut...

De plus, comment faire le total?

Merci pour votre temp

 

[C-B]

Bonsoir.
Passez peut être par le mètre en utilisant ces fonctions personnalisées à mettre dans un module standard VBA :

Option Explicit
Function MètresImpérial(ByVal Txt As String) As Double
   Dim Pouces As Double, TSpl() As String
   TSpl = Split(Txt, "'")
   If UBound(TSpl) = 1 Then
      Pouces = 12 * Val(TSpl(0)): Txt = TSpl(1)
      End If
   TSpl = Split(Txt, """")
   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
   MètresImpérial = 0.0254 * Pouces
   End Function
Function ImpérialMètres(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érialMètres = Pieds & "'"
      Pouces = Pouces - 12 * Pieds
      End If
   If Pouces >= 1 Then
      ImpérialMètres = ImpérialMètres & 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érialMètres, 1) > "'" Then ImpérialMètres = ImpérialMètres & " "
      ImpérialMètres = ImpérialMètres & N & "/" & D
      U = """": End If
   ImpérialMètres = ImpérialMètres & U
   End Function

=ImpérialMètres(MètresImpérial("10'0""")*56) affiche "560'"

Merci Dranreb,

Vous avez surement passer du temp pour votre explication, mais je ne suis pas sur de comprendre ce que je doit faire... Mais je vais faire quelques teste

Encore merci

 

[Laurent78]

Bonjour,
Ci-joint un fichier Excel en utilisant les fonctions personnalisées fournies par Dranreb (J'ai modifié leurs noms, je les comprenais à l'envers )

Le dernier soucis, c'est le Total, que souhaitez vous ?