Problème avec MsgBox.

[Hulk]

Hello le Forum 😀

J'ai un petit souci de MsgBox que je n'arrive pas à régler.

Voici le code

Sub Anni()
Dim c As Variant
Dim x As Range

Set x = Range("A2:A5")

    For Each c In Range("B2:O5")
        If c = Date Then
         MsgBox "Aujourd'hui c'est l'anniversaire à " & c.Offset(0, x) & " !"
        End If
    Next c

End Sub

Quelqu'un pourrait me donner un coup de main svp...

Merci pour l'aide !

Cdt, Hulk.

 

[CBernardT]

Re : Problème avec MsgBox.

Bonjour Hulk et le forum,

Je te propose le code suivant :

Sub Anni()
Dim C As Range, Plage As Range

Set Plage = Range("A2:A16")

For Each C In Plage
If C = Date Then
MsgBox "Aujourd'hui c'est l'anniversaire à " & C.Offset(0, 1) & " !"
End If
Next C
End Sub

1-Attention à bien définir la plage
2-Les noms sont supposés être sur la colonne à droite de la plage

Cordialement

Bernard

 

[mromain]

Re : Problème avec MsgBox.

bonjour Hulk,

à tester avec cette ligne :

MsgBox "Aujourd'hui c'est l'anniversaire à " & c.End(xlToLeft) & " !"

a+


bonjour CBernardT, chaque fois que je regarde le code que tu m'avais fait, je suis épaté...🙄

 

[Hulk]

Re : Problème avec MsgBox.

Hello, CBernardT, Mromain,

Merci pour vos réponses Messieurs.

Impec je garde !

Je retiens particulièrement celle de Romain, m'en veux pas Bernard 🙄

Joyeuse fête de Pâques à tous et à toutes.

Hulk.

 

[JNP]

Re : Problème avec MsgBox.

Bonjour Hulk, le forum 🙂,
J'arrive un peu tard, mais jette un oeil sur ce fil, il devrait t'interresser https://www.excel-downloads.com/thr...oite-de-dialogue-par-clic-sur-cellule.117139/ surtout qu'il me parrait plus pratique de juste comparer Day et Month pour n'avoir qu'une seule cellule contenant la date de naissance (te permettant en plus de calculer l'âge, et, fin du fin, si tu rajoute une colonne "civilité", tu peux ne pas afficher l'âge des femmes, savoir vivre oblige 😛).
Bonne journée 😎 (et bon jeudi saint, Hulk)

 

[Hulk]

Re : Problème avec MsgBox.

Slt,

Merci Jnp.

J'avais vu ce post, il est super bien le fichier, mais je voulais juste m'amuser à faire un p'tit truc tout simple... 🙄😀

En parlant d'avoir l'âge en plus, vois plutôt la formule ci-dessous que j'ai trouvé sur la toile... Elle est pas mal.
(Bravo à l'auteur s'il se reconnait !)

En B1...

=SI(A1="";"";SI(ET(DATEDIF(A1;$IV$1;"y")=0;DATEDIF(A1;$IV$1;"ym")=0;DATEDIF(A1;$IV$1;"md")=0);0&" jour";SI(DATEDIF(A1;$IV$1;"y")<>0;DATEDIF(A1;$IV$1;"y")&SI(DATEDIF(A1;$IV$1;"y")>1;" ans ";" an ");"")&SI(DATEDIF(A1;$IV$1;"ym")<>0;DATEDIF(A1;$IV$1;"ym")&" mois ";"")&SI(DATEDIF(A1;$IV$1;"md")<>0;DATEDIF(A1;$IV$1;"md")&SI(DATEDIF(A1;$IV$1;"md")>1;" jours";" jour");"")))

Ok elle est balaise, mais efficace et le pire c'est qu'elle fait meme le singulier/pluriel 😀

Tu mets ta date de naissance en A1 et la date du jour en IV1.

Cdt, Hulk.

 

[JNP]

Re : Problème avec MsgBox.

Re Hulk 🙂,
Effectivement, elle fait le singulier/pluriel, mais pas le sexe 😀...
Bien que, je ne sais pas si elle est fiable, j'ai rentré ma date de naissance (14/07/1789) et elle m'a répondu "Valeur#!", c'est vrai que c'est un jour de valeur, mais bon 😛!!!
A + 😎