Copie de formule

A

Amo

Guest
Bonjour à tous,
je vous ai joins un fichier dans lequel se trouve un tableau.
Je cherche une macro permettant de remplir les formules des colonnes C et D pour qu'elles se répercutent que dans les ligne remplie du tableau. Mon but est de gagner de la place...
Je vous remercie d'avance
Amo. [file name=copieformule.zip size=7840]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/copieformule.zip[/file]
 

Pièces jointes

  • copieformule.zip
    7.7 KB · Affichages: 16

Law

XLDnaute Junior
Bonjour Amo, bonjour le forum,

Voici le code à saisir dans ton module :

Sub Calcul()

Dim Z As Integer, A As Integer
Dim B As Variant

Z = Sheets(1).Range('A65000').End(xlUp).Row

With Sheets(1)
For A = 5 To Z
B = .Cells(A, 2).Value
If B <> '' Then
.Cells(A, 3).Value = B / 8 * 5
.Cells(A, 4).Value = .Cells(A, 2).Value + .Cells(A, 3).Value
End If
Next A
End With

End Sub


Bonne journée,
Ciao ciao ;)
 

Discussions similaires

Réponses
15
Affichages
902
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 841
Messages
2 092 708
Membres
105 514
dernier inscrit
Hébera