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

patricktoulon

XLDnaute Barbatruc

• 31 Août 2019

• #2

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)

 

Vote positif 0 Vote négatif

G

Gaetan44

XLDnaute Nouveau

• 31 Août 2019

• #3

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

 

Dernière édition: 31 Août 2019

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Août 2019

• #4

re

VB:

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

 

Vote positif 0 Vote négatif

G

Gaetan44

XLDnaute Nouveau

• 31 Août 2019

• #5

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Août 2019

• #6

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

 

Vote positif 0 Vote négatif

G

Gaetan44

XLDnaute Nouveau

• 31 Août 2019

• #7

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

 

Vote positif 0 Vote négatif