Aide Macro

[STEF67]

Bonjour le forum,
Je souhaiterai une macro à affecter sur le carré rouge qui permette d'un clic de decocher toutes les cases jaunes
Pouvez vous m'aider ?
SD

 

[bqtr]

Re : Aide Macro

Re,

Je te propose cela, à mettre dans un module de code standard :

Sub Decoche()
Dim cell As Range
  For Each cell In Range("A6:A" & Range("A65536").End(xlUp).Row)
     If cell.Interior.ColorIndex = 6 Then cell = "o"
  Next
End Sub

Y a d'autres façons de faire, mais celle là ne prend en compte que les cellules jaunes (l'index de la couleur jaune est 6)

Bonne journée