Dan de Wauconda a posé la question Excel de cette semaine.
J'ai une feuille de calcul Excel qui calcule une valeur. Si la valeur de la cellule est> 100, j'ai besoin d'un fichier midi à lire.
Cette astuce utilise les gestionnaires d'événements décrits ici le 23 décembre. Si vous n'êtes pas familier avec les gestionnaires d'événements, veuillez d'abord lire ce conseil.
La première étape consiste à coller une copie du fichier MIDI dans un endroit éloigné de votre feuille de calcul.
- Ouvrez le lecteur multimédia WIN95. Programmes> Accessoires> Multimédia
- Ouvrez le fichier midi choisi dans le lecteur multimédia.
- Dans le lecteur multimédia, sélectionnez Modifier, puis Copier l'objet.
- Dans Excel, recherchez un emplacement éloigné. Dans cet exemple, je choisis Sheet1 Cell Z99. Cliquez ici, puis appuyez sur Modifier> Coller
- Regardez la zone de nom dans Excel. Dans la zone de nom, il donnera un nom au fichier midi. Le mien s'appelle Object 1.
La macro VBA pour lire ce fichier midi est:
Sub Playit() ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End SubSelon que vous avez Excel 97 ou Excel 95 / 7.0, vous utiliseriez le gestionnaire d'événements approprié pour appeler le code ci-dessus. Voici un exemple pour Excel 97. Supposons que si une nouvelle valeur est entrée dans la cellule A1, vous voulez vérifier si la cellule calculée dans A2 est> 100. Le gestionnaire d'événements est le suivant:
Ouvrez l'éditeur Visual Basic. Dans la fenêtre de gauche, cliquez avec le bouton droit sur Sheet1 et sélectionnez Afficher le code. En haut de la boîte de dialogue Book1 - Sheet1 Code, il y a deux listes déroulantes. Dans le menu déroulant de gauche, sélectionnez Feuille de calcul. Dans le menu déroulant de droite, sélectionnez Modifier. Entrez les lignes de code suivantes:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then If Range("A2")> 100 Then ActiveSheet.Shapes("Object 1").Select Selection.Verb Verb:=xlPrimary End If End If End Sub
