Code pour donnée de colonne à colonne et format de la ligne

Bonjour à Tous,

Besoin de votre aide pour une Macro en VBA.

Dans mon tableau à la Colonne BA19 à BA118, je scan des numéros d'Ordre de Travail.

Si ces numéros d'Ordre de Travail se retrouve dans la Colonne E19 à E99, j'aimerais que:

en Cellule A s'inscrive le mot: TCLO en Barré et que les cellules renseignées de B à AW

soit Barré aussi et que la Police de Caractère soit Verte.

J'ai fait un exemple du résultat voulu de A19 à AW19.

Je joins mon fichier exemple.

Merci

Jean.

salut toé,

copie cette macro sur la page code de la feuille,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = Range("BA:BA").Column Then
    If Not IsError(Application.Match(Target, Range("E:E"), 0)) Then
        rw = Application.Match(Target, Range("E:E"), 0)
        With Range("A" & rw & ":AW" & rw)
            .Font.Color = RGB(0, 176, 80)
            .Font.Strikethrough = True
        End With
    End If
End If
End Sub

Bonjour i20100,

Ça fonctionne très bien.

Est-ce possible d'inscrire le mot TCLO en Cellule A en même temps.

Merci de votre Aide.

Jean

re,

voilà,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = Range("BA:BA").Column Then
    If Not IsError(Application.Match(Target, Range("E:E"), 0)) Then
        rw = Application.Match(Target, Range("E:E"), 0)
        Range("A" & rw) = "TCLO"
        With Range("A" & rw & ":AW" & rw)
            .Font.Color = RGB(0, 176, 80)
            .Font.Strikethrough = True
        End With
    End If
End If
End Sub

Bonjour i20100,

En plein dans mille.

Un GROS MERCI encore une fois pour votre Aide.

Jean.