une petit macro simple je pense

[grandpa006]

Changer la couleur de la cellule lors d'un clic de souris

Bonjour,
Je désire faire une chose assez simple mais après quelques test c'est pas très concluant.
J'ai 4 colonnes et dans chacune 4 niveau

Petit, moyen, grand, tres grand

Je voudrais lorsque je clique sur moyen par exemple que la cellule devienne automatiquement rouge ou que le texte devienne gras. (eventuellement un clique droit si le clic gauche pose probleme)
Ensuite si je clique sur Grand sur la meme ligne que ce soit grand qui passe en gras ou que sa cellule devienne rouge.

Si vous avez la soluce je vous remercie beaucoup par avance. Ayant tester quelques script cela n'a pas été très concluant ...

Merciiiiiiiii

 

[grandpa006]

j'ai avancé mais c'est pas encore bon

Re, help

voila un bout de code que j'ai trouvé et qui marche presque :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
If Not Intersect(Target, [B9:E26]) Is Nothing Then
Cancel = True
    With Target
        If .Count = 1 And Not IsEmpty(.Value) Then
        Set r = Range(Cells(.Row, 2), Cells(.Row, 5))
        If r.Interior.ColorIndex = 3 Then
        r.Interior.ColorIndex = 4
        Else
        r.Interior.ColorIndex = 3
        End If
        End If
    End With
End If
Set r = Nothing
End Sub

 

[Efgé]

Re : une petit macro simple je pense

Bonjour
Sans fichier exemple difficile de répondre, mais peut être avec ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
If Not Intersect(Target, [B9:E26]) Is Nothing Then
Cancel = True
    With Target
        If .Count = 1 And Not IsEmpty(.Value) Then
           Set r = Range(Cells(.Row, 2), Cells(.Row, 5))
                If r.Interior.ColorIndex = xlNone Then
                      r.Interior.ColorIndex = 3
                Else
                      r.Interior.ColorIndex = xlNone
                End If
       End If
    End With
End If
Set r = Nothing
End Sub

Cordialement