Bonjour, le Forum, bonjour Guy

Merci beaucoup, c'est exactement ce que je souhaite, même pour le formule  Multiplier
Sans la présence du forum et ton aide je n' y serais pas arrivé.
Je vais pouvoir mettre ma feuille en place et faire mon devoir
Cela me donne vraiment envie de me former en VBA, mais seulement quand j' aurai fini mes études (je travaille la journée et étudie le soir et WE + la vie de famille)
Je sais que la feuille n' est pas finie, il y a encore au moins une chose que je veux rajouter, mais je peux bien travailler déjà, je reviendrais plus tard si je n' y arrive pas.

Cordialement

Bon Week-end sous la neige ppour ceux qui en ont

Celysi

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

Bonsoir,

Ne peut-on pas en gardant la mise en page actuelle travailler avec des macros? Faire prendre les données et selon le code choisi lui faire afficher le résultat dans la cellule choisi?
En remplacement des formules?

Cordialement

Celysi

Bonsoir Guy,

Oui, j' ai posé la question sur un autre forum, je pensais avoir des réponses différentes, parce que les personnes sont différentes, afin de me permettre de progresser dans la connaissance d' Excel qui est un logiciel que j' aime beaucoup, mais j' ai du mal à rentrer dans la programmation VBA, malgrés l' aide de livres.
Voilà la raison, il n' y pas d' autres raisons.

Cordialement

Celysi

J' ai oublié la pièce jointe que voici

Bonjour le forum et meilleur voeux à tous

J' essaye de créer une feuille de métré (Bâtiment)avec excel pour ma formation,mais ne connaissant pas grand chose d' excel, je bute.
Je vous joins donc le classeur avec quelques explications dessus
- la formule que je dois utiliser à trop d' éléments à prendre en compte
et est-il possible de simplifier avec des macros à la place des formules, je n' arrive pas à trouver ce qui est le mieux.

Merci si vous pouvez m' aider.

Cordialement