XL 2016 Condition des couleurs de trame dans VBA

leeroy · 27 Mai 2019

Bonjour,
Je souhaite ajouter une condition de couleur de trame dans le macros ci-joint. Cette condition s'ajoute à des différents de zéro et différent de vide. En effet, je voudrais ne pas tenir compte des cases ayant un fond gris dans une macros qui a pour but d'aligner une plage de donnée en ligne de données.

Merci par avance,
Leeroï

Lolote83 · 27 Mai 2019

Salut,
Peut être avec ce code.
Faire une selection puis lancer la macro

VB:

Sub Test()
    xCpt = 7
    For Each xCell In Selection
        If xCell.Value <> "" And xCell.Value <> 0 And xCell.Interior.Color = 49407 Then
            xCpt = xCpt + 1
            Range("I" & xCpt) = xCell.Value
        End If
    Next xCell
End Sub

@+ Lolote83

XL 2016 Condition des couleurs de trame dans VBA

leeroy

XLDnaute Nouveau

Pièces jointes

Lolote83

XLDnaute Barbatruc

Discussions similaires