Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probleme Somme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Excelced
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

Excelced

Guest
Bonjour le Forum,

j'ai un soucis de rédaction pour réaliser une somme sur un nombre variable de cellule (toutes dans la même colonne)
Je n'arrive pas à écrire correctement la somme

voici ce que j'ai écrit

Code: 
Sub Sous_Totaux()
Dim i As Integer
Dim fin As Integer

fin = Range("L" & i).End(xlDown).Row

For i = 9 To 2000
    If Cells(i, 7) = "" Then
    Cells(i, 12) = sum(RC["&i&"]: RC["&fin&"])
    End If
Next i
End Sub

Merci pour votre aide
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Probleme Somme

Salut,

Sur ton exemple essai le code suivant :

Code: 
Sub ma_somme()
For i = 1 To Range("E65536").End(xlUp).Row
    If Cells(i, 5) <> "" Then
        Cells(i, 14).Select
        der_cellule = Range("G" & i + 1).End(xlDown).Row
        ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
    End If
Next i

End Sub

Cordialement

Suistrop
 
Vote positif 0 Vote négatif
Re : Probleme Somme

C'est moche mais ca marche 🙂
J'ai rajouter une condition lorsque qu'il n'y a qu'une seule ligne.
Code: 
Sub ma_somme()
For i = 1 To Range("E65536").End(xlUp).Row
    If Cells(i, 5) <> "" Then
        Cells(i, 14).Select
        der_cellule = Range("G" & i + 1).End(xlDown).Row
        If Cells(i + 2, 7) = "" Then der_cellule = i + 1
        ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
    End If
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : Probleme Somme

Génial, ça fonctionne bien.
merci à toi

est ce que tu sais si je peux mettre une formule qui fasse la somme de ces totaux automatiquement ?
du style "faire la somme des cellules contenant une formule"
 
Vote positif 0 Vote négatif
Re : Probleme Somme

J'ai essayé de modifier le code pour qu'il me fasse la même chose sur les 12 colonnes (de 12 à 24) mais ça ne fonctionne pas.
j'ai mis un For Next avec j comme numéro de colonne
je n'ai pas de message d'erreur mais il ne se passe rien

Code: 
Sub ma_somme()

For j = 12 To Range("Z8").End(xlToLeft).Column
    For i = 8 To Range("E65536").End(xlUp).Row
        If Cells(i, 5) <> "" Then
            Cells(i, j).Select
            der_cellule = Range("G" & i + 1).End(xlDown).Row
            If Cells(i + 2, 7) = "" Then der_cellule = i + 1
            ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
        End If
    Next i
Next j
End Sub
 
Vote positif 0 Vote négatif
Re : Probleme Somme

Salut,

Essai comme ceci :
j'ai mis de la colonne 11 à 17 dans la boucle de y tu peux modifier bien sur !
Code: 
Sub ma_somme()
For i = 1 To Range("E65536").End(xlUp).Row
    If Cells(i, 5) <> "" Then
        Cells(i, 14).Select
        der_cellule = Range("G" & i + 1).End(xlDown).Row
        If Cells(i + 2, 7) = "" Then der_cellule = i + 1
        For y = 11 To 17
            Cells(i, y).Select
            ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
        Next y
    End If
Next i
End Sub

(Ta méthode de mettre le for avant te fais perdre un peu de temps, car en faisant ca tu refais à chaque fois le calcul du nombe de ligne a additionner. Mettre le for ou je l'ai mis te permet de faire la somme de tout un bloc à la fois.Meme si au final ta méthode va fonctionner)



Cordialement

Suistrop
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
246
treza88
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
777
youguybass
Y
  • Question Question
XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?
Réponses
13
Affichages
528
anthoYS
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
793
lynyrd
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
371
Piment
P
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
528
patricko-13
P
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
576
crocrocro
C
B
  • Question Question
Autres Problème d'adaptation du contenu d'une listbox
Réponses
7
Affichages
555
jurassic pork
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
589
sylvanu
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
744
Piment
P
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
568
mikeduff
M
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
Fisher-yates KO en vba
2 3 4
Réponses
45
Affichages
1 K
bsalv
B
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
646
job75
J
  • Résolu(e)
XL 2021 Filtre combobox
Réponses
5
Affichages
418
Dranreb
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…