Additionner cellules de couleur double clic
Résolu
boomer
-
boomer -
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
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
-
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 -
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
