Couleur de cellule macro
Bonjour à tous,
Tout d'abord, je m'excuse si ce sujet a déjà été traité.
J'ai crée un doc dans lequel je souhaitais que si :
telle cellule = A alors mettre X dans une autre cellule.
J'ai donc fais une macro en tâtonnant car je suis novice, cette macro fonctionne cependant
la voici :
' Copie de la note, avec equivalence +/- vers VA
Select Case Sheets(CSaisieClasse).Cells(SaisieCompetenceIndex, SaisieEleveIndex).Value
Case Is = "A"
Sheets(SaisieElevePrenomNom).Cells(BulletinCompetenceIndex, CBulAACol) = "X"
Case Is = "+"
Sheets(SaisieElevePrenomNom).Cells(BulletinCompetenceIndex, CBulVPCol) = "X"
Case Is = "-"
Sheets(SaisieElevePrenomNom).Cells(BulletinCompetenceIndex, CBulVMCol) = "X"
Case Is = "NA"
Sheets(SaisieElevePrenomNom).Cells(BulletinCompetenceIndex, CBulNACol) = "X"
Case Is = "NE"
Sheets(SaisieElevePrenomNom).Cells(BulletinCompetenceIndex, CBulNECol) = "X"
Dorénavant, je voudrais supprimer le X et avoir une cellule noire à la place, est-ce possible ? J'ai cherché le code couleur du noir sous excel, mais j'avoue je suis totalement perdue.... pourriez-vous m'aider svp ? Par quoi remplacer le X dans ma macro ?
Cordialement.
Juliette
Sheets(SaisieElevePrenomNom).Cells(BulletinCompetenceIndex, CBulAACol).interior.color=blackmerci Melch !!!!!!!!!!!!