Application.sum en VBA [Fermé]
Signaler
belba.yahya
belba.yahya
- Messages postés
- 112
- Date d'inscription
- mercredi 2 janvier 2019
- Statut
- Membre
- Dernière intervention
- 5 août 2020
belba.yahya
- Messages postés
- 112
- Date d'inscription
- mercredi 2 janvier 2019
- Statut
- Membre
- Dernière intervention
- 5 août 2020
1 réponse
M-12
- Messages postés
- 974
- Date d'inscription
- lundi 22 septembre 2008
- Statut
- Membre
- Dernière intervention
- 6 janvier 2021
Bonsoir,
Au plus simple
Au plus simple
Sub cal() With ActiveSheet .Range("A35").Value = "TOTAL:" .Range("G35:R35").Select Selection.FormulaR1C1 = "=SUM(R[-28]C:R[-1]C)" .Range("L6:L34").Select Selection.FormulaR1C1 = "=SUM(RC[-6]:RC[-1])" End With Range("C5").Select End Sub
ça fonctionne très bien
merci beaucoup