Filets cellules

Bonjour, le Forum,

Je cherche sur ce merveilleux site mais ne trouve pas alors, je reviens vers vous si vous pouviez me donner un coup de main.

Voilà mon soucis, j'aimerai pouvoir mettre un filet autour d'une cellule sans passer le menu, c a d un bouton, quand je click sur n'importe quelle cellule, cette dernière se grise.

Par avance merci pour toutes vos idées.

Cordialement.

ericp

Bonsoir

Un exemple si j'ai bien compris la demande

avec un code dans un module et code dans la feuille concernée

Si cela convient passez le sujet en résolu

Crdlt

Oups, je me suis mal exprimé, c'était les filets en gris (voir PJ), merci pour vos connaissances, dans la précipitation, j'ai mangé la moitié de mes idées.

Cordialement.

ericp

Bonsoir

Voir l'exemple joint

un double clic crée le filet et si vraiment tu tes trompé un deuxième double clic supprime le filet

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Application.Intersect(Target, Range("A:AZ")) Is Nothing Then Exit Sub
    Application.EditDirectlyInCell = False
    Cancel = True
    With Target.Borders
    If .LineStyle = xlNone Then
        .LineStyle = xlDot
        .Color = vbBlack
        .Weight = xlHairline
    Else
        .LineStyle = xlNone
    End If
End With
    Target.Offset(1, 0).Select
End Sub

Slts

Bonsoir boss_68,

Cela fonctionne sur le fichier mais je peux pas l'incorporer dans mon fichier de base cela bug à cause de cette formule pour appeler un bouton

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
Cancel = True
End Sub

je mets le fichier en copie pour que tu comprennes le dilemme

Cordialement

ericp

Bonjour à vous 2,

Merci pour votre investissement mais après plusieurs recherche et essai, j'ai trouvé mon bonheur.

Sub AjouterFiletGris()
With Selection.Borders
.LineStyle = xlContinuous
.Color = RGB(128, 128, 128) ' Couleur gris
.Weight = xlHairline
End With
End Sub

je vous souhaite un bon WE.

Cordialement.

ericp