Bon Anniversaire PJ

[JCGL]

Bonjour à tous,

Joyeux Anniversaire Pierre-Jean

Profitez bien de cette belle journée

Bises à Mamie Verveine
A+++ mon ami

A+ à tous

 

[MJ13]

Re : Bon Anniversaire PJ

Bonjour Jean-Claude

Joyeux anniversaire à notre ami PierreJean .

Une petite chanson pour l'occasion de ce fabuleux dernier album de Lenny .

Lenny Kravitz - Happy Birthday - YouTube

 

[Staple1600]

Re : Bon Anniversaire PJ

Bonjour à tous


Je me joins à la compagnie pour souhaiter un heureux anniversaire à PierreJean

(Au plaisir de te croiser sur les fils d'XLD et de lire tes codes VBA )

PS: Merci à la maman de Greg pour le gâteau

 

[Modeste]

Re : Bon Anniversaire PJ

Salut tout le monde,

Bon anniversaire, pierrejean


Pleins de bonnes choses pour aujourd'hui, demain et toutes les journées qui suivront!​

 

[R@chid]

Re : Bon Anniversaire PJ

Bonjour tout le monde,
Bonjour pierrejean
Joyeux Anniversaire l'ami.


@ + +

 

[camarchepas]

Re : Bon Anniversaire PJ

Bonjour à toutes et Tous ,

Un trés bon Anniversaire PierreJean,
Journée ensoleillée afin d'être plus festive .

Joyeux Anniversaire - Patrick Sébastien - YouTube

 

[Brigitte]

Re : Bon Anniversaire PJ

Bonjour à tous,


Pierre et moi on se joint à la joyeuse bande pour te faire de grosses bises, mon ami caladois. Que cette journée soit belle, comme elles le sont en automne en beaujolais... le pays des pierres dorées est tout de même un des plus beaux en cette saison !

Grosses bises à DANY aussi.

PS : le bonjour à la coiffeuse du coin ;-)

Brigitte et Pierre

 

[Pierrot93]

Re : Bon Anniversaire PJ

Bonjour à tous,

Avec un peu de ratard, un très bon anniversaire PierreJean...

Bonne journée
@+

 

[mutzik]

Re : Bon Anniversaire PJ

Si, si, il en faut un qui soit le dernier, quoique j'espère que d'autres passeront encore

Mais que fait la police judiciaire alias PJ, ben il a un an de plus mais ne les fait pas, et voili

Bonne anniversaire à toi, plus quelques jours

 

[DoubleZero]

Re : Bon Anniversaire PJ

Bonjour à toutes et à tous,

Avec quelques petites heures de retard , je te souhaite, pierrejean ,

​

A bientôt

 

[pierrejean]

Re : Bon Anniversaire PJ

J'ai le bulbe tellement rétréci que le seul langage qui subsiste est le Vba

Sub merci()
mes_amis = Array("JCGL", "MJ13", "Staple", "Modeste", "Rachid", "czmarchepas", "Brigitte", "Pierrot", "Mutzik", "DoubleZeru")
For n = LBound(mes_amis) To UBound(mes_amis)
  MsgBox ("Merci mes amis pour ces voeux chaleureux à l'occasion du depassement des 3/4 de siecle")
Next
End Sub

Pierre

 

[MJ13]

Re : Bon Anniversaire PJ

Bonjour PierreJean, JCGL, Staple, Modeste, Rachid, Camarchepas, Brigitte, Pierrot, Mutzik, DoubleZero

PierreJean : merci pour ce joli texte, mais Je l'aurais bien écrit ainsi .

Sub A()
    Mesamis = ""
        mes_amis = Array("PierreJean", "JCGL", "Staple", "Modeste", "Rachid", "Camarchepas", "Brigitte", "Pierrot", "Mutzik", "DoubleZero")
    For n = LBound(mes_amis) To UBound(mes_amis)
        AB = Mesamis & mes_amis(n) & ", ": Mesamis = AB
    Next
    ActiveCell.Value = "Bonjour" & " " & Mid(AB, 1, Len(AB) - 2)
End Sub
Sub merci()
    Application.Visible = False
        mes_amis = Array("JCGL", "MJ13", "Staple", "Modeste", "Rachid", "Camarchepas", "Brigitte", "Pierrot", "Mutzik", "DoubleZero")
    For n = LBound(mes_amis) To UBound(mes_amis)
        MsgBox ("Merci " & mes_amis(n) & " pour ces voeux chaleureux à l'occasion du dépassement des 3/4 de siècle")
    Next
    Application.Visible = True
End Sub

 

[Staple1600]

Re : Bon Anniversaire PJ

Bonjour à tous


MJ13
La même mais version one liner

Sub AA()
ActiveCell.Value = "Bonjour " & Join([{"PierreJean", "JCGL", "Staple", "Modeste", "Rachid", "Camarchepas", "Brigitte", "Pierrot", "Mutzik", "DoubleZero"}], ", ")
End Sub

 

[MJ13]

Re : Bon Anniversaire PJ

Bonjour à tous

Merci Jean-Marie pour ce petit code sympas que je ne manquerai pas d'utiliser si il est vraiment facilement adaptable.

C'est pas mal pour éviter la boucle .