Coloration d'une cellule en VBA

Bonjour,

J'ai récupéré ce code qui permet de mettre une cellule en verte si on double clique dessus.

Ma question est de savoir, comment peut-on remplacer par une croix, si on clique sur une cellule ?

En vous remerciant de votre aide.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Sh.Name = "Feuil1" Then

        Target.Interior.Color = RGB(136, 255, 0) 'Couleur verte
    End If
End Sub

Bonjour

essaie comme ceci :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name = "Feuil1" Then
    Cancel = False
    With Target.Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    With Target.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 1
    End With
    End If
Cancel = True
End Sub

On pourrait aussi mettre une lettre X à la place.

Si ok, clique sur le V vert à coté du bouton EDITER pour clôturer le fil lors de ta réponse

Crdlt

Hello, une proposition

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Sh.Name = "Feuil1" Then
        With Target.Borders(xlDiagonalDown)
              .LineStyle = xlContinuous
              .ColorIndex = xlAutomatic
        End With

        With Target.Borders(xlDiagonalUp)
              .LineStyle = xlContinuous
              .ColorIndex = xlAutomatic
        End With
   End If
End Sub

Bonjour,

Merci à tous. La proposition de Dan correspond mieux à mes attentes.

A+