[VB sur exel]

Bonjour, j'ai un petit problème avec la prog vb sur excel. dans un champ je pose une question de début et de fin de sélection et on me retourne donc un J29 et un J158 par exemple.
J'aimerai pouvoir faire un programme qui se repporte à l'ensemble des cellules comprises entre J29 et J158 (qui sont des infos variables) pour en calculer par exemple la somme ou des opérations basiques.
Pouvez vous m'aider?
Merci

7 réponses

  1. Contributeur
    Salut,

    J'ai pas bien saisi, tes valeurs (J29 et J158) sont stockées ds des variables ou des cellules ?

    A+
    1. mes valeurs de début (J93) et fin (J158) sont stockées dans des cellules et elles sont elles-même des n° de cellules.
      Je veux pouvoir créer une procédure qui récupère ces deux valeurs pour calculer la somme de J93 à J158.
      Merci pour ton mess.
  2. dim truc as double
    dim machin as double
    Dim gg As Variant
    Range("j29:j158").Select
    for each gg in selection
    truc=truc+gg.value
    machin=machin+(1/gg.value)
    next
    1. Salut, merci pour la procédure !
      Par contre g un doute sur le fait de rentrer Range("j29:j158") car mon j29 et mon j158 sont des cellules qui correspondent à la réponse à une question et donc la réponse peut être variable.
      Il faudrait que le programme tourne à partir des valeurs inscrites dans les cellules correspondant à l'endroit ou l'on répond à la question
      1. Contributeur
        Salut,

        En supposant que tes valeurs soient en A1 et A2 (à remplacer) et que tu veuille faire ta somme en B1 (à remplacer) :
        Sub tomtom()
        Dim val1, val2
        val1 = Range("A1").Value
        val2 = Range("A2").Value
        Range("B1").Formula = "=SUM(" & val1 & ":" & val2 & ")"
        End Sub


        A+
        1. merci tompols!
          mais je ne peux pas executer la macro car il me met une "erreur de compilation dans:
          Range("B1").Formula = "=SUM(" & val1 & ":" & val2 & ")"
          au niveau de ":"
        2. il me dit erreur de compilation
          Attendu: fin d'instruction
        3. Toutes mes excuses champion ça marche super bien c moi qui suis un peu long à la détente!!
      2. Contributeur
        J'étais justement en train de tester.....
        Content que ça fonctionne :-)

        A+
        1. g encore une question...
          comment faire pour effectuer en C1 le produit de ma sélection (j29:j158) par les équivalents de la colonne suivante(k29:k158) et le tout divisé par mon résultat précédent (B1) ??