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. 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
      2. 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