Bonjour,

Je souhaite réaliser la dérivée de toutes les colonnes contenant des valeurs de ma feuille ws3 sauf la colonne 3 sur une nouvelle feuille ws4. De plus la colonne A de la feuille ws3 sera recopiée à partir de la ligne 2 jusqu'à la dernière ligne -1 contenant des nombres.

formule pour la dérivée de la valeur B2 feuille 3 (renvoie la valeur en B1 feuille 4):

(B1 feuille 4)= [(B3 feuille 3) - (B1 feuille 3)]/[(A3 feuille 3)-(A1 feuille 3)]


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
ws1.Range("A:A").Copy ws4.Range("A:A")
'dérivée première de la feuille 3 pour renseigner la feuille 4
For Col = PremC1 To DerC1 - 2
    For Lig = PremL1 + 1 To DerL1 - 1
        ws4.Cells(Lig, Col + 1) = (ws3.Cells(Lig + 1, Col + 1) - ws3.Cells(Lig - 1, Col + 1)) / (ws3.Cells(Lig + 1, 1) - ws3.Cells(Lig - 1, 1))
    Next Lig
Next Col
Ce code fonctionne mais le problème est que mes cellules B1, C1, ... et BderL, CderL,... sont vides mais pas les cellules A1 et A derL.

Je souhaiterais donc que les valeurs A1 et AderL soient supprimées (uniquement sur la feuille 4) et que par conséquent les données qui s'inscrivent actuellement en A2, B2, C2 ... s'inscrivent en A1, B1, C1, ...

Comment dois je modifier mon code