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.
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)
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
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
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
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