Questions marquées «vba»

Visual Basic pour Applications (VBA) est un langage de programmation orienté objet et événementiel pour l'écriture de macros, utilisé pour l'ensemble de la suite Office ainsi que pour d'autres applications. VBA n'est pas équivalent à VB.NET ou VBS; si vous travaillez dans Visual Studio, utilisez [vb.net]. Si votre question concerne spécifiquement la programmation d'une application MS Office, utilisez également la balise appropriée: [excel], [ms-access], [ms-word], [outlook] ou [ms-project].

Contrôles Microsoft Excel ActiveX désactivés?

J'ai des feuilles de calcul Excel qui utilisent des cases à cocher ActiveX pour contrôler certaines activités. Ils ont travaillé récemment mais ont commencé aujourd'hui à donner des erreurs. J'ai été alerté par un collègue, mais cela fonctionnait toujours sur mon ordinateur. J'ai vérifié sa version d'Excel par rapport à …

113 excel vba activex

Comment utiliser FileSystemObject dans VBA?

Dois-je faire référence à quelque chose? Comment utiliser ceci: Dim fso As New FileSystemObject Dim fld As Folder Dim ts As TextStream J'obtiens une erreur car il ne reconnaît pas ces objets.

112 excel vba filesystemobject

Comment supprimer l'avertissement des liens de mise à jour?

J'essaye d'écrire un script qui ouvre de nombreux fichiers Excel. Je reçois toujours l'invite: This workbook contains links to other data sources. Je souhaite empêcher ce message d'apparaître, afin que mon script puisse parcourir automatiquement tous les classeurs sans que je doive cliquer Don't Updatepour chacun d'eux. Actuellement, j'utilise ce …

109 excel vba

Sortez d'une boucle While… Wend

J'utilise une boucle While ... Wend de VBA. Dim count as Integer While True count=count+1 If count = 10 Then ''What should be the statement to break the While...Wend loop? ''Break or Exit While not working EndIf Wend Je ne veux pas utiliser de condition comme `While count <= 10 …

107 excel vba while-loop

Comment faire une pause pendant une durée spécifique? (Excel / VBA)

J'ai une feuille de calcul Excel contenant la macro suivante. Je voudrais le faire en boucle toutes les secondes, mais je suis dangé si je peux trouver la fonction pour le faire. N'est-ce pas possible? Sub Macro1() ' ' Macro1 Macro ' Do Calculate 'Here I want to wait for …

103 excel vba

VBA - Comment sauter conditionnellement une itération de boucle for

J'ai une boucle for sur un tableau. Ce que je veux faire, c'est tester une certaine condition dans la boucle et passer à l'itération suivante si c'est vrai: For i = LBound(Schedule, 1) To UBound(Schedule, 1) If (Schedule(i, 1) < ReferenceDate) Then PrevCouponIndex = i Continue '*** THIS LINE DOESN'T …

101 vba conditional loops

Comment ajouter un onglet de ruban personnalisé à l'aide de VBA?

Je cherche un moyen d'ajouter un onglet personnalisé dans le ruban Excel qui porterait quelques boutons. Je suis tombé sur certaines ressources pour y remédier via Google, mais toutes semblent douteuses et outrageusement compliquées. Quel est le moyen simple et rapide de le faire? J'aimerais que le nouvel onglet soit …

98 excel vba excel-2007 ribbonx

Quelle est la différence entre «Contrôles de formulaire» et «Contrôle ActiveX» dans Excel 2010?

En utilisant Microsoft Excel 2010, j'ai remarqué deux types de contrôles qui peuvent être insérés dans un document: les contrôles de formulaire et les contrôles ActiveX . Quelle est la différence entre eux?

96 excel vba excel-2010 activex form-control

Comment testez-vous la durée d'exécution du code VBA?

Y a-t-il du code dans VBA avec lequel je peux encapsuler une fonction qui me fera savoir le temps qu'il a fallu pour s'exécuter, afin que je puisse comparer les différents temps d'exécution des fonctions?

95 optimization testing vba profiling performance

Quel est l'équivalent de «! =» Dans Excel VBA?

Le problème est que !=cela ne fonctionne pas en tant que fonction dans Excel VBA. Je veux pouvoir utiliser If strTest != "" Then au lieu de If strTest = "" Then Y a-t-il une autre approche pour faire cela en plus !=? Ma fonction d'imiter !=est Sub test() Dim …

95 excel vba function syntax inequality

exécuter automatiquement une macro Excel lors d'un changement de cellule

Comment puis-je exécuter automatiquement une macro Excel chaque fois qu'une valeur dans une cellule particulière change? À l'heure actuelle, mon code de travail est: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H5")) Is Nothing Then Macro End Sub où "H5"est la cellule particulière surveillée et Macroest le nom …

91 excel vba automation

Table de hachage / tableau associatif dans VBA

Je n'arrive pas à trouver la documentation expliquant comment créer une table de hachage ou un tableau associatif dans VBA. Est-ce même possible? Pouvez-vous créer un lien vers un article ou mieux encore publier le code?

90 vba hash hashtable associative-array

Comment ajouter une référence par programme

J'ai écrit un programme qui s'exécute et envoie des messages à Skype avec des informations quand il est terminé. Je dois ajouter une référence pour Skype4COM.dllpour envoyer un message via Skype. Nous avons une dizaine d'ordinateurs sur un réseau et un serveur de fichiers partagé (entre autres). Tous les autres …

89 excel vba reference

Vérification VBA si l'objet est défini

J'ai une variable globale qui est une instance de ma classe personnalisée. Comment vérifier si l'objet est défini ou si je dois l'initialiser?

89 ms-access vba

Obtenir l'erreur 3340 La requête '' est corrompue lors de l'exécution des requêtes DoCmd.RunSQL

Depuis l'installation de la mise à jour Windows pour Office 2010, résolution de la base de connaissances 4444127, j'obtiens une erreur lors de l'exécution des requêtes contenant une clause WHERE. Par exemple, exécuter cette requête: DoCmd.RunSQL "update users set uname= 'bob' where usercode=1" Résultats dans cette erreur: Numéro d'erreur = …

83 vba ms-access

En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.

Licensed under cc by-sa 3.0 with attribution required.