Additionner cellules de couleur double clic

[Résolu/Fermé]
Signaler
-
 boomer -
Bonjour,

Je souhaiterais savoir comment adapter ma macro pour additionner et soustraire les valeurs des cellules que je colore par un double clic
J'ai essayé cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Col As Integer
Dim Lig As Integer
Dim TotalSomme As Single 'Ou Currency

For Col = 4 To 17
For Lig = 5 To 30
With Cells(Lig, Col)
If .Interior.ColorIndex = 40 And IsNumeric(.Value) Then
TotalSomme = TotalSomme + .Value
End If
End With
Next Lig
Next Col

Range("D4").Value = TotalSomme


If Not Application.Intersect(Target, Range("A1:BW100")) Is Nothing Then
If ActiveCell.Interior.ColorIndex = 40 Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 40
End If
End If
Cancel = True
End Sub

Le problème est qu'il y a toujours un décalage dans l'addition

Est ce que quelqu'un aurait une idée
Merci


5 réponses

Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
Bonjour boomer

Est ce que des cellules sont coloriées avant de faire un double clic ?
(Donc avant de faire la somme.)
SVP

Iama
les cellules se colorient grace au double clic et me calcul la somme des valeurs mais mon resultat est en decalge d'un double clic avec la macro existante

exemple: double clic sur prix 1 , le resultat est 0
double clic sur prix 2 , le resultat est le prix 1
double clic sur prix 3, le resultat est la somme du prix 1 et 2
Alors j'aimerais que le resultat affiche la somme des 3 prix
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
14
boomer

En regardant ta macro je pense que tu fais l'addition et après tu change la couleur.
Tu as une condtion "couleur" pour réaliser l'addition, elle se fait après.

Tient moi au courant.

Iama
ok j'essaie de corriger

Merci
C 'est ok , j'ai trouvé d'où venait mon erreur!!
ça venait de la macro qui ne prenait pas en compte les lignes et colonnes que je voulais .
j'ai du en rajouter pour que ça marche.

Merci Iama d'avoir répondu