Appliquer sur la sélection avec une condition

Bonjour,

Je viens d'arriver sur ce Forum, et je vous remercie d'avance pour une aide éventuelle sur un léger souci.

Sur mon projet actuel, je cherche à exécuter une Macro sur la sélection de plusieurs Cellules, mais l’exécution doit s’appliquer seulement sur les cellules qui répondent à une condition.

Ci dessous, un exemple de code que j'ai essayé avec une boucle for (j'ai essayé plusieurs variantes de code, je cale)

Évidemment qu'il ne fonctionne pas

For Each Cell in Selection

If Cell.interior = xlNone Then

Cell = "x"

End if

Next

Merci d'avance

Bonjour,

Ceci serait mieux :

If Cell.Interior.Color = xlNone Then

Comme ca ca fonctionne mieux, il faut faire une selection bien entendu

For Each Cell In Selection

If Cell.Interior.ColorIndex = xlNone Then

Cell.Value = "xy"

End If

Next

Ok, ça fonctionne maintenant, mais apparemment le code ne s'applique pas au cellules colorées par des règles.

Je vais déjà y aller avec ça merci beaucoup.

bonjour,

mais apparemment le code ne s'applique pas au cellules colorées par des règles.

essaie ceci

    For Each Cell In Selection

        If Cell.DisplayFormat.Interior.ColorIndex = xlNone Then

            Cell.Value = "xy"

        End If

    Next

En effet ça marche bien :-)

Merci encore