• Initiateur de la discussion Initiateur de la discussion JCGL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Joyeux Anniversaire Pierre-Jean

Profitez bien de cette belle journée

Bises à Mamie Verveine
A+++ mon ami

A+ à tous
 
Re : Bon Anniversaire PJ

Bonjour à tous


Je me joins à la compagnie pour souhaiter un heureux anniversaire à PierreJean 😉
01BCPJ.jpg
(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
 
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!​
 
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
 
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
 
Re : Bon Anniversaire PJ

Bonjour à toutes et à tous,

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

attachment.php


A bientôt 🙂🙂
 

Pièces jointes

  • Heureux Anniversaire, pierrejean.jpg
    Heureux Anniversaire, pierrejean.jpg
    33.3 KB · Affichages: 574
  • Heureux Anniversaire, pierrejean.jpg
    Heureux Anniversaire, pierrejean.jpg
    33.3 KB · Affichages: 1 753
  • Heureux Anniversaire, pierrejean.jpg
    Heureux Anniversaire, pierrejean.jpg
    33.3 KB · Affichages: 1 778
Re : Bon Anniversaire PJ

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

Code:
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
 
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 😱.

Code:
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
 
Re : Bon Anniversaire PJ

Bonjour à tous


MJ13
La même mais version one liner 😉
Code:
Sub AA()
ActiveCell.Value = "Bonjour " & Join([{"PierreJean", "JCGL", "Staple", "Modeste", "Rachid", "Camarchepas", "Brigitte", "Pierrot", "Mutzik", "DoubleZero"}], ", ")
End Sub
 
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 🙄.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Power Query
Réponses
2
Affichages
205
Réponses
40
Affichages
1 K
Réponses
3
Affichages
294
Retour