Barrer une texte

bonjour,

Je travaille sur un fichier et il ne me reste plus qu'une petite chose à faire mais je n'y arrive pas.

c'est un fichier sur la planification de travaux et je voudrais lorsqu'un travail est annulé pouvoir sélectionner la case "A" de la ligne concerné et mettre les autre cases de la même ligne en texte barré pour signifier que le travail est annulé.

exemple travail de la ligne 25 à barrer:

je sélectionne la case A25 et quand je clic sur le bouton les cases de A25 à Y25 se mettent en texte barré.

Merci pour votre aide.

Bonjour,

Macro à affecter sur un bouton :

Sub Macro1()
Dim ligne As String
ligne = ActiveCell.Row ' INDIQUE NUMERO LIGNE EN COURS

    Range(Cells(ligne, 1), Cells(ligne, 25)).Select

    With Selection.Font

        .Strikethrough = True

    End With
End Sub

SUPER TOP

UN GRAND MERCI

danval a écrit :

SUPER TOP

UN GRAND MERCI

De rien on est la pour çà !