Anniversaires

[Castor48]

Bonjour à tous,

Merci d'être là pour nous.......

Voilà un petit problème que je ne parviens pas à résoudre. J'ai une liste de clients avec leur date de naissance sur une feuill excel. À partir d'un userform, quelle serait la formule à utiliser pour soutirer les dates d'anniversaires. Un exemple plus précis: Aujourd'hui le 16 janvier, je voudrais avoir la liste des clients dont les dates d'anniversaires arrivent dans le prochain mois?

Merci encore de votre aide et vous souhaite une bonne année 2006.

 

[soft]

Bonjour Castor48, le forum,

En partant de l'idée que :

Les noms sont dans la colonne A
Les dates de naissances dans la colonne B

Ton UserForm contient :

Un bouton (Command1) pour exécuter la macro
Une lisBox (List1) pour afficher les résultats

Sub Command1_Click()
    Dim Age As Integer, Fin As Long
    List1.Clear
    Fin = Range('B65536').End(xlUp).Row - 1
    
    For I = 2 To Fin
        If Month(Range('B' & I)) = Month(Date) Then
            Age = Year(Date) - Year(Range('B' & I))
            R = R + 1
            List1.AddItem = Range('A' & I) & ' (' & Format(Range('B' & I), 'dd.mm') & ') ' & Age & ' ans'
        End If
    Next I

End Sub