Bonjour et bonne année! ,
2 questions :
1)quel code , rajouté à celui-ci, ci dessous , me permettrait de revenir à l'état initial de la cellule , par autre double clic sur cette cellule?
2) quelle code me permettrait de sommer les valeurs des cellules de même couleur ?
fichier joint .
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le mode édition lié au double-clic
'récupère la couleur de la cellule en colonne A et la place dans la cellule double-cliquée
Target.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub
2 questions :
1)quel code , rajouté à celui-ci, ci dessous , me permettrait de revenir à l'état initial de la cellule , par autre double clic sur cette cellule?
2) quelle code me permettrait de sommer les valeurs des cellules de même couleur ?
fichier joint .
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'annule le mode édition lié au double-clic
'récupère la couleur de la cellule en colonne A et la place dans la cellule double-cliquée
Target.Interior.ColorIndex = Cells(Target.Row, 1).Interior.ColorIndex
End Sub