Discussion :

[undo74]

Bonjour a tous,

Pouvez-vous svp me dire comment simplifier le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
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 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
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 :

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

1
2
3
4
 
Set MaPlage = Range("d3:d6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 4).Formula = Maformule

Merci d'avance pour votre aide:confused:

[Igloobel]

Bonjour,
Es-tu obligé de faire une formule plutôt que mettre le résultat directement ?

Si tu n'es pas obligé alors oui ton code peut être beaucoup simplifié

A+

[undo74]

Bonjour Igloobel,

Avant merci pour ta réponse rapide
non je ne suis pas obligé d'avoir la formule dans le résultat les valeurs me suffisent.
mais je suis prôneur pour la solution avec la formule comme ça je pourrai adapté le code pour d'autres formules si besoin

Merci pour ton aide.
A+

[Theze]

Bonjour,

Bizarre ton code, tu boucles x fois et tout ça pour sommer B3:B6 et C3:C6 ? Tu demande l'argument Col dans ta fonction mais tu ne l'utilise pas ?
Ta macro peut alors se résumer à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub MacrT()
 
    With Sheets("Feuil1")
 
        .Cells(2, 2).Value = Application.Sum(.Range("b3:b6"))
        .Cells(2, 3).Value = Application.Sum(.Range("b3:b6"))
 
    End With
 
End Sub

Hervé.

[Igloobel]

Bonjour à tous

Bon, super THEZE, ton codes est concis, top, je

sinon moins concis mais peut-être plus proche de tes connaissances actuelles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro_Test1()
'Déclaration des variables
Dim Nom_feuil As String
Dim i As Long
Dim Coln As Long
Dim Lign As Long
Dim Cumul As Double
 
'initialisation des variables
Coln = 2
Cumul = 0
Nom_feuil = "Feuil1"
 
'Programmation
For Lign = 3 To ThisWorkbook.Worksheets(Nom_feuil).UsedRange.Rows.Count
    Cumul = Cumul + Cells(Lign, col).Value
Next
Cells(2, 2).Value = Cumul
End Sub

tu dis

... mais je suis prôneur pour la solution avec la formule comme ça je pourrai adapté le code pour d'autres formules si besoin ...

Je te déconseille de mettre des formules par code VBA c'est gourmand en temps d'éxécution et fait grossir le classeur surtout qu'il est pas difficile de boucler sur les colonnes en plus des lignes

A+