XL 2013 Aide VBA si cellule rouge ecrire "non" dans autre cellule

[Gaetan44]

Bonjour a tous , débutant en VBA je cherche a créer une macro qui se résume à sa :

Si une ou plusieurs cellule comprit entre A1 et A10 on un remplissage rouge alors en B10 il faut écrire NON .
J'espère avoir été assez Claire dans mes explications
Merci d'avance de vos conseils.

 

[patricktoulon]

bonsoir
éventuellement dire par quel moyen les cellules auraient été colorée en rouge serait un plus
car le code serait bien différent pour une cellule rouge et une autre qui aurait été colorée en rouge par une MFC(Mise forme conditionnelle)

 

[Gaetan44]

Bonsoir les cellules sont colorer par VBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Application.EditDirectlyInCell = False
Select Case Target.Interior.ColorIndex
Case Is = xlNone 'rien
Target.Interior.ColorIndex = 4 ' vert
Case Is = 4 'vert
Target.Interior.ColorIndex = 3 'rouge
Case Is = 3 'rouge
Target.Interior.ColorIndex = xlNone
End Select
End Sub

 

[patricktoulon]

re

Sub test()
    Dim x&, ok As Boolean
    With Range("A1:A10")
        x = 1
        Do: ok = IIf(.Cells(x).Interior.ColorIndex = 3, True, ok): x = x + 1: Loop Until ok Or x = .Cells.Count
            End With
If ok Then [B10].Value = "Non"
End Sub

 

[Gaetan44]

Merci pour cette avance significative il me reste un petit problème c'est que le "non" n'apparaît pas automatiquement il faut que j'exécute la macro pour qu'il s'affiche

 

[patricktoulon]

oui et a quel moment tu veux que ca le fasse???

 

[Gaetan44]

En faite c'est bon je les intégrer à mon bouton contrôle de formulaire qui me sert à enregistrer et quitter car le "non" me sert à changer le lien ou s'enregistre mon fichier
Je te remercie pour ton temps et tes réponses rapide
Cordialement