Astuces Excel
  1. Astuces Excel
  3. Exécutez le module Excel VBA pour toutes les valeurs d'un tableau combiné
Intereting Posts
En excel, comment puis-je get une formule à répéter mais augmenter la ligne par 2 Ddd illustr sav illustrddMMMMMMMMMMMMMMMMMMMMMMMMMMMMTMMMMMMMMjoy Trapandachachachachachachachineachineaddettedéleter Problèmes de compatibilité avec Excel 2003 et 2007 avec une requête de données Formatage des lignes selon la colonne de regroupement après le filtrage sur la base d'une autre colonne Personnalisation du placement de l'label du graphique Excel 2010 à l'aide de VBA ne count pas de clics sur un button dans excel vba Macro Excel – Copiez les résultats d'une table après avoir filtré vers un nouveau classur importer la date de la database vers une feuille Excel Trouver des colonnes dans la gamme phpExcel ne peut pas récupérer des cellules Excel contenant une fonction de correspondance d'index Loop With Solver VBA Automatisation de la création de groupe avec des colors VBA ADO Recordset .Copyfromrecordset long terme Connectez-vous à la feuille de calcul Excel en utilisant OleDbConnection, sorting par numéro de colonne Excel VBA Ajouter des sous-totaux et supprimer des lignes

Exécutez le module Excel VBA pour toutes les valeurs d'un tableau combiné

Je souhaite exécuter une macro dans Excel 2010 qui utilise automatiquement chacune des valeurs dans une zone de list déroulante jusqu'à ce que toutes les valeurs de la zone de list déroulante soient exécutées.

Par exemple, si la zone de list déroulante a les valeurs 1,2,3,4, le code devrait être exécuté pour chacune de ces valeurs en les transmettant à une macro.

D'après mon interprétation de votre question, vous cherchez à exécuter certaines macros (ou fonctions) en fonction de la sélection d'une valeur dans votre zone de list déroulante.

J'appendais cela en ajoutant la zone de list déroulante à votre feuille de calcul, faites un clic droit dessus et select "Affecter une macro", donnez-lui un nom et click "Nouveau".

Vous pouvez ensuite find la valeur de la zone de list déroulante et casse / basculer le résultat: 

Sub DropDown1_Change() Dim ws As Worksheet Dim dd As dropdown Set ws = ActiveSheet Set dd = ws.Shapes("Drop Down 1").OLEFormat.Object Select Case dd.Value Case 1 Debug.Print ("Selected 1") Case 2 Debug.Print ("Selected 2") Case 3 DoSomething Case Else 'Do Nothing? End Select End Sub Private Function DoSomething() Debug.Print ("Selected 3") End Function