Couleur cellule double click par ligne

Bonjour,

Je souhaiterais colorer les cellules de mon tableau en double cliquant et les décolérer si je double clique à nouveau.

Petite difficulté supplémentaire... En plus de cela, je souhaiterais attribuer la couleur bleue claire aux cellules de la ligne 4; Rouge pâle aux cellule de la ligne 5 et Jaune pâle aux cellule de la ligne 6. cf piece jointe

Pouvez m'aider s'il vous plait!

Je suis dessus depuis ce matin.

Un GRAND MERCI

Bonjour,

A mettre dans le module de la feuille concernée (Feuil1) :

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

    If Intersect(Target, Range("A4:I6")) Is Nothing Then Exit Sub

    With Range("A" & Target.Row & ":I" & Target.Row).Interior

        Select Case Target.Interior.ColorIndex

            Case -4142: .ColorIndex = Choose(Target.Row - 3, 37, 3, 36)
            Case Else: .ColorIndex = -4142

        End Select

    End With

    Cancel = True

End Sub

C'est très gentil d'avoir pris le temps de me répondre!

Lorsque je clique sur une cellule de la ligne de la ligne 4. C'est toute la ligne qui se colore en bleu (et ça vaut pour les 2 autres lignes)

C'est possible d'ajuster la formule de telle sorte à ce ce soit effectif cellule par cellule.

Sinon tout le reste est ok!

Encore merci, vous me sauvez!

Bonjour,

Voilà :

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

    If Intersect(Target, Range("A4:I6")) Is Nothing Then Exit Sub

    With Target.Interior

        Select Case .ColorIndex

            Case -4142: .ColorIndex = Choose(Target.Row - 3, 37, 3, 36)
            Case Else: .ColorIndex = -4142

        End Select

    End With

    Cancel = True

End Sub

Bonjour Theze,

Vous m'avez rendu un très grand service! Je vous en remercie!!!!

C'est ce que je voulais!

Néanmoins, je constate que l'information serait mieux mise en évidence si le texte ressortait en GRAS.

Est ce possible d'ajouter dans le code cette caractéristique? (Tout en conservant ce qui a été fait précédemment)

==> lorsque je double clique sur une cellule, celle ci se colore et le texte devient gras.

Hyam

Et avec une taille de fonte augmentée !

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

    If Intersect(Target, Range("A4:I6")) Is Nothing Then Exit Sub

    With Target

        Select Case .Interior.ColorIndex

            Case -4142
                .Interior.ColorIndex = Choose(Target.Row - 3, 37, 3, 36)
                .Font.Bold = True
                .Font.Size = 15

            Case Else
                .Interior.ColorIndex = -4142
                .Font.Bold = False
                .Font.Size = 11

        End Select

    End With

    Cancel = True

End Sub

MERCI pour TOUT!!!!