Ajouter Nombres décimaux macro excel

Pinfourcat -  
 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 Messages postés 1255 Statut Membre 155
     
    Bonjour,

    Peux-tu nous montrer ton code ?
    0
  2. 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 Messages postés 1255 Statut Membre 155
       
      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
  3. 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 Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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
  4. Pinfourcat
     
    Bonjour à tous
    Simplement pour vous remercier de votre aide.
    J'ai enfin trouver la solution à mon cas.Bonne journée.
    Pinfourcat
    0