Cellule noire...

[WEIDER]

Bonjour à tous,

Pouvez vous m'aider à solutionner ma demande, personnellement je n'y arrive pas.
Tout est dit dans mon fichier joint.

Merci beaucoup

Weider.

 

[Pierrot93]

Re : Cellule noire...

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée, click droit sur l'onglet => visualiser le code.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .Count = 1 Then
        With .Interior
            .ColorIndex = IIf(.ColorIndex = 1, 0, 1)
        End With
    End If
End With
End Sub

bon après midi
@+

 

[WEIDER]

Re : Cellule noire...

Merci beaucoup Pierrot ! C'est exactement ça !
Par contre pourquoi ça me mets toujours cette fenêtre à chaque sauvegarde ?! Comment ne plus l'avoir ?