Discussion :

[arnold95]

Bonjour à tous,
J'ai une petite question en fait j'ai fouiné un peu partout et je n'ai pas trouvé de réponse qui convenait à mon cas, j'en suis sur que c'est un truc simple mais j'ai essayé pls choses et ça ne marche pas.
Mon code est le suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub somme()
Worksheets("feuille1").Select
Dim k As Integer
Dim l As Integer
k = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
l = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
Worksheets("feuille2).Select
Worksheets("feuille2").Cells(1, 1).Formula = "=Sum(feuille1!A1:C1)"
Range("A1").Select
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(k, 1)), Type:=xlFillDefault
Range(Cells(1, 1), Cells(k, 1)).Select
End Sub

En fait ce que je voudrais c'est non pas avoir C1 mais un truc du genre cells(1,l) de manière à ce que la celulle dépende du l calculé précédemment. Merci par avcance de votre aide.@+

[arnold95]

Bon voici une réponse assez simple et oui je fais les questions et les reponses.lol

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub somme()
Dim k As Integer
Dim l As Integer
Dim rg As Object
Dim i As Integer
k = Sheets("feuil2").Cells.SpecialCells(xlCellTypeLastCell).Row
l = Sheets("feuil2").Cells.SpecialCells(xlCellTypeLastCell).Column
For i = 1 To k
Set rg = Range(Cells(i, 1), Cells(i, l))
Worksheets("feuil1").Cells(i, 1).Formula = "=SUM(feuil2!" & rg.AddressLocal & " )"
Next i
end sub