Discussion :

[Malick]

Je crée une feuille RECAP-VNA via ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Recap()
Dim i As Integer
Dim Feuille As Worksheet
  Set Feuille = Sheets.Add(After:=Sheets(Sheets.Count))
        Feuille.Name = "RECAP-VNC"
    ActiveSheet.Range("D5").Select
    For i = 3 To Sheets.Count
        ActiveCell.Value = Sheets(i).Name
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

Maintenant, au niveau du tableau, sous le titre VNC, je souhaite récupérer pour chaque feuille, le cumul de la colonne i.

Une idée s'il vous plaît ?

[Marc-L]

Bonjour,

comme c'est déjà réalisable via une simple formule de feuille de calculs d'Excel (SOMME) donc automatisable en VBA …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Malick]

Bonjour Marc,

Oui, mais comment intégrer cela dans le code que j'ai déjà ?

Merci de ton aide

Cordialement

[Marc-L]

Indique nous déjà la formule fonctionnant pour la cellule E5 par exemple …

Après c'est tellement simple pour l'automatiser !

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Recap()
Dim i As Integer
Dim Feuille As Worksheet
With Sheets.Add(After:=Sheets(Sheets.Count))
        .Name = "RECAP-VNC"
    For i = 3 To Sheets.Count
        .Range("D2").Offset(i).Value = Sheets(i).Name
        .Range("D2").Offset(i, 1).Value = Evaluate("sum('" & Sheets(i).Name & "'!" & Sheets(i).Range("I:I").Address & ")")
    Next i
    End With
End Sub

[Malick]

Bonjour,
@Marc : merci pour tes réponses.

@ dysorthographie : merci beaucoup, c'est exactement ce que je souhaite.

à tous

Bon après-midi