Noircir une colonne excel d'un double clic

Résolu/Fermé

Noodlesnood Messages postés 33 Date d'inscription mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 - 19 janv. 2007 à 11:43
Utilisateur anonyme - 25 janv. 2007 à 00:33

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

A voir également:

Noircir une colonne excel d'un double clic
Double ecran - Guide
Déplacer une colonne excel - Guide
Whatsapp double sim - Guide
Liste déroulante excel - Guide
Additionner colonne excel - Guide

3 réponses

Réponse 1 / 3

Utilisateur anonyme
19 janv. 2007 à 18:00

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

Réponse 2 / 3

Noodlesnood Messages postés 33 Date d'inscription mercredi 17 janvier 2007 Statut Membre Dernière intervention 10 octobre 2008 2
22 janv. 2007 à 10:06

Merci Lupin ça marche mais le EntireColumn n'était pas nécessaire ;)

Edit : je voulais dire cellule dans le sujet et non colonne

Réponse 3 / 3

Utilisateur anonyme
25 janv. 2007 à 00:33

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

Discussions similaires

colonne A disparue tableur excel

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters