Bonjour a tous,
Pouvez-vous svp me dire comment simplifier le code ci-dessous :
L'objectif c'est que la col3 soit remplie automatiquement comme les deux colonnes col1 et col2 et que "E2" reste vide si pas de valeurs sous les lignes de lign2 à lign5.
Je ne souhaite pas modifier a chaque nouvelle colonne mettre le code ci-dessous :
Merci d'avance pour votre aide
Pouvez-vous svp me dire comment simplifier le code ci-dessous :
Code:
Sub MacrT()
Sheets("Feuil1").Select
'Initialisation de la boucle
Dim i As Integer
i = 1
'Boucle la colonne 1
Do While (Cells(1, i).Value <> "")
FonctCalSom (i)
i = i + 2
Loop
End Sub
Code:
Sub FonctCalSom(ByVal col As Integer)
'Initialisation de la boucle
Dim i As Integer
i = 2
'Boucle sur la liste de cellule
Do While (Cells(i, 1).Value <> "")
If Cells(i, 1).Value <> "" Then
Set MaPlage = Range("b3:b6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 2).Formula = Maformule
Set MaPlage = Range("c3:c6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 3).Formula = Maformule
Else
Cells(i, 2).Value = ""
End If
i = i + 1
Loop
End Sub
L'objectif c'est que la col3 soit remplie automatiquement comme les deux colonnes col1 et col2 et que "E2" reste vide si pas de valeurs sous les lignes de lign2 à lign5.
Je ne souhaite pas modifier a chaque nouvelle colonne mettre le code ci-dessous :
Code:
Set MaPlage = Range("d3:d6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 4).Formula = Maformule
Merci d'avance pour votre aide
Pièces jointes
Dernière édition: