Noircir une colonne excel d'un double clic

Résolu
Noodlesnood Messages postés 33 Statut Membre -  
 Utilisateur anonyme -
Comment procéder? Je ne trouve pas la macro VBA correspondante, j'ai essayé :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If ActiveCell.FillUp = vbWhite Then

ActiveCell.FillUp = vbBlack
ElseIf ActiveCell.FillUp = vbBlack Then

ActiveCell.FillUp = vbWhite
End If
Cancel = True
End Sub
Configuration: Windows XP
Firefox 2.0.0.1

3 réponses

  1. Utilisateur anonyme
     
    Bonjour,

    suggestion: 

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    On Error Resume Next
    If Target.Interior.Color = vbWhite Then
        Target.EntireColumn.Interior.Color = vbBlack
    Else
        If Target.Interior.Color = vbBlack Then
            Target.EntireColumn.Interior.Color = vbWhite
        End If
    End If

End Sub
'


    Lupin
    0
  2. Noodlesnood Messages postés 33 Statut Membre 2
     
    Merci Lupin ça marche mais le EntireColumn n'était pas nécessaire ;)

    Edit : je voulais dire cellule dans le sujet et non colonne
    0
  3. Utilisateur anonyme
     
    de rien :-)

    peut-être cette version peut aussi t'inspirer ? 

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    On Error Resume Next
    
    If (Target.Interior.Color = vbWhite) Then
        Target.Interior.Color = vbBlack
    Else
        If Target.Interior.Color = vbBlack Then
            Target.ClearFormats
        End If
    End If

End Sub
'


    Lupin
    0