Ajouter Nombres décimaux macro excel

Pinfourcat -  
Bonjour à tous

Je cherche comment comptabiliser (EX: 10 +0.50) dans une macro.
Mon code s'exécute avec des entiers , mais pas avec 0.50.
Merci à l'avance.
Chauliac

4 réponses

  1. eljojo_e
    Bonjour,

    Peux-tu nous montrer ton code ?
    0
    1. Pinfourcat
      Bonjour
      voici une partie du code
      For i = 1 To Frame1.Controls.Count

      If CheckBox32.Value = True Then
      N = N + 0.5

      If Frame1.Controls(i - 1).Value = True Then
      w.Cells(k + 5, i + 1).Value = N
      End If
      End If
      Next i

      N étant un nombre entier cela fonctionne bien.
      dès que j'ajoute 0.5 pas de comptabilité .
      En te remerciant à l'avance
      Pinfourcat
      0
      1. eljojo_e
        Un truc bête, mais ne faudrait-il pas écrire 0,5 au lieu de 0.5 ? sinon comment tu as déclaré N ?
        0
    2. Pinfourcat
      re

      Ma variable n je l'ai déclarée une fois en integer
      et puis en string.
      Dans les 2 cas même résultat.
      Si je remplace o.5 par 0,5
      il s'affiche ce message
      Erreur de compilation
      Attendu fin d'instruction.
      Maintenant j'ai trouver une chose

      If Frame1.Controls(i - 1).Value = True Then
      w.Cells(k + 5, i + 1).Value = N

      Si n je le remplace par ex: 60.5 cela fonctionne
      Bizarre bizarre

      Encore mille fois merci
      Pinfourcat
      0
      1. eriiic Contributeur
        Bonjour,

        Comme type de variable il faut utiliser Single ou Double pour les décimaux (ou Currency avec 4 chiffres après la virgule).

        eric
        0
    3. Pinfourcat
      Bonjour à tous
      Simplement pour vous remercier de votre aide.
      J'ai enfin trouver la solution à mon cas.Bonne journée.
      Pinfourcat
      0