Je suis un grand fan de la série de films Matrix. C'est une œuvre incroyable de son époque et l'une de mes séries de films de science-fiction préférées.
Si vous avez vu Matrix, il est impossible que vous ne vous souveniez pas de la séquence de code qui tombe.
J'ai pensé à créer cela dans Excel, mais quelqu'un m'a devancé. Il a déjà été créé et est disponible ici.
Nitin Mehta, qui a créé cela, a utilisé quelques fonctions Excel, une mise en forme conditionnelle et une barre de défilement pour créer cet effet.
Je l'ai modifié pour supprimer la barre de défilement et j'ai utilisé un code VBA à la place. Maintenant, vous pouvez simplement cliquer sur le bouton de lecture et les chiffres commenceront à tomber d'eux-mêmes. Quelque chose comme indiqué ci-dessous :
Effet Matrix Falling Numbers dans Excel
Voici les étapes pour créer l'effet matriciel des nombres décroissants dans Excel :
- Dans la première ligne de la plage A1:AP1, saisissez des nombres aléatoires compris entre 0 et 9. Vous pouvez soit saisir manuellement ces nombres, soit utiliser la fonction RANDBETWEEN. N'oubliez pas de convertir ces nombres en valeurs.
- Réduisez la largeur de la colonne afin qu'elle soit visible sur un seul écran.
- Dans la plage A2:AP32, entrez la formule : =INT(RAND()*10)
- Copiez et collez le code ci-dessous dans un module en VBA
#If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Pour les systèmes 64 bits #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Pour les systèmes 32 bits #End If Sub MatrixNumberRain () i = 1 Do While i <= 40 DoEvents Range ("AR1").Value = ii = i + 1 Sleep 50 Loop End Sub
Ce code ci-dessus entrerait le nombre de 1 à 4o dans la cellule AR1. Le code Sleep 50 retarderait la saisie des chiffres de 50 millisecondes. Si vous exécutez ce code, vous pourrez voir la valeur dans AR1 passer de 1 à 40.
Nous devons maintenant spécifier trois règles de mise en forme conditionnelle pour donner de la couleur à ces nombres.
Règle de mise en forme conditionnelle n°1
- Sélectionnez la plage A2:AP32, allez dans Accueil -> Mise en forme conditionnelle -> Nouvelle règle
- Dans la boîte de dialogue Nouvelle règle de formatage, cliquez sur « Utiliser une formule pour déterminer les cellules à formater » et entrez la formule suivante :
=MOD($AR$1,15)=MOD(LIGNE()+A$1,15)
- Cliquez sur le bouton de format et définissez la couleur de la police sur blanc
- Cliquez sur OK
Règle de mise en forme conditionnelle #2
- Avec la plage A2:AP32 sélectionnée, accédez à Accueil -> Mise en forme conditionnelle -> Gérer la règle
- Dans la boîte de dialogue Gestionnaire de règles de mise en forme conditionnelle, cliquez sur Nouvelle règle
- Dans la boîte de dialogue Nouvelle règle de formatage, cliquez sur « Utiliser une formule pour déterminer les cellules à formater » et entrez la formule suivante :
=MOD($AR$1,15)=MOD(LIGNE()+A$1+1,15) - Cliquez sur le bouton de formatage et définissez la couleur de la police sur vert clair
- Cliquez sur OK
Règle de mise en forme conditionnelle n°3
- Avec la plage A2:AP32 sélectionnée, accédez à Accueil -> Mise en forme conditionnelle -> Gérer la règle
- Dans la boîte de dialogue Gestionnaire de règles de mise en forme conditionnelle, cliquez sur Nouvelle règle
- Dans la boîte de dialogue Nouvelle règle de formatage, cliquez sur « Utiliser une formule pour déterminer les cellules à formater » et entrez la formule suivante :
=OU(MOD($AR$1,15)=MOD(LIGNE()+A$1+2,15),MOD($AR$1,15)=MOD(LIGNE()+A$1+3,15), MOD ($AR$1,15)=MOD(ROW()+A$1+4,15),MOD($AR$1,15)=MOD(ROW()+A$1+5,15)) - Cliquez sur le bouton de formatage et définissez la couleur de la police sur vert clair.
- Cliquez sur OK.
En fonction du numéro de ligne et de la valeur de la première ligne, la mise en forme conditionnelle colorerait le texte en vert, vert clair ou blanc.
Sélectionnez maintenant toute la plage de cellules (A1:AP32) et rendez l'arrière-plan noir.
Comme dernière étape, insérez une forme/un bouton et affectez cette macro à cette forme/à ce bouton.
Noter: Comme il contient un code VBA, enregistrez le fichier avec l'extension .xls ou .xlsm.
C'est ça! Maintenant, procurez-vous une tasse de café, tenez-vous à l'ombre et profitez de la pluie numérique Matrix Falling Numbers 🙂
