Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide Macro

STEF67

XLDnaute Nouveau
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
 

Pièces jointes

  • tester1.xls
    28 KB · Affichages: 44

bqtr

XLDnaute Accro
Re : Aide Macro

Re,

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

Code:
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…