Formater une ligne si OUI "barré"

[Boby71C]

Bonjour à tous
A nouveau besoin de votre précieuse aide.
Je réussis à formater les lignes qui comportent un NON en colonne Y.
Certaines lignes ont un OUI, donc je les laisse au format initial mais lorsque le OUI est "Barré" je désir que cette ligne passe au format hauteur de ligne 30.
Je vous joint mon petit fichier exemple qui sera certainnement plus compréhenssible.

Merci pour votre aide.

@+

 

[BOISGONTIER]

Re : Formater une ligne si OUI "barré"

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.ScreenUpdating = False
 For Each c In Range("Y3", [y65000].End(xlUp))
     If c.Value = "OUI" Then
        c.EntireRow.RowHeight = IIf(c.Font.Strikethrough, 30, 15)
     End If
 Next
End Sub

JB

 

[Boby71C]

Re : Formater une ligne si OUI "barré"

Bonjour JB
Merci beaucoup pour ton code qui fonctionne très bien.
Pour ne pas mourir bête, je pense que le OUI est représenté par le petit c dans le code !!

Je n'avais pas testé comme il faut, les OUI non barrés se formatent également à la même hauteur de ligne !!

@+