Sources VBA

code en visual basic (excel) permettant de calculer la distance de jaro-winkler, représentative de la ressemblance de deux chaines. la fonction est expliquée sous wikipedia. j'ai toutefois ajouté quelques paramètres que l'on ne retrouve pas dans la formule initiale pour : - les cas simples (chaines identiques --> distance =1) - les recherches inutiles (caractères similaires trop loin dans des chai...

La procédure remplit chaque Combobox en fonction de la sélection précédente, et sans doublon: La sélection du ComboBox1 définit le contenu du ComboBox2. La sélection du ComboBox2 définit le contenu du ComboBox3 ?etc...

Il est possible d'animer l'affichage d'un UserForm. Cet exemple affiche l'USF progressivement lors de son lancement.

Cette démo permet de paramétrer un niveau de transparence (de 0 à 100%) dans un UserForm.

Ce classeur permet de sélectionner les séries à afficher depuis une boîte de dialogue. Vous pouvez aussi choisir la plage de données source en paramétrant une date de début et de fin.

Utilisation de la fonction API GetTickCount En tête d'un module standard, déclarer la fonction vb Public Declare Function GetTickCount& Lib "kernel32" () puis pour l'utiliser : vb Sub MesureDuTempsQuiPasse() Dim Départ As Double, arrivée As Double, Durée As Double,i As Long Dim mn As Integer, ms As Integer, sd As Integer, tps As String Départ = GetTickCount& '************* ton code *****...

Cette démo montre comment créer un complément (AddIn) dans Excel. Ajoute une barre de menu au classeur avec un assistant pour les bordures de tableaux. Ajoute un menu à l'éditeur VBA (dans le menu principal et dans le menu contextuel). Permettant la création d'un formulaire de barre de progression et un sous-menu pour commenter/décommenter le code sélectionné.

La procédure permet de personnaliser les labels qui s'affichent lorsque que le curseur de la souris passe au dessus des points du graphique. Les labels sont créés dynamiquement et vous pouvez y afficher toutes les informations que vous souhaitez. Les labels suivent le curseur de la souris. Le graphique doit être préalablement activé. Créé avec Excel 2007.

Le classeur montre comment identifier la prise ou la perte de focus du contrôle TextBox, dans un UserForm. Un deuxième exemple montre comment procéder si les TextBox sont placés dans des Frames.

Sélectionnez n'importe quel type de fichier à partir de la boite de dialogue (GetOpenFileName). La procédure va ensuite récupérer le nom de l'exécutable associé à ce fichier et retourner des informations sur la version du programme, notamment : le nom de l'éditeur la description du programme la version du fichier le nom interne le copyright le nom de l'application le nom du produit la version du p...

Retrouvez tous les sources VBA pour les applications Microsoft Office

Pour présenter cette source, lorsque vous avez 30 Labels(ou autres) dans une Form, et que vous voulez qu'a chaque évènement MouseMove de ces Labels ça exécute une même procédure, il faut écrire 30 fois Call TelleProcédure (dans Label1_MouseMove, ..., Label30_MouseMove) Avec ces 2 Modules (dont un de Classe) de quelques lignes, vous faites la même action sur une série de contrôles (pour effectuer u...

Il est possible de définir dynamiquement une plage source, en fonction du nombre de données variables d'une colonne, afin que le graphique se redimensionne automatiquement. Consultez le classeur démo pour visualiser la mise en oeuvre et le résultat.

Un petit bout de code pour tracer un papier millimétré sous Word. D'autres informations sont disponibles en allant sur la discussion...