Archives de la catégorie : VBA

Développer de A à Z une macro complémentaire pour la création de noms

de | | , ,
Écrire un commentaire
Bonjour à tous,

Voici un cours complet en 13 vidéos qui vous explique comment ajouter automatiquement des noms à une table de données, mais aussi comment transformer un fichier en complément Excel, incluant l'ajout d'un bouton dans le ruban.

Si vous avez aimé ce cours, n'hésitez pas à soutenir XLerateur ci-contre.

L'objectif de cette application est ensuite de pouvoir utiliser ces noms dans les validations de données, dans la mise en forme conditionnelle, ou encore lors de l'écriture de code VBA.

Les fichiers du cours sont disponibles ici :
- HyperNoms.xlsm (fichier excel classique)
- HyperNoms.xlam (macro complémentaire)

Et on commence avec le plan du cours et une petite vidéo d'introduction pour expliquer le contexte et l'objectif de l'application.


Vous avez aimé?
Soutenez XLerateur



definition des noms 1

Les 13 parties du cours :
1 : Explication du problème et ajout du formulaire
2 : ajout du code VBA
3 : Création du nom pour la table au complet
4 : Création des noms de titre
5 : Création des noms de données
6 : Création des noms de titres+données pour une colonne
7 : Sélection de la plage en cours
8 : Vérification du fonctionnement avec les tables
9 : Gestion des caractères interdits dans un nom
10 : Cas où la plage sélectionnée est invalide
11 : Ordre de tabulation
12 : Gestion du ruban
13 : Transformer en macro complémentaire

Amusez-vous bien !

Gaëtan

VBA : Sélectionner un fichier et mettre le chemin dans une cellule

de | |
8 commentaires

Bonjour à tous,

Voici un petit code sympathique pour sélectionner un fichier et mettre le chemin d'accès dans une cellule.

Et ici, le lien vers le fichier

Avant d'ajouter le code, il faut nommer la cellule stockant le nom du fichier.

choix-du-fichier

Ca ressemble à ceci :


Sub choix_fichiers()
'cette macro permet de reprendre le nom du fichier et de le mettre dans la plage nommée
Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
fichier = .SelectedItems.Item(1)
On Error GoTo 0
End With
If fichier <> "" Then Range("Nom_du_fichier").Value = fichier
End Sub

J'utilise ce petit code pour importer des fichiers pour traitement, comparaison, etc.

A bientôt.

Gaetan

FormXL Pro – Nouvelle fonctionnalité, créer des fiches personnalisées

de | | , ,
Écrire un commentaire

Bonjour à tous,

Je suis très heureux de vous faire part de cette nouvelle fonctionnalité qui va vous permettre de créer des fiches personnalisées qui s'adapteront automatiquement en fonction de l'enregistrement visualisé.

Par exemple, vous êtes sur la fiche d'un client et vous voulez sa fiche client. Ou encore, vous visualisez un produit et vous voulez une fiche sur l'état de son stock.

Voici comment faire en 5 mn chrono ! Pour avoir plus d'informations sur FormXL Pro : www.xlerateur.com/fxl


Si vous n'avez pas encore investi dans FormXL Pro, c'est ici : www.xlerateur.com/fxl

A bientôt

Gaëtan