Rapport de message :*
 

Re: feuille de métré

Titre du sujet : Re: feuille de métré
par celysi le 07/01/2010 22:02:06

Bonsoir le Forum, Bonsoir Guy

Je vous remercie beaucoup, c' est exactement ce que je veux, je m' explique vite fais, l' autre méthode est bien, mais quand je veux récupérer une valeur calculée dans une autre cellule avec lien si elle est modifiée, je suis obligé de mettre la référence et donc quand j' imprime j' ai un "F15" qui se promène ce qui n' a pas de sens.

J' ai analysé le code, j' ai compris le sens mais je n' ai pas saisi toute l' imbrication, aussi je suis incapable de modifier 2 choses :
- 1ere chose :
Case 2
      ' $E11*($F11-$H11-$J11-$L11)
      For I = 0 To 3
        Par = Par - Cells(Index, (2 * I) + 6)
      Next
     
      F = Cells(Index, 5) * Par

Ne fonctionne pas car le 1er Par soit F11 est négatif et donc fausse le résultat, en écrivant, je pense à cette solution, est-elle bonne ?

Case 2
      ' $E11*($F11-$H11-$J11-$L11)
  Par=Cells(Index,8)
      For I = 1 To 3
        Par = Par - Cells(Index, (2 * I) + 6)
      Next
     
      F = Cells(Index, 5) * Par

2eme chose

Case 3
      ' $E11*$F11*$H11*$J11*$L11)
      Par = 1
      For I = 0 To 3
        Par = Par * Cells(Index, (2 * I) + 6)
      Next
     
      F = Cells(Index, 5) * Par

Pour cette formule je suis confronter au problème que si ma dernière et avant dernière valeur n' est pas <> de 0 j' ai une résultat nul

J' avais pensé à ce type de formule : si($L11<>0;$E11*$F11*$H11*$J11*$L11;si($J11<>0;$E11*$F11*$H11*$J11;$E11*$F11*$H11))
Comment l' inscrire dans le code?

Quelques précisions pour apprendre :

Dim Par As Long  
  Dim I As Long
   
  Select Case Op
Par et I sont 2 noms de variables que vous avez choisis ,
A quoi ait référence Op?
Quand est ce que dans le code il est noté que quand j' écris un + dans la colonne 2 c' est Case 1 qui doit calculer?

Encore merci pour votre précieuse aide

Cordialement

Celysi