Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème pour effectuer une somme

Problème pour effectuer une somme

6 réponses
Avatar
RC
Bonjour à tous!!!
Voilà, j'ai un classeur excel organisé comme suit : 1 feuille par mois de
l'année et une feuille de synthèse finale. Cette dernière intègre une macro
qui va me compter le nombre de cellule hachurées dans un tableau (D5:I119)
chaque mois. Voici cette macro:

Private Sub Worksheet_Activate()
Dim Sh As Worksheet
x = 0: y = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each C In Sh.Range("D5:I119")
If C.Interior.ColorIndex = xlNone And C.Value = "" Then x = x + 1
Next
End If
Cells(34, y + 3) = x / 2
x = 0: y = y + 1
Next
End Sub

Le problème est qu'a la fin de la ligne 34 où sont inscrits les résultats,
il y a une somme qui doit être effectuer pour compter le total de ces
cellules à l'année. Et surprise, il me met 0... et j'ai beau remettre la
formule, quand je r'ouvre le classeur il me remet 0
Quelqu'un aurait-il une idée?...

Merci d'avance.. ;-)
RC
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
La macro fonctionne correctement. Quelle est ta formule ?
Cordialement.
Daniel
"RC" a écrit dans le message de news:

Bonjour à tous!!!
Voilà, j'ai un classeur excel organisé comme suit : 1 feuille par mois de
l'année et une feuille de synthèse finale. Cette dernière intègre une
macro
qui va me compter le nombre de cellule hachurées dans un tableau (D5:I119)
chaque mois. Voici cette macro:

Private Sub Worksheet_Activate()
Dim Sh As Worksheet
x = 0: y = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each C In Sh.Range("D5:I119")
If C.Interior.ColorIndex = xlNone And C.Value = "" Then x = x + 1
Next
End If
Cells(34, y + 3) = x / 2
x = 0: y = y + 1
Next
End Sub

Le problème est qu'a la fin de la ligne 34 où sont inscrits les résultats,
il y a une somme qui doit être effectuer pour compter le total de ces
cellules à l'année. Et surprise, il me met 0... et j'ai beau remettre la
formule, quand je r'ouvre le classeur il me remet 0
Quelqu'un aurait-il une idée?...

Merci d'avance.. ;-)
RC




Avatar
RC
Salu daniel...
voici la formule de somme en cellule N34
=SOMME(B34:M34)

Elle fonctionne, mais quand je ferme et je r'ouvre le classeur, il l'enlève
et il me met 0.
Merci a toi
RC

"Daniel" a écrit dans le message de
news:
Bonjour.
La macro fonctionne correctement. Quelle est ta formule ?
Cordialement.
Daniel
"RC" a écrit dans le message de news:

Bonjour à tous!!!
Voilà, j'ai un classeur excel organisé comme suit : 1 feuille par mois
de


l'année et une feuille de synthèse finale. Cette dernière intègre une
macro
qui va me compter le nombre de cellule hachurées dans un tableau
(D5:I119)


chaque mois. Voici cette macro:

Private Sub Worksheet_Activate()
Dim Sh As Worksheet
x = 0: y = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each C In Sh.Range("D5:I119")
If C.Interior.ColorIndex = xlNone And C.Value = "" Then x = x + 1
Next
End If
Cells(34, y + 3) = x / 2
x = 0: y = y + 1
Next
End Sub

Le problème est qu'a la fin de la ligne 34 où sont inscrits les
résultats,


il y a une somme qui doit être effectuer pour compter le total de ces
cellules à l'année. Et surprise, il me met 0... et j'ai beau remettre la
formule, quand je r'ouvre le classeur il me remet 0
Quelqu'un aurait-il une idée?...

Merci d'avance.. ;-)
RC








Avatar
Daniel
Vérifie que tu es bien en mode "calcul automatique" (Outils / Options /
Onglet "Calcul"), ou qu'une macro ne vient pas interférer.
Daniel
"RC" a écrit dans le message de news:

Salu daniel...
voici la formule de somme en cellule N34
=SOMME(B34:M34)

Elle fonctionne, mais quand je ferme et je r'ouvre le classeur, il
l'enlève
et il me met 0.
Merci a toi
RC

"Daniel" a écrit dans le message de
news:
Bonjour.
La macro fonctionne correctement. Quelle est ta formule ?
Cordialement.
Daniel
"RC" a écrit dans le message de news:

Bonjour à tous!!!
Voilà, j'ai un classeur excel organisé comme suit : 1 feuille par mois
de


l'année et une feuille de synthèse finale. Cette dernière intègre une
macro
qui va me compter le nombre de cellule hachurées dans un tableau
(D5:I119)


chaque mois. Voici cette macro:

Private Sub Worksheet_Activate()
Dim Sh As Worksheet
x = 0: y = 2
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> ActiveSheet.Name Then
For Each C In Sh.Range("D5:I119")
If C.Interior.ColorIndex = xlNone And C.Value = "" Then x = x + 1
Next
End If
Cells(34, y + 3) = x / 2
x = 0: y = y + 1
Next
End Sub

Le problème est qu'a la fin de la ligne 34 où sont inscrits les
résultats,


il y a une somme qui doit être effectuer pour compter le total de ces
cellules à l'année. Et surprise, il me met 0... et j'ai beau remettre
la
formule, quand je r'ouvre le classeur il me remet 0
Quelqu'un aurait-il une idée?...

Merci d'avance.. ;-)
RC












Avatar
RC
OK...
J'ai compris pourquoi ça marche pas...
Lorsqu'il fait le test pour chaque feuille, il doit surement tester
également la dernière (de synthèse), et du coup il vire la formule..
ça se tient?
car je suis bien en calcul auto, sinon je vois pas..
Avatar
Daniel
C'est bien possible, suivant ton nombre de feuilles. Avant End Sub, tu peux
ajouter :
Cells(34, y + 4) = Application.Sum(Range(Cells(34, 5), Cells(34, y + 3)))
Daniel
"RC" a écrit dans le message de news:
%231jW1A%
OK...
J'ai compris pourquoi ça marche pas...
Lorsqu'il fait le test pour chaque feuille, il doit surement tester
également la dernière (de synthèse), et du coup il vire la formule..
ça se tient?
car je suis bien en calcul auto, sinon je vois pas..




Avatar
RC
ça y est daniel!!!!
mission accomplie... j'ai arrangé ta formule à ma sauce.. et ça marche
nikel!!!

Merci encore pour tout.. car ce n'est pas la première fois que je peux
compter sur toi..;-)
De la balle... atomique...

RC