Codes sources VBA Excel91 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Un Exemple de code permettant de créer un trombinoscope sous Excel.

Testé sous XL97,XL2000,XL2002 (Windows 2000 et XP)


Tutoriel : Créer un organigramme et un trombinoscope dans Excel.

Un module de classe pour lire les données Exif des photos à l'aide de la librairie gdi+ de Microsoft.
Le fichier Excel du Zip contient un formulaire qui affiche une mosaïque de miniatures d'un répertoire. Cela permet de se rendre compte de la rapidité d'extraction des miniatures intégrées. En cliquant sur une miniature on affiche quelques unes de ses données Exif (date cliché, description, modèle d'APN) dans le cadre de droite (la description est modifiable et remplace le nom de fichier dans la mosaïque et l'extraction). Le cadre d'export en bas en droite permet de générer une liste des photos et de données Exif dans la feuille de calcul. Deux cases à cocher demandent l'affichage des images qui n'ont pas de miniature Exif intégrée. Par ... Voir la suite

Cet outil permet de créer des MsgBox étendues affichant du texte formaté (RTF).
Elles sont auto-refermables et on peut également modifier le texte des boutons.


Le tutoriel: OFFICE : Fenêtres de message étendues.

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

En me basant sur les travaux de Michel Pierron trouvés dans un classeur sur https://www.developpez.net/forums/d779626/logiciels/microsoft-office/excel/macros-vba-excel/menubar-userform/, j'ai développé des classes d'objets permettant de bénéficier des fonctionnalités suivantes :

- Aucune limite sur l'insertion d'éléments dans les menus et sous menus
- Aucune limite dans la profondeur de l'arborescence des sous menus d'un menu
- Aucune contrainte de nom des contrôles
- Possibilité d'assigner n'importe quelle procédure à n'importe quelle commande
- Possibilité de réorganiser dynamiquement tou ... Voir la suite

Cet exemple rend le Frame d'un UserForm transparent afin de voir l'image située en arrière plan.

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.

Le complément Microsoft Office Web Components (Composants Web) est une collection de contrôles pour modèles d'objets composants (Component Object Model ou COM), permettant de publier sur le Web des feuilles de calcul, des graphiques et des bases de données.

Complément d'Office 2003 : composants Web Office
Office XP Tool: Web Components


Le fichier Zip contient deux classeurs:
Une version Excel2007-OWC11
Une version Excel2002-OWC10

La démo utilise ... Voir la suite

La procédure boucle sur tous les fichiers txt d'un répertoire et regroupe leur contenu dans un nouveau fichier texte. Dans cet exemple, chaque fichier contient des données sur 2 colonnes, dont le séparateur est le point virgule (;).

Important: le fichier de compilation ne doit pas être dans le même répertoire que les autres fichiers txt.


Nécessite d'activer la référence "Microsoft ActiveX Data Objects 2.x Library".

Supprimer les lignes en double dans un fichier texte

La procédure liste les fichiers d'un répertoire par ordre décroissant de création.
Vous trouverez en commentaire les indications pour lister par ordre croissant et les paramètres pour utiliser la date de dernière modification des fichiers.

Placez un contrôle TreeView et un bouton dans un UserForm pour visualiser la structure du fichier xml.

Nécessite d'activer la référence Microsoft XML, vx.x.

Modifier la date de création d'un fichier

Utilisez la fonction API GetTickCount pour mesurer le temps écoulé.

Par exemple, pour mesurer le temps de déroulement d'une macro.
En tête d'un module standard, déclarez la fonction:

Vba
Public Declare Function GetTickCount& Lib "kernel32" ()

Puis pour l'utiliser:

Vba
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 ... Voir la suite

L'objet FileSearch n'étant plus supporté dans Office2007, voici une solution de substitution pour Excel. Le classeur xla, à télécharger, contient un module de classe ClasseFileSearch pour gérer la recherche de fichiers sur votre PC.

Consultez le tutoriel associé

Voici un code qui permet de récupérer dans Excel une requête sur un fichier Texte. dans l'exemple, il s'agit de récupérer une colonne. ( Nota: DAO étant utilisé il faut ajouter la référence : Microsoft DAO 3.X )

Un exemple de procédure pour retrouver les équivalences de couleur Hex-Long-RGB , en VBA Excel.

Testé sous XL97,XL2000,XL2002

Tutoriel: Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB.

Voici un code VBA Excel pour remplir une zone de liste à partir d'une requête sur une table Access. Les données sont placés dans le 1° combobox issue de la barre à outils formulaire d'Excel et trouvé dans le classeur.. ( Nota: DAO étant utilisé il faut ajouter la référence : Microsoft DAO 3.X )

Un exemple d'utilisation des fichiers d'aides .chm en VBA.

Testé sous XL2002/W2002.

Tutoriel : Créer un fichier d'aide de type .chm

Lorsque vous avez plusieurs contrôles de même type dans une feuille, et qui effectuent la même opération, il est possible d'écrire une seule procédure qui va gérer toutes les actions.
Les modules de classes permettent de gérer les groupes de contrôles et d'identifier les évènements qui sont appliqués sur ces objets.

Cet exemple gère les CheckBox placées dans la feuille de calcul "Feuil1".
Une action est déclenchée dès que l'utilisateur clique sur une des cases à cocher.