Comment noircir une cellule avec macros excel

Résolu
Bonjour, je souhaite que n'importe quelles cellules dans excel ce noircisent d'un seul ou d'un double click en utilisant une macros. pouvez vous m'aider merci.
Configuration: Windows XP media center
Internet Explorer 6.0

4 réponses

  1. bonjour ,
    je pense que cette adaptation devrait aller:
    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    IF Target.value= "x" Then
    Target.value=""
    else
    Target.value = "x"
    end if
    End Sub
    1. Super ça fonctionne nickel.
      Merci beaucoup
  2. Contributeur
    Bonjour,

    Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    IF Target.Interior.ColorIndex = 1 Then
    Target.Interior.ColorIndex=-4142
    else
    Target.Interior.ColorIndex = 1
    end if
    End Sub
    1. Bonjour, merci de l'astuce pour noircir la case et l'enlever. Avez-vous un équivalent pour marquer la case de la lettre X et de l'enlever au prochain double clic ?

      Merci
  3. merci sa marche mais je voudrais que lorsque je re-double click sur la cellule noir quelle redevienne blanche.
    merci de ton aide.
    1. Contributeur
      Bonjour,

      cette macro sur un double-clic est à copier dans le moduke Thisworkbook

      Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
      Target.Interior.ColorIndex = 1
      End Sub

      Pour aller dans VBA: Alt=F11
      Pour montrer l'explorateur de projets:Ctrl+R
      double-clic sur thisworkbook

      Bonne soirée