Voici une liste de noms avec des dates de naissance.
On souhaite colorier en rouge les noms de ceux qui sont nés en 1991 et 1992. Pour cela l'utilisateur de la macro colorier_en_rouge() doit :
Le code VBA :
Sub colorier_en_rouge() Dim cel As Range 'range définit les cellules sélectionnées Dim i As Integer Dim dateN As Date 'parcourir la sélection de l'utilisateur For Each cel In Selection 'pour chaque cellule de la sélection If cel.Column = 3 Then 'la 3ème colonne est celle des dates de naissance dateN = cel.Text 'mémoriser la date de la cellule dans dateN annéeN = Year(dateN) 'extraire l'année If annéeN >= 1991 And annéeN <= 1992 Then cel.Font.Color = vbRed 'colorier en rouge la date End If End If Next End Sub
Manipulation des dates (Exemple ladate=25/08/1990) :
En utilisant la même liste de noms, créer une procédure (Macro) Liste_nom() qui va recopier les 10 premiers noms dans une autre feuille du classeur. Cette procédure devra faire :
Astuce :