zéro significatif

[alainkb]

Bonjour,
J'utilise Excel 2003.
Mon problème est le suivant, j'ai une altitude exprimée en mètre que je convertis en unité de 1000 pieds. Le résultat dans ma textbox devrait être
sur 3 chiffres du style 003 qui correspond à 3000 pieds.
Merci pour votre aide.

 

[Cousinhub]

Re : zéro significatif

Bonsoir,

peut-être ainsi :

Sub totalise()
  On Error Resume Next
  If Altitude.Value = "" Then
  AltPied.Value = ""
  Else
  p2 = (valeur((Me.Altitude) * 3.28) / 1000)
  Me.AltPied = Format(Int(p2), "000")
  End If
  
  End Sub

bonne soirée

 

[alainkb]

Re : zéro significatif

Merci beaucoup