Problème avec MsgBox.

CBernardT

XLDnaute Barbatruc

• 9 Avril 2009

• #2

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 9 Avril 2009

• #3

Re : Problème avec MsgBox.

bonjour Hulk,

à tester avec cette ligne :

Code:

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é...🙄

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 9 Avril 2009

• #4

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.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 9 Avril 2009

• #5

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)

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 9 Avril 2009

• #6

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...

Code:

=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.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 9 Avril 2009

• #7

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 + 😎

 

Vote positif 0 Vote négatif