Comment noircir une cellule avec macros excel

Résolu
shadows-rider Messages postés 48 Statut Membre -  
 Phifi91 -
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. pou pouille Messages postés 212 Statut Membre 31
     
    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. Phifi91
       
      Super ça fonctionne nickel.
      Merci beaucoup
      0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  3. shadows-rider Messages postés 48 Statut Membre 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
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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. Phifi91
       
      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