DominoArea.org [Archive]

Bonjour,

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

Si ça ne sert à rien, c'est donc absolument indispansable.

Je dirais même plus : au plus moins les choses ne servent à rien, au moins plus elles sont indispensables.