Colorier les cellules sous conditions [Dans cet exemple : Attribuer une couleur pour chaque jour de la semaine] sous excel

 

Sub ColorJour()

Dim cell As Range
For Each cell In Range("C:C")
  Select Case cell.Value
    Case Is = "Lundi"
    cell.Interior.ColorIndex = 0
    Case Is = "Mardi"
    cell.Interior.ColorIndex = 3
    Case Is = "Mercredi"
    cell.Interior.ColorIndex = 4
    Case Is = "Jeudi"
    cell.Interior.ColorIndex = 5
    Case Is = "Vendredi"
    cell.Interior.ColorIndex = 6
    Case Is = "Samedi"
    cell.Interior.ColorIndex = 7
    Case Is = "Dimanche"
    cell.Interior.ColorIndex = 8
  End Select
Next
End Sub

Totaliser uniquement les valeurs des cellules Rouges sous Excel en VBA

Sub TotalisationCouleurRouge()

Set Aselectionner = Application.InputBox _
     (prompt:="selectionner la plage de cellule ", _
     Title:=" Plage de cellules à sélectioner", Type:=8)
     Aselectionner.Select 'Selection de la plage souhaitée
     For Each cel In Aselectionner
          If cel.Interior.ColorIndex = 3 Then SomRouge = SomRouge + cel
      Next cel
         MsgBox SomRouge
End Sub

Gestion des classeurs sous Excel VBA

Ajouter un nouveau Classeur	Workbooks.Add
Activer un classeur X	Workbooks("X.xls").Activate
Ouvrir un classeur X	Workbooks.Open Filename:= "Chemin du repertoire du fichier\X.xls "