XL 2019 Ajouter une msg Box pour les prénoms

job75

XLDnaute Barbatruc

• Samedi à 19:05

• #2

Bonjour lynyrd,

Pour ABASSI OUAHID et ABATORD ROSELYNE rien ne permet de distinguer le prénom.

A+

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• Samedi à 19:20

• #3

voila les prénoms ont été changés

 

Pièces jointes

• LISTING AGENTS.xls

  161 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• Samedi à 21:38

• #4

VB:

Private Sub Workbook_Open()
Dim Cell As Range, DateAnniversaire As Date, s, i%, x$
Rows.Interior.ColorIndex = xlNone
For Each Cell In Range("A2:A" & Range("A2").End(xlDown).Row)
    If IsDate(Cell.Offset(, 2)) Then
        DateAnniversaire = DateSerial(Year(Date), Month(Cell.Offset(, 2)), Day(Cell.Offset(, 2)))
        If DateAnniversaire = Date Then
            s = Split(Cell)
            x = ""
            For i = 0 To UBound(s)
                If s(i) <> UCase(s(i)) Then x = x & " " & s(i)
            Next i
            MsgBox "Anniversaire de : " & Cell & vbLf _
                & DateDiff("yyyy", Cell.Offset(0, 2), Date) & " ans" _
                & IIf(x <> "", vbLf & vbLf & "Prénom présumé : " & Mid(x, 2), ""), vbInformation, "Anniversaires du jour"
        End If
    End If
Next Cell
End Sub

 

Pièces jointes

• LISTING AGENTS(1).xls

  225.5 KB · Affichages: 6

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• Samedi à 21:56

• #5

re
ce n'est pas exactement ce que je souhaterai.
pour les anniversaire c'est bon,mais pour les prénoms il me faudrai si possible une seconde msg box.
ici ,tout est sur 1 seule msg box.
et pourquoi la fete de firmin RADOUAN n'apparait pas ?
merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• Hier à 09:58

• #6

Bonjour le forum,

lynyrd à dit:

ici ,tout est sur 1 seule msg box.

Cliquez pour agrandir...

C'est beaucoup mieux, la multiplication des MsgBox n'est pas une bonne chose.

Quant à la "fête" vous plaisantez !

A+

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Hier à 21:10

• #7

Bonjour,

job75 à dit:

C'est beaucoup mieux, la multiplication des MsgBox n'est pas une bonne chose.

Cliquez pour agrandir...

D'après la demande initiale posée en #1, seules deux MsgBox devraient suffire :
- la première MsgBox (déjà opérationnelle d'après #1) pour lister les personnes dont c'est l'anniversaire,
- la deuxième pour lister les personnes dont c'est la fête.
C'est probablement pour plus de clarté.

Rappel :

lynyrd à dit:

Jai un fichier avec une macro dont l'utilité est d'ouvrir un encart lorsque l'anniversaire de la personne est.
Maintenant j'aimerai avoir la même chose mais pour les prénoms (si possible un 2éme encart).

Cliquez pour agrandir...

Perso, je serais bien incapable de résoudre ce problème, sauf peut-être si la date de la fête est inscrite dans uns nouvelle colonne (et encore, pas sûr que je sache faire ça 🙁).

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• Hier à 22:33

• #8

bonjour toofatBoy
Si jamais ca peut t'aider,jai ajouté les prenoms à souhaiter avec les dates.
Merci.

 

Pièces jointes

• LISTING AGENTS.xlsm

  74.5 KB · Affichages: 4

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• Hier à 23:16

• #9

lynyrd à dit:

Si jamais ca peut t'aider,jai ajouté les prenoms à souhaiter avec les dates.

Cliquez pour agrandir...

Je parlais d'ajouter une colonne dans le tableau initial pour y indiquer la date du prénom de la personne, car :
- il n'y a pas qu'une fête par jour,
- il peut y avoir plusieurs jours de fête pour un même prénom et dans ce cas la personne choisit généralement un jour en particulier pour sa fête,
- tu risques de ne pas avoir une liste complète de tous les prénoms existants, d'autant qu'aujourd'hui pour se distinguer les gens donnent des prénoms inexistants à leur gosses...

 

Dernière édition: Aujourd'hui à 00:55

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• Aujourd'hui à 00:47

• #10

Bonjour à tous😉,

Ma version pour les anniversaires et fêtes.
Les prénoms doivent être écrits en minuscule sauf le premier caractère dont la casse est libre (minuscule ou majuscule). Le prénom peut être placé avant ou bien après le nom. Pour un jour donné, plusieurs prénoms peuvent être fêtés. Le code est un peu commenté.

...

 

Pièces jointes

• lynyrd- anniv & fêtes- v1.xlsm

  52.7 KB · Affichages: 11

Dernière édition: Aujourd'hui à 01:37

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• Aujourd'hui à 10:15

• #11

Merci mapomme - tooFatBoy - job75
c'est EXCELentissime.
Merci.

 

Vote positif 0 Vote négatif