Discussion :

[MadamZell]

Bonjour,

Je suis novice dans la programmation et surtout avec VBA.
Je souhaite créer une macro pour qu'à l'ouverture de mon tableau s'affiche (msgbox) le prochain anniversaire.

Mon tableau se compose des mois (en chaine de caractères) dans les colonnes et des jours (en nombres) dans les lignes. En gros un bon calendrier standard ^^.
Je sais comment récupérer la jour et le mois de la date du jour et comment transformer le mois en cours en chaine de caractères (ex: 10 => OCTOBRE).
Ce que je n'arrive pas à trouver sur les forums c'est comment sélectionner la bonne colonne du mois en cours, et aller jusqu'à la prochaine ligne non vide pour afficher le nom de la personnes dans la cellule dans un msgbox ?

Merci d'avance pour vos réponses

[78chris]

Bonjour

Met au moins une copie d'écran montant la structure où sont visibles lettres des colonnes et numéros de ligne.

A noter qu'il n'est peut-être pas utile de faire une macro pour cela : une simple cellule peut afficher cela...

A noter aussi qu'il est préférable de mettre des dates complètes dans les calendriers, même si on affichr le texte du mois ou du jour en toutes lettres. Cela facilite nettement l'exploitation d'une part, la réutilisation d'une année à l'autre du modèle d'autre part

[MadamZell]

Enfaite c'est juste pr afficher la prochaine personne qui fête son anniversaire (ex sur la capture : le prochain doit etre Georges) à l'ouverture du tableau.
Du coup normalement pas besoin de récupérer l'année.


Merci

[Theze]

Bonjour,

Une procédure événementielle Open() par rapport à ton tableau qui commence en B2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub Workbook_Open()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Tbl() As String
    Dim Mois As String
    Dim I As Integer
    Dim Chaine As String
 
    'extrait le nom du mois de la date
    Mois = UCase(MonthName(Month(Date), False))
 
    'défini la plage de recherche sur la ligne 2 à partir de la colonne B
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 2), .Cells(2, .Columns.Count).End(xlToLeft)): End With
 
    'recherche la cellule correspondante
    Set Cel = Plage.Find(Mois, , xlValues, xlWhole)
 
    'redéfini la plage sur la bonne colonne
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(3, Cel.Column + 1), .Cells(33, Cel.Column + 1)): End With
 
    For Each Cel In Plage
 
        If Cel.Value <> "" Then
 
            I = I + 1: ReDim Preserve Tbl(1 To 2, 1 To I)
            Tbl(1, I) = Cel.Value 'nom de la personne
            Tbl(2, I) = Cel.Offset(, -1).Value 'le jour
 
        End If
 
    Next Cel
 
    'si initialisé, au moins un nom trouvé donc, affichage
    If Not Not Tbl() Then
 
        For I = 1 To UBound(Tbl, 2): Chaine = Chaine & Tbl(1, I) & " le " & Tbl(2, I) & vbCrLf: Next I
        MsgBox "Ce mois -ci (" & Mois & "), c'est l'anniversaire de :" & vbCrLf & Chaine
 
    End If
 
End Sub

[MadamZell]

Bonjour,

Merci pour votre réponse. en effet c'est ce que je cherchais.
Je vais essayer de comprendre votre code parce que je suis vraiment novice

Actuellement j'avais réussi à faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub tAnniv()
 
 
 
tJour = Day(Date)
'tMois = UCase(Format(Now(), "MM"))
tMois = Month(Date)
 
 
Range("A1").Select
ActiveCell.Offset(1, tMois * 2).Select
ActiveCell.Offset(tJour, 0).Select
ActiveCell.Offset(0, 1).Select
tGens = ActiveCell.Value
 
If tGens = Empty Then
 
    'continu à la cellule suivant
    'jusqu'à trouver cellule pas vide
 
Else
   MsgBox tJour & " " & "-" & " " & tGens
 
End If
 
 
End Sub

[78chris]

Bonjour

Par formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(B2:Z33;EQUIV(JOUR(AUJOURDHUI());B2:B33;0);EQUIV(TEXTE(AUJOURDHUI();"mmmm");$B$2:$Y$2;0)+1)

Utiliser le format personnalisé ;;;@ pour la cellule