Archives de la catégorie : VBA

Mini utilitaire de saisie en VBA

de | | , ,
Écrire un commentaire

Bon­jour à tous,

Pour con­stru­ire un pro­to­type de saisie des­tiné à un usage lim­ité, voici une petite procé­dure qui peut ren­dre de grands ser­vices. Cet exem­ple ne per­met que la saisie, mais pas la mod­i­fi­ca­tion ou la sup­pres­sion de données.

Cet exem­ple sert à démon­tr­er l’u­til­i­sa­tion de cer­taines fonc­tion­nal­ités du VBA en inter­ac­tion avec Excel. 

Mini util­i­taire de saisie (V1)Télécharg­er
Mini util­i­taire de saisie à portée plus uni­verselle (V2)Télécharg­er

On notera :

  • Util­i­sa­tion d’une vari­able pour iden­ti­fi­er la nou­velle ligne à saisir.
  • Util­i­sa­tion de noms de plages défi­nis dans Excel pour ren­dre l’ap­pli­ca­tion robuste. Par exem­ple, l’a­jout, la sup­pres­sion, la mod­i­fi­ca­tion ou le déplace­ment de lignes ou de colonnes est pos­si­ble dans une large mesure. A l’in­verse, si vous aviez util­isé des références sta­tiques du style Range(“D2”), celles-ci ne sont pas du tout robustes en VBA-Excel.

Voici une petite vidéo qui démon­tre la con­struc­tion du fichier :

On peut aller une étape plus loin en créant une boucle qui va par­courir toutes les colonnes. Dans le fichi­er joint (mais pas dans la vidéo), j’ai aus­si géré le fait de met­tre la table de don­nées dans une autre feuille :

Mini util­i­taire de saisie (V2)Télécharg­er

De plus, en trans­for­mant la plage en tableau, l’a­jout des lignes étend automa­tique­ment le tableau vers le bas.

Pour ajouter un nou­veau champ, il faut sim­ple­ment définir deux noms et mod­i­fi­er le code VBA en ajoutant le nom du champ dans l’array:

  • Saisie_NomNouveauChamp
  • Col_ Nom­Nou­veauChamp
  • arr­Colonnes = Array(“Nom”, “Prenom”, “Ville”, “Code­Postal”, ” Nom­Nou­veauChamp”)

Bonne con­tin­u­a­tion.

Excel VBA — Rapatrier les informations d’un fichier (chemin/emplacement et nom)

de | | ,
Écrire un commentaire

Bon­jour à tous,

Voici une amélio­ra­tion d’un ancien post.

Le but est de rap­a­tri­er les infor­ma­tions d’un fichi­er que l’on sélec­tionne via une boîte de dialogue. 

Cliquez ici pour télécharg­er le fichi­er Excel.

Ce code est ensuite très pra­tique pour pou­voir ensuite effectuer des traite­ments sur un fichi­er sélectionné.

Voici le code : 

Option Explicit
Sub choix_CheminEtFichiers()
'Cette macro permet de mettre dans la plage nommee les informations du fichier selectionne
    'note : on aurait pu tout faire en une seule fois sans variables, mais en ayant
    'des variables, cela permet de facilement continuer le code par la suite.
    Dim strFichier As String
    Dim strChemin As String
    Dim strCheminEtFichier As String
    'on ouvre la boite de dialogue pour recuperer les informations du fichier selectionne
    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        On Error Resume Next
        strChemin = .SelectedItems.Parent.InitialFileName
        strCheminEtFichier = .SelectedItems.Item(1)
        'note : il existe de nombreuses autres solutions pour recuperer le nom du fichier
        strFichier = Right(strCheminEtFichier, Len(strCheminEtFichier) - InStrRev(strCheminEtFichier, "\"))
        On Error GoTo 0
    End With
    'on rapatrie les informations dans la feuille excel
    If strCheminEtFichier <> "" Then
        Range("Nom_du_Fichier").Value = strFichier
        Range("CheminFichier").Value = strChemin
        Range("Nom_et_Chemin_du_Fichier").Value = strCheminEtFichier
    End If
    'on ajuste la colonne contenant le resultat
    Columns(Range("Nom_du_Fichier").Column).EntireColumn.AutoFit
End Sub

Bonne con­tin­u­a­tion.

Gae­tan Mourmant

Capsules VBA — Lister toutes les formules uniques d’une sélection

de | |
Écrire un commentaire

Bon­jour à tous,

Dans ce post, nous allons appren­dre com­ment lis­ter toutes les for­mules uniques d’une sélec­tion, un peu plus bas, vous trou­verez aus­si le lien pour une vidéo explica­tive de cet utilitaire.

Télécharg­er l’ap­pli­ca­tion de listage des for­mules uniques de la sélection
Voici en avant-pre­mière, un util­i­taire qui per­met de lis­ter toutes les for­mules uniques de la plage sélectionnées.

Vous pou­vez télécharg­er le fichi­er en cli­quant ici.
Le code est en accès libre.
Une fois instal­lé, sélec­tion­nez votre plage, allez dans l’on­glet For­mules, puis cli­quer sur le dernier bou­ton à droite.

Vision­ner une for­ma­tion pour com­pren­dre com­ment l’ap­pli­ca­tion fonctionne.

Les cap­sules VBA sont des cours express expli­quant com­ment dévelop­per une appli­ca­tion spé­ci­fique sur VBA.
Elles sont idéales pour :
— Pra­ti­quer le VBA au tra­vers d’ex­em­ples concrets.
— Amélior­er son vocab­u­laire VBA.
— Décou­vrir de nou­velles astuces de programmation.

Pour com­pren­dre com­ment le code VBA de cet util­i­taire fonc­tionne, vous pou­vez acheter les cap­sules vidéos explica­tives du code en cli­quant ici.

A bien­tôt

Gae­tan