Si #NA

Le 21/08/2016 à 23:05

Bonsoir à vous, j'aurais besoin de votre aide, je cherche à traduire ce code en VBA :

Si #NA dans Colonne("L:P") alors

Interior.color=Sheets("PARAM").Range("C6").Interior.Color

Font.color=Sheets("PARAM").Range("C6").Font.Color

Merci.

Le 21/08/2016 à 23:38

Bonjour,

Tu changes souvent ces couleurs ? Et si oui pourquoi parce qu'une simple MFC suffirait...

Donc un bazoooka pour une mouche :

Sub test()
    'Si #NA dans Colonne("L:P") alors
    'Interior.Color = Sheets("PARAM").Range("C6").Interior.Color
    'Font.Color = Sheets("PARAM").Range("C6").Font.Colo
    Dim pl As Range, c As Range, ci As Long, cf As Long
    On Error Resume Next
    Set pl = Range("L:P").SpecialCells(xlCellTypeFormulas, xlErrors)
    On Error GoTo 0
    If Not pl Is Nothing Then
        With Sheets("PARAM").Range("C6")
            ci = .Interior.Color
            cf = .Font.Color
        End With
        For Each c In pl
            If c.Value = CVErr(xlErrNA) Then
                c.Interior.Color = ci
                c.Font.Color = cf
            End If
        Next c
    End If
End Sub

eric

Le 22/08/2016 à 15:04

Merci eriic, t'as macro fonctionne parfaitement. En fait j'ai créé 2 boutons "Thèmes" pour changer la couleur de mes feuilles sauf que les erreurs ne sont pas prises en charge