Formulaire: barré en diagonale affecter à un bouton via un macro VBA

Bonjour à tous,

Sur mon fichier, j'ai crée un bouton qui permet de barrer la barre de donnée souhaitez.

Je voudrais savoir comment je peux affecter ce programme sur ma case à cocher. Par exemple lorsque je clique sur modification. Il me barre en diagonale les champs 2-TOPOGRAPHIE et 4- Sécurisation

Je vous remercie d'avance pour votre aide et je vous joins monde

Bonjour,

Au vous devriez placer vos barres directement à l'endroit ou vous en aurez besoin.

Ensuite ce sera plus simple de faire une macro pour les rendre transparentes ou colorées en jouant sur la transparence de la Form.

' Exemple ligne invisible
ActiveSheet.Shapes.Range(Array("Straight Arrow Connector 4")).Select
    Application.CommandBars("Format Object").Visible = False
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 1
    End With
End sub

' .... et pour visible  même code avec 
  .Transparency = 0

Merci X-Men

Je n'ais pas très bien compris votre réponse. Je voudrais que lorsque je coche sur modification. Sa me barre toute la partie topographie. Je voudrais associer un macro à la case à cocher en lui-même et que sa me barre en diagonale comme avec le bouton que j'ai crée

comme ceci ?

Sub Barrer_Topographique()
     BarrerCellules Sheets("Table 1").Range("B20:U27")
End Sub

Sub Barrer_Securisation()
     BarrerCellules Sheets("Table 1").Range("B31:U37")
End Sub

Sub BarrerCellules(Optional Plage As Range)
     '
     ' BarrerCellules Macro
     ' Place un trait épais en diagonal des cellules sélectionnées
     '
     If Plage Is Nothing Then Set Plage = Selection

     '
     With Plage
          x1 = .Cells(1).Left
          y1 = .Cells(1).Top
          x2 = .Cells(.Cells.Count).Left + .Cells(.Cells.Count).Width
          y2 = .Cells(.Cells.Count).Top + .Cells(.Cells.Count).Height
          Set myLine = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2)
          With myLine.Line
               .Visible = msoTrue
               .ForeColor.RGB = RGB(255, 0, 0)
               .Transparency = 0
               .Visible = msoTrue
               .Weight = 4.5
          End With
     End With
End Sub

Merci,

Re: C'est tous que je voulais, mais est-ce possible de fusionner les 2 Macro en 1. Par exemple, lorsque je clique modification ( sa me barre la modification et securisation) avec un reset lorsque je reclique sur modification sa m'efface les diagonale.

comme ceci ?

Parfait, merci beaucoup, c'est ce que je voulais.

Je vous remercie vraiment énormément