Sources VBA14 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

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é.

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 une action identique sur plus de 50 contrôles sur
100, par exemple, ça peut être intéressant)
La classe LabelMoisClass (fichier LabelMoisClass.cls dans archive)

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.

Retrouvez tous les sources VBA pour les applications Microsoft Office

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

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 chaines longues)

bien sûr je suis preneur de toute amélioration : il s'agit de mon premier véritable algorithme en visual basic.

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

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 produit


Testé sous XL97,XL2000,XL2002

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...

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.

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 ********************
For i = 1 To 100000 'remplace le déroulement du code
DoEvents
Next
'*****************************************
arrivée = GetTickCount&
Durée = arrivée - Départ
mn = Int(Durée / 1000 / 60)
sd = Int((Durée ... Voir la suite

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.

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.