Formule division

Résolu
mylord666 Messages postés 162 Statut Membre -  
mylord666 Messages postés 162 Statut Membre -
Bonjour,

comment écrire une division en vba
exemple
G= H / 1000
cela me réponds toujours 0 la division s'effectue pas
merci beaucoup

2 réponses

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Si H = 0, dans ton cas, le résultat sera toujours 0...

    Essaie ceci :

    Sub Main()
    Dim Nbprem As Long, Nbdeuz As Long, Resulta As Double
    Nbprem = 1523
    Nbdeuz = 96
    Resulta = Diviz(Nbprem, Nbdeuz)
    Debug.Print Resulta
    End Sub
    
    Function Diviz(dividende As Long, diviseur As Long) As Double
    Diviz = dividende / diviseur
    End Function 

    0
    1. mylord666 Messages postés 162 Statut Membre
       
      bonjour je viens de le tester j'obtiens une erreur il admet pas le mot DIVIZ tu peux m'aider merci d'avance
      0
    2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Peux tu me copier/coller le code tel que tu l'as essayé???
      0
    3. mylord666 Messages postés 162 Statut Membre
       
      le même que tu m''as indique ligne 85 de ton petit module
      0
    4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Essaye de changer Diviz par un autre mot... Toto par exemple
      0
    5. mylord666 Messages postés 162 Statut Membre
       
      ok je fais le test merci de l'info
      0
  2. mylord666 Messages postés 162 Statut Membre
     
    merci beaucoup je vais tester cela bonne fin de journée
    0