Sortie de mon nouveau produit

Bonjour à tous,

Après plusieurs mois de développement, je vous annonce la sortie de mon dernier produit, dont je suis particulièrement fier 😉

De plus, jusqu'au 21 juin, bénéficiez d'une promotion exceptionnelle.

Je vous laisse découvrir :
CD

Bonne journée.

Gaetan Mourmant

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

Découvert par hasard – Ajuster le texte d’un userform.

Lorsque vous créez un userform en VBA, vous pouvez ajouter un contrôle "Intitulé".

Pour ajuster la taille de cet intitulé au texte qu'il contient, double-cliquer sur les poignées de dimensionnement qui se trouve autour de ce contrôle :

Bonne journée.

Gaetan Mourmant
www.polykromy.com

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

TCD sur plusieurs feuilles

Bonjour,

Cet article fait suite à la lecture du site de Jean-Marie Lambert où il présente une facon de changer la source des données d'un tableau croisé dynamique (TCD) en utilisant la fonction INDIRECT dans un nom dynamique pour renseigner la feuille contenant les données.

Ceci bien sur à condition que les données aient la même structure.

Le but est de réaliser ceci :

Vous pouvez retrouver mon fichier exemple ici

Je ne vais pas réécrire l'article, qui est très bien détaillé et pédagogique, mais l'idée principale est celle-ci .

On ajoute une cellule (ici A2 de la feuille TCD) contenant le nom de la feuille de la base de données concernée. Cette cellule contient une validation (Données - Validation) afin d'éviter les fautes de frappe.

La fonction Indirect permet de renvoyer les références suivantes :
- Liste1!$A$1 pour INDIRECT(TCD!$A$2&"!$A$1")
- Liste1!$A:$A pour INDIRECT(TCD!$A$2&"!$A:$A")
- Liste1!$1:$1 pour INDIRECT(TCD!$A$2&"!$1:$1")

La définition d'un nom dynamique (Insertion - Nom - Définir) pour un TCD prend la forme générale suivante :
=DECALER(Liste!$A$1;;;NBVAL(Liste1!$A:$A);NBVAL(Liste1!$1:$1))
En considérant que:
- la feuille "Liste1" contienne la base de données,
- la première ligne ne contenant que les en-têtes et
- la première colonne ne devant pas avoir de cellules vides.

D'où la combinaison finale suivante pour le nom dynamique :
=DECALER(INDIRECT(TCD!$A$2&"!$A$1");;;
NBVAL(INDIRECT(TCD!$A$2&"!$A:$A"));NBVAL(INDIRECT(TCD!$A$2&"!$1:$1")))

On crée ensuite le TCD en se basant sur ce nom dynamique comme source des données.

Finalement, en ajout à l'article de Jean-Marie Lambert, on peut créer une procédure événementielle captant le changement de valeur de la cellule A2 et lancant automatiquement l'actualisation du tableau :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End If

End Sub

Bon amusement

Gaetan Mourmant
www.polykromy.com

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !

Transformer du code VBA en HTML

Bonjour,

VB HTML Maker

Si vous êtes webmaster d'un site web consacré à Excel ou au VB, il peut parfois être très utile de transformer du code VBA en HTML.

Le problème, c'est qu'en faisant un simple copier - coller, le code ne conserve ni les couleurs, ni les tabulations.

Pour y remédier, nos amis anglophones ont concocté ce petit utilitaire :

VB HTML Maker

D'où le résultat :

Option Explicit

Sub test()
'Ce module vise à démontrer l'utilisation de VB HTML
Dim a As Integer
For a = 1 To 10
    Beep
Next

End Sub

Bon amusement.

Gaetan Mourmant
www.polykromy.com

PS : Ne manquez aucune nouvelle astuce sur Excel, abonnez-vous à notre newsletter gratuite !