Dans la ligné du poisson d'avril un autre truc qui ne sert à rien :
- Code : Tout sélectionner
Sub Initialize
Dim col1(1 To 13) As String
Dim col2(1 To 13) As String
Dim col3(1 To 13) As String
Dim col4(1 To 13) As String
Dim col5(1 To 13) As String
col1(1)="l'excellence"
col1(2)= "L'intervention"
col1(3)= "L'objectif"
col1(4)= " Le diagnostic"
col1(5)= " L'expérimentation"
col1(6)= " La formation"
col1(7)= " L'évaluation"
col1(8)= " La finalité"
col1(9)= "L'expression"
col1(10)= " Le management"
col1(11)= "La méthode"
col1(12)= "Le vécu"
col1(13)= " Le recadrage"
col2(1)=" mobilise"
col2(2)=" révèle"
col2(3)=" stimule"
col2(4)=" modifie"
col2(5)=" clarifie"
col2(6)=" renouvelle"
col2(7)=" identifie"
col2(8)=" perfectionne"
col2(9)=" développe"
col2(10)=" dynamise"
col2(11)=" programme"
col2(12)=" ponctue"
col2(13)=" renforce"
col3(1)=" les facteurs"
col3(2)=" les processus"
col3(3)=" les paramètres"
col3(4)=" les changements"
col3(5)=" les concepts"
col3(6)=" les savoir-faire"
col3(7)=" les problèmes"
col3(8)=" les indicateurs"
col3(9)=" les résultats"
col3(10)=" les effets"
col3(11)=" les blocages"
col3(12)=" les besoins"
col3(13)=" les paradoxes"
col4(1)=" institutionnels"
col4(2)=" organisationnels"
col4(3)=" qualitatifs"
col4(4)=" analytiques"
col4(5)=" caractéristiques"
col4(6)=" motivationnels"
col4(7)=" pédagogiques"
col4(8)=" représentatifs"
col4(9)=" participatifs"
col4(10)=" cumulatifs"
col4(11)=" stratégiques"
col4(12)=" neuro-linguistiques"
col4(13)=" systémiques"
col5(1)=" de la performance"
col5(2)=" du dispositif"
col5(3)=" de l'entreprise"
col5(4)=" du groupe"
col5(5)=" du projet"
col5(6)=" des bénéficiaires"
col5(7)=" de la hiérarchie"
col5(8)=" des pratiques"
col5(9)=" de la démarche"
col5(10)=" des acteurs"
col5(11)=" de la problématique"
col5(12)=" des structures"
col5(13)=" du méta-contexte"
Randomize
truc = Messagebox(col1(Round(((Rnd()*12)+1),0))& col2(Round(((Rnd()*12)+1),0))& col3( Round(((Rnd()*12)+1),0))& col4( Round(((Rnd()*12)+1),0))& col5( Round(((Rnd()*12)+1),0))&".",MB_OK+MB_ICONSTOP, "Vive la L.C.L. ! Longue vie à Labodev !")
End Sub
