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
A voir également:
- Additionner cellules de couleur double clic
- Double ecran - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Whatsapp double sim - Guide
- Excel cellule couleur si condition texte - Guide
- Double driver - Télécharger - Pilotes & Matériel
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
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
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
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