SUM avec nbre de colonnes variableRésolu

Question

Bonjour, 
Une nouvelle 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.

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.@+

arnaud95000 · Accepted Answer

Bon voici une réponse assez simple.



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 





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("feuil2").Cells(i, 1).Formula = "=SUM(feuil1!" & rg.AddressLocal & " )"





Next i





end sub

cs_etniqs · Answer

Pour décaler les références des cellules avec une base fixe , utilise offset(), l'équivalent de décaler() sous excel

range("base").offset(3,2)

ex : tu pointes donc la cellule décalée de 3 lignes et 2 colonnes (dans le sens excel) par rapport à la cellule référencée "base"

arnaud95000 · Answer

J'ai testé avec offset() et j'ai toujours un souci, en fait je pense qu'il existe un moyen de remplacer la forme range comme je l'ai fait ds la macro...("=Sum(feuille1!A1:C1)") par une forme sous cells et de cette maniere avoir un truc du genrec range(cells(1,1),cells(1,l))

cs_MPi · Answer

Essaie ceci pour voir et dis-moi si ça ressemble à ce que tu cherches

Sub FormuleAddition()
    Dim nbLignes As Long
    
    nbLignes = Sheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row
    
    Sheets("Feuil2").Range("A1:A" & nbLignes).Formula = "=SUM(Feuil1!A1:C1)"
End Sub

Si tu as des entêtes sur la première ligne, tu pourrais changer pour
Sheets("Feuil2").Range("A2:A" & nbLignes).Formula = "=SUM(Feuil1!A2:C2)"

MPi

SUM avec nbre de colonnes variable

4 réponses

Votre réponse

Discussions similaires