[VB sur exel]

frederic R -  
tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   -
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. tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    Salut,

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

    A+
    0
    1. RIEUSSET
       
      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.
      0
  2. random
     
    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
    0
  3. frederic R
     
    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
    0
  4. tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    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+
    0
    1. frederic R
       
      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 ":"
      0
    2. frederic R
       
      il me dit erreur de compilation
      Attendu: fin d'instruction
      0
    3. frederic R
       
      Toutes mes excuses champion ça marche super bien c moi qui suis un peu long à la détente!!
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    J'étais justement en train de tester.....
    Content que ça fonctionne :-)

    A+
    0
    1. frederic R
       
      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) ??
      0
  7. random Messages postés 1612 Statut Membre 155
     
    sommeprod...
    0