Sum total vba

Fermé

belba.yahya Messages postés 110 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020 - 21 avril 2020 à 03:37
belba.yahya Messages postés 110 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020 - 21 avril 2020 à 15:27

Bonjour avez vous une idée sur ce code suivant:
Sub Calculate()
Dim S As Long
With Sheets("Plan")
S = Application.WorksheetFunction.Sum(.Range("D5:AH5"))
.Range("AI5").Value = S
End With
End Sub

ceci à bien fonction pour cellule ("AI5")=("D5:AH5")
mais si je veux réaliser même chose pour ("AI6") = ("D6:AH6") ,jusqu'a ("AI20")
est ce possible d'avoir une variable pour ceci

A voir également:

Sum total vba
Total uninstall - Télécharger - Divers Utilitaires
Formule total excel - Guide
Total-av.com ✓ - Forum Consommation & Internet
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
Incompatibilité de type vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 283
21 avril 2020 à 06:46

Bonjour,
Teste comme ceci

Sub Calculate()
  Dim S As Long, i%
  With Sheets("Plan")
    For i = 5 To 20
      S = Application.WorksheetFunction.Sum(.Range(Cells(i, "D"), Cells(i, "AH")))
      .Range("AI" & i).Value = S
    Next i
  End With
End Sub

Réponse 2 / 2

belba.yahya Messages postés 110 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020
21 avril 2020 à 15:27

Bonjour
merci infiniment votre code,fonctionne très bien.

Discussions similaires

Total AdBlock

stop à total Adblock !!!!

"L'indice n'appartient à la sélection" + VBA

Calcul des ventes par mois d'un produit

Supprimer Total Adblock