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
    0
    1. Super ça fonctionne nickel.
      Merci beaucoup
      0
  2. 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
    -1
    1. merci sa marche mais je voudrais que lorsque je re-double click sur la cellule noir quelle redevienne blanche.
      merci de ton aide.
      -1
      1. 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
        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
          0