bonjour je me permets d'ecrire un second message car mon precedent n'est pas clair.
j'ai ca :
mais l'affichage de la somme en bas ne fonctionne pas.
Une idee ? c'est l'avant-derniere ligne qui foire..
Merci !
Message édité par: pdeburaux, à: 20/06/2005 10:27
j'ai ca :
Code:
Sub launch()
Dim k As Integer, i As Integer, ligne As Integer
Sheet5.Range('B6').Value = Sheet3.Range('N6').Value
Sheet5.Range('C6').Value = Sheet3.Range('O6').Value
k = 7
'Boucle de recuperation des descriptions et des montants
For i = 7 To 2684
If Sheet3.Range('P' & i).Value = Sheet5.Range('C2').Value Then
Sheet5.Range('B' & k).Value = Sheet3.Range('N' & i)
Sheet5.Range('C' & k).Value = Sheet3.Range('O' & i)
k = k + 1
End If
Next
'Ajout de la somme en bas de tableau
Range('B65536').End(xlUp).Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Value = 'TOTAL VALUE'
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = '=SUM(R[-2]C:c7)'
Range('C2')Select
End Sub
mais l'affichage de la somme en bas ne fonctionne pas.
Une idee ? c'est l'avant-derniere ligne qui foire..
Merci !
Message édité par: pdeburaux, à: 20/06/2005 10:27