1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Faire un addition avec VBA

Discussion dans 'Forum Excel' démarrée par FunnyLays, 16 Mai 2018.

  1. FunnyLays

    FunnyLays XLDnaute Nouveau

    Inscrit depuis le :
    13 Mai 2018
    Messages :
    5
    "J'aime" reçus :
    0
    Bonjour !
    J'ai un soucis tout simple avec VBA que je ne parviens pas à résoudre.
    Ci-joint mon fichier exemple.

    Je cherche a faire une addition des valeurs de 0,1 en 0,1 ou bien autre (0,2 en 0,2). Cette valeur doit être définie par l'utilisateur.
    Ceci doit être fait entre des bornes inférieure et supérieures comme indiqué sur mon fichier.
    (Les valeurs brutes sont situées dans la colonne remplie qui permet de définir le maximum et le minimum)

    Merci par avance !
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - addition VBA Forum Date
    faire toute les additions possible d'une liste en vba Forum Excel 5 Juin 2018
    VBA - Additions d'heures pour convocation avec contrainte d'horaire Forum Excel 17 Avril 2018
    Additionner les quantités de même référence en VBA Forum Excel 23 Septembre 2017
    Addition sous deux conditions en VBA[RESOLU] Forum Excel 14 Septembre 2017
    XL 2007 additionner plage de cellule en vba Forum Excel 6 Avril 2017

  3. vgendron

    vgendron XLDnaute Barbatruc

    Inscrit depuis le :
    24 Février 2009
    Messages :
    4748
    "J'aime" reçus :
    467
    Utilise:
    Excel 2007 (PC)
    Hello
    pas sur de comprendre.. mais voici un essai
    Code (Visual Basic):

    Sub Incréments()

    'ValDepart = CDec(Application.InputBox("Donnez la valeur de départ"))
    'ValFin = CDec(Application.InputBox("Donnez la valeur de Fin"))
    ValDepart = WorksheetFunction.Min(Range("G:G"))
    ValFin = WorksheetFunction.Max(Range("G:G"))
    Pas = CDec(Application.InputBox("Donnez l'intervalle"))

    For i = 1 To ((ValFin - ValDepart) / Pas) + 1
        Range("A" & i) = ValDepart + (i - 1) * Pas
       
    Next i

    End Sub
     
     
    FunnyLays aime votre message.
  4. FunnyLays

    FunnyLays XLDnaute Nouveau

    Inscrit depuis le :
    13 Mai 2018
    Messages :
    5
    "J'aime" reçus :
    0
    Parfait ça fonctionne a merveille merci beaucoup !
     

Partager cette page