I. Introduction

Excel, principalement depuis sa version 2010, propose une gestion des données sous forme de tableaux dits « tableaux structurés » (ou « Table », « Tableau », « Tableau de données »), une technologie bien plus puissante et ergonomique que les classiques « plages de données ».

Pierre Fauconnier y consacre un tutoriel destiné aux utilisateurs « Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages » que je vous recommande de lire si vous n’utilisez pas encore les tableaux structurés.

En résumant les avantages que les tableaux structurés procurent aux utilisateurs nous pouvons citer, entre autres :

  • un large éventail de styles automatiques de présentation permettant une mise en surbrillance une ligne sur deux pour faciliter la lecture ;
  • des formules plus simples à concevoir et à relire, car elles incluent le nom des colonnes auxquelles elles font référence ;
  • une recopie automatique des formules à l’ajout d’une nouvelle ligne ;
  • la possibilité d’inclure très facilement une ligne de totaux ou inversement de la masquer ;
  • la possibilité de déplacer le tableau sur la feuille de calcul d’un simple glisser/déposer ou de déplacer les colonnes à l’intérieur du tableau pour adapter la présentation à ses besoins.

Cette nouvelle technologie connaît donc logiquement un engouement auprès des utilisateurs, mais aussi auprès des développeurs, que ce soit par choix ou par nécessité.

Par choix, car comme nous le verrons dans cette documentation, un tableau structuré se gère un peu comme une base de données avec des noms de colonnes uniques et une plage déterminée.
Ainsi, dans de nombreux domaines, gérer les données dans un tableau structuré est plus simple que dans une plage de données classique.
Par exemple, nous accéderons à une donnée en utilisant soit le nom de sa colonne soit son numéro, et le numéro de sa ligne, sans avoir à nous soucier de savoir où elle est positionnée physiquement sur la feuille.

Par nécessité, car les programmeurs se retrouvent de plus en plus souvent face à des tableaux structurés que les utilisateurs, à juste titre, plébiscitent.

En complément au tutoriel précité, celui-ci s’adresse aux programmeurs débutants ou confirmés en proposant des fonctions génériques pour gérer les tableaux structurés en VBA.

Ces fonctions couvrent l’essentiel des besoins du programmeur et lui simplifient la vie, car il n’est pas nécessaire de connaître les subtilités de l’objet « ListObject » pour les utiliser.

Les fonctions sont regroupées en cinq thèmes :

  • concevoir un tableau structuré ;
  • trier, filtrer les données ;
  • obtenir des informations sur les données ;
  • rechercher, sélectionner, modifier les données ;
  • importer, exporter des données.

Toutes les fonctions présentées ont en commun :

  • de renvoyer une valeur permettant d’identifier si le traitement demandé s’est déroulé correctement ou non ;
  • en cas d’erreur de traitement, d’alimenter les variables publiques TS_ErrNumber et TS_ErrDescription, déclarées en en-tête du module « TS » du fichier joint, avec respectivement le code de l’erreur Err.Number et sa description Err.Description et d'afficher ou non une boîte de dialogue (nous détaillerons cela avec l'étude de la fonction TS_SiErreur) ;
  • d’être préfixées « TS_ » pour mieux les identifier.

Les débutants en VBA acquerront le niveau nécessaire avec le tutoriel « Tome 1 - Des bases de la programmation à l'algorithme de classement rapide QuickRanking ».

Les codes de cette documentation ont été réalisés avec Excel 2016 version 32 bits sous Windows 10. Ils sont compatibles avec la version 64 bits d'Excel 365.



II. Concevoir un tableau structuré

Les différentes fonctions de ce chapitre sont consacrées à la conception d’un tableau structuré.
Cela va de sa création à la gestion de ses options, en passant par l’effacement, l’ajout ou la suppression de lignes et colonnes.
Mais avant tout nous allons étudier comment sont gérées les erreurs dans les différentes fonctions.

II-A. TS_SiErreur

Les différentes fonctions que nous allons étudier ci-après renvoient pratiquement toutes une valeur d'exécution permettant d'identifier si le traitement s'est déroulé correctement, généralement True si tout s’est bien passé ou False ou -1 dans le cas contraire.

Dans tous les cas, une erreur de traitement alimente les variables publiques TS_ErrNumber et TS_ErrDescription avec respectivement le code de l’erreur Err.Number et sa description Err.Description.

Le programmeur peut donc savoir si une erreur s'est produite en analysant la valeur renvoyée par la fonction appelée, et afficher s'il le souhaite une boîte de dialogue pour décrire cette erreur en utilisant les variables TS_ErrNumber et TS_ErrDescription.
Ce qui peut être lourd à gérer dans une application faisant de nombreux appels aux fonctions comme il m'a été fait remarqué dans la discussion liée à cette documentation.

J’ai donc modifié la gestion des erreurs du module « TS » en conséquence et désormais trois possibilités sont offertes par la fonction TS_SiErreur pour paramétrer la façon dont vous souhaitez gérer les erreurs, en sélectionnant l’une des options suivantes dans son argument :

  • TS_Générer_Erreur : (par défaut) la fonction renvoie l'erreur à la procédure appelante. Si celle-ci possède un gestionnaire d'erreurs validé, il est activé afin de gérer l'erreur, sinon le traitement est interrompu ;
  • TS_MsgBox_Erreur : l’erreur n’est pas renvoyée à la fonction appelante mais une boîte de message signale l’erreur, et la fonction revoie un code d’erreur (False ou -1) ;
  • TS_Ignorer_Erreur : l’erreur est « ignorée », seul le code d'erreur renvoyé (False ou -1) permet de savoir qu’une erreur s’est produite.

Remarque : la fonction TS_SiErreur peut être appelée n'importe où dans votre programme et autant de fois que vous le désirez.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez


Exemple avec un cas (théorique) où l’utilisateur sélectionne un fichier contenant un tableau structuré nommé « Tableau1 » à importer dans le classeur actif. Puis les données sont mises en forme et triées sur la colonne "Prenom" :

L’instruction Call TS_SiErreur(TS_Ignorer_Erreur) permet d’ignorer les erreurs du module « TS ». Ainsi la fonction TS_ImporterDepuisClasseur renvoie False en cas d’erreur sans bloquer la suite du traitement. L’utilisateur s’est simplement trompé de fichier, on lui demande s’il veut en sélectionner un autre.
On pourrait aussi utiliser On Error Resume Next avant l’appel de la fonction puis restaurer le gestionnaire d’erreur On Error GoTo Gest_Err après. C’est à vous de choisir ce que vous préférez.

L’instruction Call TS_SiErreur(TS_MsgBox_Erreur) affiche un message en cas d’erreur. Ici rien n’est bloquant, l’utilisateur a peut-être renommé la colonne « Date » en « Dates », peu importe car elle ne sera pas utilisée dans la suite du traitement, un message signale simplement cette anomalie (qu’il conviendra de corriger).

L’instruction Call TS_SiErreur(TS_Générer_Erreur) branchera la procédure à l’étiquette Gest_Err en cas d’erreur. Si l’utilisateur a renommé la colonne « Prenom » en « Prénom » l’erreur est critique car cette colonne est utilisée pour diverses opérations, donc la procédure est terminée et un message affiche l’erreur.

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Dim Fichier As String
Dim Moyenne As Double
Set Tableau = Range("Tableau1")

' Gestion des erreurs:
On Error GoTo Gest_Err
Err.Clear

' Ne bloque pas le traitement en cas d'erreur, c'est jusque que l'utilisateur
' a sélectionné le mauvais fichier:
Call TS_SiErreur(TS_Ignorer_Erreur)

Do
    ' Sélectionne un fichier Excel:
    Fichier = Application.GetOpenFilename("Fichiers Excel,*.xls*")
    ' Importe les données dans un tableau structuré:
    If TS_ImporterDepuisClasseur(Fichier, "", "Tableau1", Tableau, TS_RemplacerDonnées, "") = False Then
        ' Si ce n'est pas le bon fichier alors le signaler:
        If MsgBox("Voulez-vous sélectionner un autre fichier ?", vbQuestion + vbYesNo, _
                  "Ce n'est pas le bon fichier") = vbNo Then Exit Sub
        Fichier = ""
    End If
Loop While Fichier = ""

' Génère un message en cas d'erreur mais continue la traitement:
Call TS_SiErreur(TS_MsgBox_Erreur)

' Format Numérique et format date:
Call TS_FormatColonne(Tableau, "Note", "0.0", True)
Call TS_FormatColonne(Tableau, "Date", "dd/mm/yyyy")

' Branchement à l'étiquette "Gest_Err" si une erreur se produit dans les traitements
' du tableau:
Call TS_SiErreur(TS_Générer_Erreur)

' Trie la colonne "Prenom":
Call TS_TrierUneColonne(Tableau, "Prenom", xlSortOnValues, xlAscending, True)

' Compte la moyenne des notes:
Moyenne = TS_ValeurColonne(Tableau, "Note", xlTotalsCalculationAverage, False)

' Autres traitements:

' ...

' Gestion des erreurs:
Gest_Err:
If Err.Number <> 0 Then MsgBox "Erreur dans la fonction : " & Err.Source & vbCrLf & vbCrLf _
                              & Err.Number & " : " & Err.Description, _
                                vbCritical, "Exemple"
Err.Clear
End Sub
'------------------------------------------------------------------------------------------------



II-B. TS_ConvertirPlageEnTS

La fonction TS_ConvertirPlageEnTS convertit une plage de données classique en un tableau structuré.

Ses arguments sont :

  • TD : la plage (de type Range) qui représente la plage de données à convertir ou tout simplement la première cellule haut/gauche de cette plage, car la plage sera étendue automatiquement ;
  • Nom : (facultatif) le nom à donner au tableau structuré généré. Si l’argument n’est pas renseigné, le tableau prendra le nom attribué automatiquement par Excel ;
  • Style : (facultatif) le nom du style du tableau structuré. Si l’argument n’est pas renseigné, le style par défaut sera appliqué. Si l’argument est vide, alors le tableau sera sans style ;
  • AvecEntete : (facultatif) une valeur de l’énumération XlTotalsCalculation qui indique si la première ligne contient des en-têtes, soit l'une des valeurs suivantes :
       - xlYes : (valeur par défaut) la plage contient des en-têtes,
       - xlNo : la plage ne contient pas d'en-tête et Excel les rajoute,
       - xlGuess : Excel détecte automatiquement si la plage contient ou non des en-têtes.

La fonction renseigne :

  • Nom : le nom donné au tableau structuré, ce qui peut être utile si l’argument n’avait pas été renseigné pour connaître le nom attribué par Excel ;
  • Style : le nom du style du tableau structuré, ce qui peut également être utile si l’argument n’avait pas été renseigné.

La fonction renvoie : un Range qui représente la plage du tableau structuré généré.

Exemple pour convertir la plage de données située en « A1 » de la feuille « Feuil3 » en un tableau structuré qui sera nommé « TS_Eleves » et de style « clair 13 » (ici la plage de type Range renvoyée n’est pas utilisée, mais nous étudierons des exemples où elle le sera, c’est pourquoi j’ai souhaité la représenter) :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = TS_ConvertirPlageEnTS(TD:=Sheets("Feuil3").Range("A1"), Nom:="TS_Eleves", _
                                    Style:="TableStyleLight13", AvecEntete:=xlYes)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible



Remarque : dans le code de cet exemple (et dans plusieurs autres de cette documentation), les arguments sont nommés pour vous faciliter la lecture, un appel plus court reste évidemment possible :
Set Tableau = TS_ConvertirPlageEnTS(Sheets("Feuil3").Range("A1"), "TS_Eleves", "TableStyleLight13")

Ou puisque le renvoi de la fonction n’est pas utilisé :
Call TS_ConvertirPlageEnTS(Sheets("Feuil3").Range("A1"), "TS_Eleves", "TableStyleLight13")

Ou encore (sans l’instruction Call) :
TS_ConvertirPlageEnTS Sheets("Feuil3").Range("A1"), "TS_Eleves", "TableStyleLight13"



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-C. TS_CréerUnTableau

La fonction TS_CréerUnTableau crée un tableau structuré en utilisant les informations passées en arguments.

Ses arguments sont :

  • Plage : la plage (de type Range) qui représente la première cellule haut/gauche où sera placé le tableau structuré ;
  • Titres : les noms pour l'en-tête des colonnes, de format Array() c'est-à-dire entre guillemets et séparés par une virgule (voir l’exemple). Si le tableau n’a qu’une colonne, le titre peut être passé sous la forme String ;
  • Nom : (facultatif) le nom à donner au tableau structuré créé. Si l’argument n’est pas renseigné, le tableau prendra le nom attribué automatiquement par Excel ;
  • Style : (facultatif) le nom du style du tableau structuré. Si l’argument n’est pas renseigné, le style par défaut sera appliqué. Si l’argument est vide, alors le tableau sera sans style.

La fonction renseigne les arguments :

  • Nom : le nom donné au tableau structuré (utile si l’argument n’avait pas été renseigné) ;
  • Style : le nom du style du tableau structuré (utile si l’argument n’avait pas été renseigné).

La fonction renvoie : un Range qui représente la plage du tableau structuré créé.
Si un tableau existait déjà à l’emplacement demandé, alors la fonction renvoie la plage de ce tableau.

Exemple pour créer un tableau structuré en « A1 » sur la feuille « Feuil3 » qui sera nommé « TS_Eleves » et de style « clair 13 » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = TS_CréerUnTableau(Plage:=Sheets("Feuil3").Range("A1"), _
                                Titres:=Array("Nom", "Prénom", "Note"), _
                                Nom:="TS_Eleves", _
                                Style:="TableStyleLight13")
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible

Remarque : le tableau est créé avec une ligne qui s'affiche dessous, mais reste vierge, la saisie peut commencer. En VBA, le tableau sera initialisé lors de l’ajout d’une première ligne, voir la fonction TS_AjouterUneLigne.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-D. TS_SupprimerLeTableau

La fonction TS_SupprimerLeTableau supprime le tableau structuré passé en argument.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré à supprimer.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour supprimer le tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Call TS_SupprimerLeTableau(Range("TS_Eleves"))
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible

Le nom d'un tableau structuré est unique dans un classeur. Il n'est donc pas nécessaire d'indiquer la feuille où il se trouve dans l'argument passé à la fonction car Excel sait l'identifier, sauf (la nuance est importante) s'il n'est pas dans le classeur actif. Dans ce cas il faut effectivement indiquer la feuille où il se trouve.
Pour cette documentation tous les tableaux structurés sont dans le classeur actif.


En pratique, pour simplifier l'emploi des fonctions, privilégiez l'usage d'une variable qui fait référence au tableau structuré.
Cela permet de ne déclarer la plage du tableau qu'une seule fois et donc de faciliter la maintenance du code.

Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_SupprimerLeTableau(Tableau)

Certain vont préférer passer en argument la plage du tableau sous sa forme « simplifiée » (c'est-à-dire le nom du tableau mis entre crochets) ce qui donne :
Call TS_SupprimerLeTableau([TS_Eleves])

Chacun a ses habitudes de programmation et je vous laisse libre de faire comme bon vous semble.




Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-E. TS_IndexColonne

La fonction TS_IndexColonne renvoie le numéro de la colonne passée en argument, qu’elle soit passée d’après son nom ou sa position. Cette fonction sera très utilisée par la suite, car nous accéderons à une colonne d’un tableau structuré principalement d’après son nom.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée.

La fonction renvoie : le numéro de la colonne concernée ou -1 en cas d’erreur.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-F. TS_IndexLigne

La fonction TS_IndexLigne contrôle la cohérence de la ligne passée en argument.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Ligne : le numéro de la ligne concernée. Si ce nombre est zéro, alors la dernière ligne du tableau structuré est traitée.

La fonction renvoie : le numéro de la ligne concernée ou -1 en cas d’erreur.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-G. TS_ChangerLibellé

La fonction TS_ChangerLibellé affiche un libellé personnalisé à la place du nom d’une colonne d’un tableau structuré, sans modifier le nom de cette colonne qui restera celui exploité dans les traitements.

Cette notion est très utile, car elle permet :

  • de conserver un nom court pour désigner la colonne qui sera utilisée dans les traitements et les formules tout en affichant un texte plus explicite pour les utilisateurs ;
  • d’éviter les caractères spéciaux dans le nom des colonnes (voir la remarque ci-dessous) ;
  • d’adapter le libellé affiché au souhait de l’utilisateur sans avoir à modifier le code déjà écrit ;
  • de faciliter le portage d’une application dans une autre langue.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • Libellé : le libellé à afficher à la place du nom ou vide pour restaurer le nom d'origine.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour modifier l’affichage des colonnes « Nom », « Prénom » et « Note » du tableau structuré nommé « TS_Eleves », en forçant un retour à la ligne par vbCrLf :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_ChangerLibellé(Tableau, "Nom", "Nom de" & vbCrLf & "l'élève")
Call TS_ChangerLibellé(Tableau, "Prénom", "Prénom de" & vbCrLf & "l'élève")
Call TS_ChangerLibellé(Tableau, 0, "1ère" & vbCrLf & "Note")
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Pour simplifier vos traitements, nommez vos colonnes en évitant les caractères spéciaux « arobase, dièse (croisillons), tabulation, saut de ligne, virgule, point, crochets, apostrophe, , ... », qui nécessitent dans les formules l’usage de crochets supplémentaires ou d'être précédés d'une apostrophe (simple quote).



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-H. TS_EffacerUneLigne

La fonction TS_EffacerUneLigne efface le contenu d’une ligne dans un tableau structuré, mais ne supprime pas la ligne.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Ligne : le numéro de la ligne concernée. Si ce nombre est zéro, alors la dernière ligne du tableau structuré est effacée.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour effacer la dernière ligne du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_EffacerUneLigne(TS:=Tableau, Ligne:=0)
End Sub
'------------------------------------------------------------------------------------------------


Ou :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Call TS_EffacerUneLigne(Range("TS_Eleves"), 0)
End Sub
'------------------------------------------------------------------------------------------------




Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-I. TS_EffacerToutesLignes

La fonction TS_EffacerToutesLignes efface le contenu d’un tableau structuré, mais ne le supprime pas.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour effacer le contenu du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_EffacerToutesLignes(Tableau)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-J. TS_AjouterUneLigne

La fonction TS_AjouterUneLigne ajoute une ligne dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Ligne : (facultatif) la position où ajouter une ligne. Si ce nombre est zéro (valeur par défaut), alors une ligne est ajoutée à la suite du tableau structuré.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour ajouter une ligne en deuxième position puis à la fin du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
------------------------------------------------------------------------------------------------
Sub Exemple()
‘------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_AjouterUneLigne(TS:=Tableau, Ligne:=2)
Call TS_AjouterUneLigne(TS:=Tableau, Ligne:=0)
End Sub------------------------------------------------------------------------------------------------


Image non disponible

Remarque : avant d’ajouter une ligne au tableau, il convient de mémoriser les éventuels filtres existants et de les supprimer, puis de les restaurer à la fin du traitement. Nous verrons cela en détail dans un autre chapitre.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-K. TS_SupprimerUneLigne

La fonction TS_SupprimerUneLigne supprime une ligne dans un tableau structuré.

Une fois toutes les lignes supprimées, il ne reste qu’une ligne vide sous l’en-tête. En VBA, le tableau sera initialisé lors de l’ajout d’une première ligne, voir la fonction TS_AjouterUneLigne.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Ligne : le numéro de la ligne à supprimer. Si ce nombre est zéro, alors la dernière ligne du tableau structuré est supprimée.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour supprimer la dernière ligne du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_SupprimerUneLigne(Tableau, 0)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible

Remarque : avant de supprimer une ligne au tableau, il convient de mémoriser les éventuels filtres existants et de les supprimer, puis de les restaurer à la fin du traitement. Nous verrons cela en détail dans un autre chapitre.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-L. TS_SupprimerPlusieursLignes

La fonction TS_SupprimerPlusieursLignes supprime plusieurs lignes consécutives dans un tableau structuré.

Une fois toutes les lignes supprimées il ne reste qu’une ligne vide sous l’en-tête. En VBA, le tableau sera initialisé lors de l’ajout d’une première ligne, voir la fonction TS_AjouterUneLigne.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • LigneDébut : le numéro de la première ligne à supprimer ;
  • LigneFin : le numéro de la dernière ligne à supprimer (si ce nombre est zéro alors la dernière ligne du tableau structuré est supprimée).

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour supprimer de la huitième ligne jusqu'à la dernière ligne du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_SupprimerPlusieursLignes(Tableau, 8, 0)
End Sub
'------------------------------------------------------------------------------------------------

Remarque : avant de supprimer les lignes au tableau, il convient de mémoriser les éventuels filtres existants et de les supprimer, puis de les restaurer à la fin du traitement. Nous verrons cela en détail dans un autre chapitre.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-M. TS_SupprimerToutesLignes

La fonction TS_SupprimerToutesLignes supprime toutes les lignes dans un tableau structuré, mais ne le supprime pas (pour cela utilisez la fonction TS_SupprimerLeTableau), il ne reste qu'une ligne vide sous l'en-tête. En VBA, le tableau sera initialisé lors de l’ajout d’une première ligne, voir la fonction TS_AjouterUneLigne.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour supprimer toutes les lignes du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_SupprimerToutesLignes(Tableau)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-N. TS_SupprimerLignesVisibles

La fonction TS_SupprimerLignesVisibles supprime les lignes visibles dans un tableau structuré, lignes préalablement sélectionnées par un filtre.

Si toutes les lignes sont supprimées il ne reste qu’une ligne vide sous l’en-tête. En VBA, le tableau sera initialisé lors de l’ajout d’une première ligne, voir la fonction TS_AjouterUneLigne.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré.

La fonction renvoie : le nombre de lignes supprimées ou -1 en car d'erreur.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-O. TS_SupprimerLignesMasquées

La fonction TS_SupprimerLignesMasquées supprime les lignes masquées dans un tableau structuré suite à l'utilisation d'un filtre.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré.

La fonction renvoie : le nombre de lignes supprimées ou -1 en car d'erreur.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-P. TS_SupprimerDoublons

La fonction TS_SupprimerDoublons supprime les doublons dans un tableau structuré. Les lignes masquées par un filtre sont quand même prises en compte

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • ListeColonnes : la ou les colonnes concernées (dans ce cas passez un Array).

La fonction renvoie : le nombre de lignes supprimées ou -1 en car d'erreur.

Exemples d'appels sur le tableau « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim TS As Range
Set TS = Range("TS_Eleves")
Call TS_SupprimerDoublons(TS, "Nom") ' Supprime les doublons de la colonne nommée "Nom"
Call TS_SupprimerDoublons(TS, Array("Nom", "Prénom")) ' idem mais si doublons en colonnes "Nom" et "Prénom".
Call TS_SupprimerDoublons(TS, 0) ' Supprime les doublons de la dernière colonne.
Call TS_SupprimerDoublons(TS, Array("Nom", 0)) ' idem mais si doublons en colonnes "Nom" et dernière colonne.
End Sub
'------------------------------------------------------------------------------------------------


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-Q. TS_AjouterUneColonne

La fonction TS_AjouterUneColonne ajoute une colonne dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro de la colonne ou le nom de la colonne après lequel insérer une nouvelle colonne. Si vide ou 0, alors ajoute une colonne à la fin du tableau structuré ;
  • Nom : le nom de la nouvelle colonne. Si vide, alors Excel attribuera un nom d'office et « Nom » sera renseigné.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour ajouter une colonne nommée « Note2 » à la fin du tableau structuré nommé « TS_Eleves », puis lui changer son libellé en « 2e Note » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_AjouterUneColonne(TS:=Tableau, Colonne:=0, Nom:="Note2")
Call TS_ChangerLibellé(TS:=Tableau, Colonne:=0, Libellé:="2ème" & vbCrLf & "Note")
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-R. TS_SupprimerUneColonne

La fonction TS_SupprimerUneColonne supprime une colonne dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro de la colonne ou le nom de la colonne à supprimer. Si vide ou 0, alors supprime la dernière colonne du tableau structuré.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Remarque : supprimer toutes les colonnes d’un tableau structuré équivaut à le supprimer, voir la fonction TS_SupprimerLeTableau.

Exemple pour supprimer la colonne « Note2 » du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_SupprimerUneColonne(TS:=Tableau, Colonne:="Note2")
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-S. TS_DéplacerUneColonne

La fonction TS_DéplacerUneColonne déplace une colonne dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne_Source : le numéro de la colonne ou le nom de la colonne à déplacer. Si vide ou 0, alors déplace la dernière colonne ;
  • Colonne_Dest : le numéro de la colonne destination où déplacer les données. Si vide ou 0, alors déplace les données la dernière colonne.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour s'assurer que les colonnes du tableau structuré « TS_Eleves » sont bien dans l'ordre désiré. Les colonnes sont déplacées en cas de besoin :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim i As Integer
Dim Ordre As Variant

' Définition des colonnes que l'on souhaite déplacer
Ordre = Array("Nom", "Prénom", "Note", "Date", "Prochain")

' Boucle sur les colonnes pour les déplacer dans cet ordre.
' Attention le tableau est en base 0 (de 0 à n-1) alors que les colonnes
' d'un tableau structuré vont de 1 à n et pas de 0 à n-1:
For i = LBound(Ordre) To UBound(Ordre)
    Call TS_DéplacerUneColonne(TS:=Range("TS_Eleves"), Colonne_Source:=Ordre(i), Colonne_Dest:=i + 1)
Next i

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-T. TS_AfficherOuMasquerColonne

La fonction TS_AfficherOuMasquerColonne permet d'afficher ou de masquer une colonne dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro ou le nom de la colonne concernée. Si vide ou 0, alors prend la dernière colonne du tableau structuré ;
  • EstVisible : Si True alors la colonne est visible, si False alors elle est masquée.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-U. TS_LargeurColonne

La fonction TS_LargeurColonne définit la largeur (en points) d'une colonne d'un tableau structuré situé dans le classeur.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro ou le nom de la colonne concernée. Si vide ou 0, alors prend la dernière colonne du tableau structuré ;
  • Largeur : la largeur de la colonne ou 0 pour un ajustement automatique.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-V. TS_EffacerUneColonne

La fonction TS_EffacerUneColonne efface toutes les cellules d'une colonne d'un tableau structuré situé dans le classeur.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro ou le nom de la colonne concernée. Si vide ou 0, alors prend la dernière colonne du tableau structuré.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-W. TS_OptionsStyle

La fonction TS_OptionsStyle définit les options de style du tableau structuré à afficher ou masquer.
Soit l’équivalant de l’onglet « Création » du ruban lorsque le tableau est sélectionné :


Image non disponible

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Bouton_Filtre : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • Ligne_Entête : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • Ligne_Totaux : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • Ligne_Bandes : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • Colonne_Bandes : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • Première_Colonne : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • Dernière_Colonne : (facultatif) True pour activer l’option, False pour désactiver l’option ;
  • StyleTableau : (facultatif) le nom du style du tableau structuré. Si l’argument est vide, alors le tableau sera sans style, s’il n’est pas renseigné le style ne sera pas modifié.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour masquer le bouton de filtre du tableau structuré nommé « TS_Eleves », afficher la ligne des totaux et le passer en style « moyen 6 » sans modifier les autres options :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_OptionsStyle(TS:=Tableau, Bouton_Filtre:=False, Ligne_Totaux:=True, StyleTableau:="TableStyleMedium6")
End Sub
'------------------------------------------------------------------------------------------------

Ou sans nommer les arguments (instruction plus courte, mais moins intuitive à relire) :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_OptionsStyle(Tableau, False, , True, , , , , "TableStyleMedium6")
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-X. TS_DéfinirTotaux

La fonction TS_DéfinirTotaux définit le calcul pour la ligne des totaux d'une colonne d’un tableau structuré.
Si l’option d’affichage de la ligne des totaux n’était pas active, elle l’est automatiquement par l’appel à cette fonction.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • TypeCalcul : une valeur de l’énumération XlTotalsCalculation
       - xlTotalsCalculationAverage : moyenne,
       - xlTotalsCalculationCount : décompte des cellules non vides,
       - xlTotalsCalculationCountNums : décompte des cellules contenant des valeurs numériques,
       - xlTotalsCalculationMax : valeur maximale dans la liste,
       - xlTotalsCalculationMin : valeur minimale dans la liste,
       - xlTotalsCalculationNone : aucun calcul,
       - xlTotalsCalculationStdDev : valeur écart-type,
       - xlTotalsCalculationSum : somme de toutes les valeurs de la colonne de liste.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour compter le nombre d’élèves et la note moyenne :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_DéfinirTotaux(Tableau, "Nom", xlTotalsCalculationCount)
Call TS_DéfinirTotaux(Tableau, "Note", xlTotalsCalculationAverage)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible

Remarque : nous étudierons dans un autre chapitre la mise en forme des cellules.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-Y. TS_FormatColonne

La fonction TS_FormatColonne définit le format numérique des cellules d'une colonne dans un tableau structuré. Les cellules masquées sont également affectées.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro de la colonne ou le nom de la colonne concernée, ou 0 pour traiter la dernière colonne ;
  • FormatColonne : le format numérique à appliquer ;
  • ForcerNumérique : (facultatif) si True alors remplace la virgule "," par un point "." pour qu'Excel reconnaisse les nombres comme des numériques et puisse les traiter correctement.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour mettre la dernière colonne en format date (jour/mois/année) du tableau structuré nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Call TS_FormatColonne(Range("TS_Eleves"), 0, "dd/mm/yyyy")
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



II-Z. TS_Aligner

La fonction TS_Aligner définit l'alignement vertical et/ou horizontal des données et/ou de l'en-tête et/ou du total d'une colonne dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro de la colonne ou le nom de la colonne concernée, ou 0 pour traiter la dernière colonne ;
  • AlignementHorizontal : (facultatif) définit l'alignement horizontal suivant l’énumération XlHAlign
       - -1 : (par défaut) ne modifie pas l'alignement,
       - xlHAlignCenter = Centrer,
       - xlHAlignCenterAcrossSelection = Centrer dans la sélection,
       - xlHAlignDistributed = Distribuer,
       - xlHAlignFill = Remplir,
       - xlHAlignGeneral = Aligner en fonction du type de données,
       - xlHAlignJustify = Justifier,
       - xlHAlignLeft = Gauche,
       - xlHAlignRight = Droite ;
  • AlignementVertical : (facultatif) définit l'alignement vertical suivant l’énumération XlVAlign
       - -1 : (par défaut) ne modifie pas l'alignement,
       - xlVAlignBottom = Inférieure,
       - xlVAlignCenter = Centre,
       - xlVAlignDistributed = Distribué,
       - xlVAlignJustify = Justifier,
       - xlVAlignTop = Haut ;
  • Aligner : (facultatif) définit quelles sont les cellules qui doivent être alignées suivant l’énumération personnelle Enum_TS_Aligner
       - TS_Aligner_Données  = (par défaut) les données,
       - TS_Aligner_Entete = l'en-tête,
       - TS_Aligner_Total = la ligne du total.
    Vous pouvez cumuler ces valeurs : TS_Aligner_Données + TS_Aligner_Entete + TS_Aligner_Total.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour centrer l'en-tête et le total et aligner à gauche les données de la dernière colonne :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Call TS_Aligner(Range("TS_Liste_Noms"),0,xlHAlignCenter, ,TS_Aligner_Total+TS_Aligner_Entete)
Call TS_Aligner(range("TS_Liste_Noms"),0,xlHAlignLeft)
End Sub
'------------------------------------------------------------------------------------------------



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III. Trier, filtrer les données d’un tableau structuré

Les différentes fonctions de ce chapitre permettent de trier et filtrer les données d’un tableau structuré.

III-A. TS_TrierUneColonne

La fonction TS_TrierUneColonne trie la colonne passée en argument, en tenant compte de la casse.
Les lignes masquées sont ignorées dans le tri.
Si l’option d’affichage de la ligne bouton de filtre n’était pas active elle le devient automatiquement par l’appel à cette fonction.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou zéro, alors la dernière colonne du tableau est traitée ;
  • Méthode : (facultatif) le paramètre de tri des données de l’énumération XlSortOn
       - xlSortOnValues : (par défaut) trie suivant les valeurs,
       - xlSortOnCellColor : trie suivant la couleur des cellules,
       - xlSortOnFontColor : trie suivant la couleur de police ;
  • Ordre : (facultatif) l’ordre de tri de l’énumération XlSortOrder
       - xlAscending : (par défaut) ordre croissant,
       - xlDescending : ordre décroissant ;
  • EffacerAncienTri : (facultatif) si True (par défaut) alors efface l'ancien tri, si False alors ajoute le tri à celui existant.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour trier les élèves par nom et prénom, dans l’ordre croissant :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")

Call TS_TrierUneColonne(TS:=Tableau, Colonne:="Nom", Méthode:=xlSortOnValues, Ordre:=xlAscending, _
                        EffacerAncienTri:=True)
                        
Call TS_TrierUneColonne(TS:=Tableau, Colonne:="Prénom", Méthode:=xlSortOnValues, Ordre:=xlAscending, _
                        EffacerAncienTri:=False)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III-B. TS_EffacerTri

La fonction TS_EffacerTri efface le tri de la colonne passée en argument ou de toutes les colonnes.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si cet argument vaut zéro alors la dernière colonne du tableau est traitée. S’il est vide alors tous les tris sont effacés.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour effacer tous les tris du tableau des élèves :

 
Cacher/Afficher le codeSélectionnez
------------------------------------------------------------------------------------------------
Sub Exemple()
‘------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_EffacerTri(TS:=Tableau, Colonne:="")
End Sub------------------------------------------------------------------------------------------------


Remarque : le fait d’effacer les tris n’a pas d’incidence sur l’ordre d’affichage du tableau structuré.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III-C. TS_Filtres_Existe

La fonction TS_Filtres_Existe renseigne si le tableau structuré passé en argument est filtré ou non, ou si une colonne particulière du tableau est filtrée.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : (facultatif, vide par défaut) le nom ou le numéro de la colonne qu'il faut analyser. Si cet argument vaut zéro alors la dernière colonne du tableau est traitée. S’il est vide alors tout le tableau est analysé.

La fonction renvoie True :
- si le tableau a au moins un filtre actif et que l'argument « Colonne » est vide,
- si la colonne indiquée est filtrée.
Ou False dans le cas contraire.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III-D. TS_Filtres_Poser

La fonction TS_Filtres_Poser pose un filtre sur une colonne du tableau structuré.
Le filtre peut contenir un ou deux critères.
Les critères ne sont pas sensibles à la casse.
Pour filtrer une date vous devrez convertir la date de référence au format "année/mois/jour". Et curieusement pour filtrer sur un même jour vous devrez utiliser deux opérateurs (inférieur ou égal et supérieur ou égal) car égal ne fonctionne pas. Voir l'exemple dans le code de la fonction.
Si l’option d’affichage de l’option bouton de filtre n’était pas active, elle le devient automatiquement par l’appel à cette fonction.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou zéro, alors la dernière colonne du tableau est traitée ;
  • Critère1 : le premier critère, à laisser vide pour effacer le filtre ;
  • Opérateur : (facultatif) l'opérateur logique s’il y a deux critères de l’énumération XlAutoFilterOperator(1)
       - xlAnd : opérateur logique « Et »,
       - XlOr : opérateur logique « Ou » ;
  • Critère2 : (facultatif) le second critère.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour filtrer dans le tableau des élèves les notes supérieures à 10, les noms commençant par les lettres « T » ou « C », les prénoms « Alex » ou « Sarah » ou « Toto » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_Filtres_Poser(Tableau, "Note", ">10")
Call TS_Filtres_Poser(Tableau, "Nom", "=t*", xlOr, "=c*")
Call TS_Filtres_Poser(Tableau, "Prénom", Array("alex", "sarah", "toto"))
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible

Exemple pour supprimer tous ces filtres :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_Filtres_Poser(Tableau, "Nom", "")
Call TS_Filtres_Poser(Tableau, "prénom", "")
Call TS_Filtres_Poser(Tableau, "note", "")
End Sub
'------------------------------------------------------------------------------------------------


Remarque : pour supprimer les filtres d’une colonne ou du tableau structuré, vous pouvez aussi utiliser la fonction TS_Filtres_Effacer, voir ci-après.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III-E. TS_Filtres_Effacer

La fonction TS_Filtres_Effacer efface le filtre d’une colonne ou de toutes les colonnes d’un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si cet argument vaut zéro, alors la dernière colonne du tableau est traitée. S’il est non renseigné ou vide, alors tous les filtres sont effacés.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour effacer tous les filtres du tableau des élèves :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_Filtres_Effacer(Tableau)
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III-F. TS_Filtres_Mémoriser

La fonction TS_Filtres_Mémoriser mémorise dans une variable les filtres d’un tableau structuré.
Ce traitement permettra de les restituer ultérieurement, voir la fonction TS_Filtres_Restaurer.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Mémoire : la mémoire à utiliser.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour mémoriser les filtres du tableau des élèves :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim MesFiltres As Variant
Call TS_Filtres_Mémoriser(Tableau, MesFiltres)
End Sub
'------------------------------------------------------------------------------------------------



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



 

III-G. TS_Filtres_Restaurer

La fonction TS_Filtres_Restaurer restaure les filtres préalablement mémorisés dans une variable par la fonction TS_Filtres_Mémoriser.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Mémoire : la mémoire à utiliser.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour mémoriser les filtres du tableau des élèves, les effacer pour poser un nouveau filtre sur les notes supérieures à 10, afficher le nombre de ces notes, puis restaurer l’ancienne situation :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range, MesFiltres As Variant
Set Tableau = Range("TS_Eleves")
Call TS_Filtres_Mémoriser(Tableau, MesFiltres)
Call TS_Filtres_Effacer(Tableau)
Call TS_Filtres_Poser(Tableau, "Note", ">10")
Call TS_DéfinirTotaux(Tableau, "note", xlTotalsCalculationCountNums)
MsgBox "Nombre de notes > 10"
Call TS_Filtres_Restaurer(Tableau, MesFiltres)
Call TS_OptionsStyle(Tableau, Ligne_Totaux:=False) 
End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



III-H. TS_CouleurLigneChangeValeur

La fonction TS_CouleurLigneChangeValeur alterne la couleur de fond des lignes visibles d'un tableau structuré à chaque changement de valeur dans la colonne de votre choix.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si le numéro est zéro, alors la dernière colonne du tableau est traitée. Si ce nom est vide ou -1 (valeur par défaut), alors efface toutes les couleurs des lignes visibles ;
  • CoulA : le numéro de la première couleur, ou -1 (valeur par défaut) pour ne pas appliquer de couleur ;
  • CoulB : le numéro de la seconde couleur, ou -1 (valeur par défaut) pour ne pas appliquer de couleur.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour alterner la couleur des lignes d'un tableau à chaque changement de Note :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves_1")
Call TS_CouleurLigneChangeValeur(TS:=Tableau, Colonne:="Note", CoulA:=14277081, CoulB:=14348258)

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible

Pour effacer les couleurs personnelles (sur les lignes visibles) et restaurer les couleurs par défaut du tableau structuré, ne renseignez pas l'argument "Colonne" de la fonction :

 
Sélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves_1")
Call TS_CouleurLigneChangeValeur(TS:=Tableau)

End Sub
'------------------------------------------------------------------------------------------------




Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



IV. Obtenir des informations sur les données d’un tableau structuré

Les deux premières fonctions de ce chapitre permettent d’obtenir des informations sur les dimensions d’un tableau structuré. Les deux suivantes renvoient des informations sur ses données.

IV-A. TS_Nombre_Lignes

La fonction TS_Nombre_Lignes renvoie le nombre de lignes du tableau structuré passé en argument.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré.

La fonction renvoie : le nombre de lignes du tableau structuré, donc zéro s’il est vide.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



IV-B. TS_Nombre_Colonnes

La fonction TS_Nombre_Colonnes renvoie le nombre de colonnes du tableau structuré passé en argument.

Son argument est :

  • TS : la plage (de type Range) qui représente le tableau structuré.

La fonction renvoie : le nombre de colonnes du tableau structuré.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



IV-C. TS_ValeurColonne

La fonction TS_ValeurColonne renvoie la valeur du calcul pour la ligne des totaux d'une colonne d’un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou zéro alors la dernière colonne du tableau est traitée ;
  • TypeCalcul : une valeur de l’énumération XlTotalsCalculation
       - xlTotalsCalculationAverage : moyenne,
       - xlTotalsCalculationCount : décompte des cellules non vides,
       - xlTotalsCalculationCountNums : décompte des cellules contenant des valeurs numériques,
       - xlTotalsCalculationMax : valeur maximale dans la liste,
       - xlTotalsCalculationMin : valeur minimale dans la liste,
       - xlTotalsCalculationStdDev : calcul l’écart-type standard,
       - xlTotalsCalculationSum : somme,
       - xlTotalsCalculationVar = (personalisé) nombre de cellules non numériques,
       - xlTotalsCalculationNone = (personnalisé) nombre de cellules vides ;
  • CellulesVisiblesUniquement : True pour ne pour ne traiter que les cellules visibles, False pour traiter toutes les cellules (y compris les filtrées et masquées).

La fonction renvoie : la valeur du calcul demandé ou Null si erreur.

Exemple pour obtenir la note moyenne des élèves (y compris les éléments filtrés) :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim Moyenne As Double
Moyenne = TS_ValeurColonne(Tableau, "Note", xlTotalsCalculationAverage, False)
End Sub
'------------------------------------------------------------------------------------------------


Remarque : vous pouvez aussi utiliser les fonctions d'Excel, par exemple :
Application.Evaluate("=COUNTIF(Tableau[Note],"">10"")") : nombre de notes supérieures à 10.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



IV-D. TS_InfoCellule

La fonction TS_InfoCellule renvoie des informations sur une cellule d’un tableau structuré, même si elle est masquée.

La cellule concernée est identifiée par sa position dans le tableau structuré. La première colonne vaut 1 (il est conseillé d’utiliser le nom de la colonne au lieu de son numéro), la première ligne vaut 1.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou zéro alors la dernière colonne du tableau est traitée ;
  • Ligne : la ligne concernée. Si cette valeur est zéro alors prend la dernière ligne du tableau structuré. Si elle est inférieure à zéro alors prend la ligne des totaux ;
  • TypeInfo : (facultatif) le type d’information désirée défini par une valeur de l’énumération personnelle Enum_InfoTS déclarée en en-tête du module
       - TS_Valeur : (par défaut) renvoie la valeur de la cellule,
       - TS_Formule : renvoie la formule de la cellule,
       - TS_CouleurTexte : renvoie la couleur de texte de la cellule,
       - TS_CouleurFond : renvoie la couleur de fond de la cellule,
       - TS_Gras : renvoie True si la cellule est en gras et False dans le cas contraire,
       - TS_Italique : renvoie True si la cellule est en italique et False dans le cas contraire,
       - TS_Visible : renvoie True si la cellule est visible et False dans le cas contraire,
       - TS_Format : renvoie le format de la cellule,
       - TS_Commentaire : renvoie le commentaire de la cellule,
       - TS_LienHypertexte : renvoie le lien hypertexte de la cellule.

La fonction renvoie l’information sur la cellule suivant l’option demandée, même si elle est masquée.

Exemple pour boucler sur les lignes du tableau structuré « TS_Eleves » et afficher dans le débogueur leur note :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim Ligne As Long
For Ligne = 1 To TS_Nombre_Lignes(Tableau)
    Debug.Print TS_InfoCellule(Tableau, "Note", Ligne, TS_Valeur)
Next Ligne
End Sub
'------------------------------------------------------------------------------------------------



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



V. Rechercher, sélectionner, modifier les données d’un tableau structuré

Les différentes fonctions de ce chapitre permettent de rechercher, sélectionner ou modifier les données d’un tableau structuré.

V-A. TS_Rechercher

La fonction TS_Rechercher recherche une donnée et renvoie le numéro de la ligne où elle se trouve.
La recherche peut comporter jusqu’à 16 colonnes dans ses critères.
Les lignes masquées sont incluses dans la recherche.
Les critères peuvent être passés « en dur » ou par un tableau.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • RespecterCasse : True pour respecter la casse ou False pour l’ignorer ;
  • ListeColonnesValeurs : la liste des colonnes et valeurs de type ParamArray (tableau de paramètres), séparées par une virgule.

La fonction renvoie : le numéro de la ligne qui correspond aux critères de recherche ou zéro si rien n’est trouvé.

Exemple pour rechercher la ligne où se trouve l’élève dont le nom est « TINE » et le prénom « Clément » (en respectant la casse) :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim Ligne As Long
Ligne = TS_Rechercher(Tableau, True, "Nom", "TINE", "Prénom", "Clément")
End Sub
'------------------------------------------------------------------------------------------------


Exemple pour rechercher la même chose mais les critères sont passés en utilisant un tableau :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim Ligne As Long
Dim T(1 To 4) As Variant
T(1) = "Nom"
T(2) = "TINE"
T(3) = "Prénom"
T(4) = "Clément"
Ligne = TS_Rechercher(Tableau, True, T)
End Sub
'------------------------------------------------------------------------------------------------


Remarque : pour une recherche de date, pensez à convertir la date en valeur par l’instruction DateValue(MaDate)


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



V-B. TS_RechercherVisible

La fonction TS_RechercherVisible recherche une valeur dans une colonne d'un tableau structuré uniquement pour les lignes visibles et renvoie la ligne trouvée.
En option vous pouvez indiquer si la recherche doit respecter ou non la casse et s'il faut ou non une correspondance exacte.
Par défaut la fonction renvoie le numéro de la première ligne trouvée ou zéro si rien n’est trouvé, mais vous pouvez aussi lui demander de renvoyer la valeur de la colonne de votre choix (équivalent à RechercheV), ou la valeur à renvoyer si la recherche est infructueuse.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro de la colonne ou le nom de la colonne concernée, ou 0 pour traiter la dernière colonne ;
  • ValeurCherchée : la valeur qu'il faut chercher ;
  • RespecterCasse : True pour respecter la casse ou False pour l’ignorer ;
  • ValeursOuFormules : énumération Enum_ValeursOuFormules pour indiquer si la recherche porte sur la valeur de la cellule ou sur sa formule :
       - TS_Valeurs : recherche dans les valeurs,
       - TS_Formules : recherche dans les formules.
  • Correspondance : (facultatif) indique le mode de recherche :
       - xlWhole : (par défaut) détecte une correspondance avec l'ensemble du texte recherché,
       - xlPart : détecte une correspondance avec une partie du texte recherché ;
  • ColonneRenvoyée : (facultatif) le nom ou le numéro de la colonne concernée. Si ce numéro est zéro, alors la dernière colonne du tableau structuré est traitée ;
  • ValeurSiNonTRouvé : (facultatif) la valeur à renvoyer si la recherche ne trouve rien.

La fonction renvoie :

  • - si ColonneRenvoyée < 0 : Le numéro de la 1ère ligne trouvée ou 0 si rien n'est trouvé ;
  • - si ColonneRenvoyée >= 0 : La valeur contenue dans la colonne indiquée pour la ligne trouvée, ou la valeur de l'argument ValeurSiNonTRouvé si rien n'est trouvé.

Exemple pour rechercher la ligne où se trouve l’élève dont le nom est « FIL » dans un tableau nommé « TS_Eleves » en respectant la casse :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim Ligne As Long
Ligne = TS_RechercherVisible(Tableau, "Nom", "FIL", True, TS_Valeurs)
End Sub
'------------------------------------------------------------------------------------------------


Remarque : Cette fonction est plus rapide que la fonction TS_Rechercher car elle utilise la propriété Find au lieu d'une boucle sur les lignes du tableau.
Elle permet aussi de ne faire la recherche que sur les lignes visibles. En contrepartie la recherche ne porte que sur une colonne.


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



V-C. TS_Remplacer

La fonction TS_Remplacer remplace une valeur dans une colonne d'un tableau structuré.
Attention :
- si le tableau est sur la feuille active les cellules masquées ne sont pas traitées ;
- si le tableau n'est pas sur la feuille active les cellules masquées sont traitées.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le numéro de la colonne ou le nom de la colonne concernée, ou 0 pour traiter la dernière colonne ;
  • ValeurCherchée : la valeur qu'il faut remplacer ;
  • ValeurRemplacement : la valeur de remplacement ;
  • RespecterCasse : True pour respecter la casse ou False pour l’ignorer ;
  • Correspondance : (facultatif) Indique le mode de recherche :
    - xlPart : détecte une correspondance avec une partie du texte recherché,
    - xlWhole : (valeur par défaut) détecte une correspondance avec l'ensemble du texte recherché.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour remplacer toutes les notes 14 par 15 dans le champ « Note » un tableau nommé « TS_Eleves » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_Remplacer(Tableau, "Note", 14, 15, True)
End Sub
'------------------------------------------------------------------------------------------------


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



V-D. TS_Sélectionner

La fonction TS_Sélectionner sélectionne une plage dans un tableau structuré.
La plage peut être une cellule, une ligne entière, une colonne entière ou l’ensemble des données du tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : (facultatif) le nom ou le numéro de la colonne concernée. Si ce numéro est zéro, alors la dernière colonne du tableau structuré est traitée. Si cet argument n’est pas renseigné ou est vide, alors la ligne renseignée sera entièrement sélectionnée ;
  • Ligne : (facultatif) la ligne concernée. Si cette valeur est zéro, alors la dernière ligne du tableau structuré est traitée. Si elle est inférieure à zéro, alors la ligne des totaux est traitée. Si cet argument n’est pas renseigné ou est vide, alors la colonne renseignée sera entièrement sélectionnée (juste les cellules visibles).

Si la colonne et la ligne ne sont pas renseignées, alors la sélection porte sur toutes les données du tableau structuré (juste les cellules visibles).

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Plusieurs exemples pour faire des sélections du tableau structuré des élèves, respectivement :

  • l’ensemble des données visibles du tableau structuré ;
  • la colonne « Nom » (juste les cellules visibles) ;
  • la cellule située sur la 5e ligne de la colonne « Nom » ;
  • la cellule située sur la dernière ligne de la colonne « Nom » ;
  • le total de la colonne « Nom » ;
  • la 5e ligne ;
  • la dernière ligne ;
  • la ligne des totaux.
 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_Sélectionner(Tableau)
Call TS_Sélectionner(Tableau, "Nom")
Call TS_Sélectionner(Tableau, "Nom", 5)
Call TS_Sélectionner(Tableau, "Nom", 0)
Call TS_Sélectionner(Tableau, "Nom", -1)
Call TS_Sélectionner(Tableau, "", 5)
Call TS_Sélectionner(Tableau, "", 0)
Call TS_Sélectionner(Tableau, "", -1)
End Sub
'------------------------------------------------------------------------------------------------


Remarque : une fois les cellules sélectionnées, le programmeur peut les parcourir pour les analyser, les modifier ou leur appliquer un format, comme dans ces exemples :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Dim C As Range
Call TS_Sélectionner(Tableau, "Nom", "") ' Sélectionne la colonne "Nom".
For Each C In Selection
    Debug.Print C          ' Affiche les noms. 
Next C
'------------------------------------------------------------------------------------------------

'------------------------------------------------------------------------------------------------
Call TS_Sélectionner(Tableau, "Note", "") ' Sélectionne la colonne "Note".
Selection.NumberFormat = "#0"             ' Modifie le format numérique.			
'------------------------------------------------------------------------------------------------



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



V-E. TS_Range

La fonction TS_Range renvoie une plage de données d'un tableau structuré. La plage peut être une cellule, une ligne, une colonne. La feuille du tableau structuré n'a pas besoin d'être active.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • VisibleUniquement : Si True seules les données visibles sont traitées, si False les données masquées sont prises en compte également ;
  • Colonne : le numéro de la colonne, ou le nom de la colonne. Si 0 est renseigné alors prend la dernière colonne. Si la colonne n'est pas renseignée alors traite la ligne entière renseignée ;
  • Ligne : la ligne concernée. Si 0 est renseigné alors prend la dernière ligne. Si inférieur à 0 alors prend la ligne des totaux. Si la ligne est non renseignée alors traite la colonne entière renseignée.

Si la colonne et la ligne ne sont pas renseignées, alors sélectionne toutes les données du tableau structuré.

La fonction renvoie : un Range de la sélection faite ou Nothing.

Plusieurs exemples pour renvoyer un Range du tableau structuré des élèves, respectivement :

  • pour renvoyer les données de la colonne « Nom » (sans l'en-tête et le total) ;
  • pour renvoyer la cellule située 5e ligne de la colonne « Nom » ;
  • pour renvoyer la dernière ligne de la colonne « Nom » ;
  • pour renvoyer la cellule située sur la dernière ligne de la colonne « Nom » ;
  • pour renvoyer le total de la colonne « Nom » ;
  • pour renvoyer la 5e ligne ;
  • pour renvoyer la dernière ligne ;
  • pour renvoyer la ligne des totaux ;
  • pour ne renvoyer que les données visibles du Tableau Structuré.


 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim r as Range
Set r = TS_Range(TS, False, "Nom") ' pour renvoyer les données de la colonne "Nom" (sans l'en-tête et le total).
Set r = TS_Range(TS, False, "Nom", 5) ' pour renvoyer la cellule située 5ème ligne de la colonne "Nom"
Set r = TS_Range(TS, False, "Nom", 0) ' pour renvoyer la dernière ligne de la colonne "Nom".
Set r = TS_Range(TS, False, "Nom", -1) ' pour renvoyer le total de la colonne "Nom".
Set r = TS_Range(TS, False, , 5) ' pour renvoyer la 5ème ligne.
Set r = TS_Range(TS, False, , 0) ' pour renvoyer la dernière ligne.
Set r = TS_Range(TS, False, , -1) ' pour renvoyer la ligne des totaux.
Set r = TS_Range(TS, True) ' pour ne renvoyer que les données visibles du Tableau Structuré.

' Vous pouvez utilise r comme une plage ordinaire, exemples:
' r.Count/r.Columns.Count = nombre le lignes, r.Columns.Count = nombre de colonnes, 
' r.Cells(1, 1).Value = valeur cellule.
End Sub
'------------------------------------------------------------------------------------------------


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



V-F. TS_ModifCellule

La fonction TS_ModifCellule modifie les informations sur une cellule d’un tableau structuré, même si elle est masquée.
La cellule concernée est identifiée par sa position dans le tableau structuré. La première colonne vaut 1 (il est conseillé d’utiliser le nom de la colonne au lieu de son numéro), la première ligne vaut 1.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou zéro, alors la dernière colonne du tableau est traitée ;
  • Ligne : la ligne concernée. Si cette valeur est zéro, alors prend la dernière ligne du tableau structuré. Si elle est inférieure à zéro, alors prend la ligne des totaux ;
  • Valeur : la valeur de référence qui sera utilisée pour modifier la cellule ;
  • TypeInfo : (facultatif) le type d’information désiré défini par une valeur de l’énumération personnelle Enum_InfoTS déclarée en en-tête du module
       - TS_Valeur : (par défaut) modifie la valeur de la cellule,
       - TS_Ajouter : ajoute à la valeur existante la valeur passée dans Valeur,
       - TS_Soustraire : soustrait à la valeur existante la valeur passée dans Valeur,
       - TS_Multiplier : multiplie la valeur existante par la valeur passée dans Valeur,
       - TS_Diviser : divise la valeur existante par la valeur passée dans Valeur,
       - TS_Formule : applique à la cellule la formule passée dans Valeur,
       - TS_CouleurTexte : applique à la cellule la couleur de texte passée dans Valeur,
       - TS_CouleurFond : applique à la cellule la couleur de fond passée dans Valeur (si Valeur est vide alors efface la couleur de fond),
       - TS_Gras : met la cellule en gras ou non selon que Valeur vaut True ou False,
       - TS_Italique : met la cellule en italique ou non selon que Valeur vaut True ou False,
       - TS_Format : applique à la cellule le format passé dans Valeur,
       - TS_Commentaire : applique à la cellule le commentaire passé dans Valeur ou l’efface si Valeur est vide,
       - TS_ImageCommentaireJPG : applique au commentaire l'image "jpg" passée dans Valeur ou l’efface si Valeur est vide,
       - TS_LienHypertexte : applique à la cellule le lien hypertexte passé dans Valeur ou l’efface si Valeur est vide ;
  • LargeurCommentaire : (facultatif) la largeur du commentaire (ou 0 pour la taille par défaut) ;
  • HauteurCommentaire: (facultatif) la hauteur du commentaire (ou 0 pour la taille par défaut).
  • Mémoire : (facultatif) la mémoire qui représente une image du tableau et où sont faites les modifications. Cela permet d'être plus rapide sur les traitements en boucle qui appellent de nombreuses fois TS_ModifCellule (même avec écran et calculs bloqués). Utilisez TypeInfo = TS_ViderMémoire pour actualiser le tableau avec cette image. Une fois vidée, la mémoire peut être réutilisée pour servir d'image à un tableau.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Plusieurs exemples pour modifier la dernière ligne de la colonne « Note » du tableau structuré des élèves, respectivement :

  • pour passer la note à 15 ;
  • pour ajouter 2 à la note existante ;
  • pour la mettre en gras ;
  • pour la mettre en rouge ;
  • pour y ajouter un commentaire qui sera affiché dans une infobulle de 120 sur 20.
 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_ModifCellule(Tableau, "Note", 0, 15)
Call TS_ModifCellule(Tableau, "Note", 0, 2, TS_Ajouter)
Call TS_ModifCellule(Tableau, "Note", 0, True, TS_Gras)
Call TS_ModifCellule(Tableau, "Note", 0, 255, TS_CouleurTexte)
Call TS_ModifCellule(Tableau, "Note", 0, "De gros efforts réalisés.", TS_Commentaire, 120, 20)
End Sub
'------------------------------------------------------------------------------------------------


Remarque : cette fonction permet aussi de modifier les formules de la ligne des totaux (pour y mettre des formules personnalisées) par exemple pour avoir la moyenne des notes y compris quand des lignes sont masquées :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Call TS_ModifCellule(Tableau, "Note", -1, "=SUM(TS_Eleves[Note])/COUNT(TS_Eleves[Note])", TS_Formule)
End Sub
'------------------------------------------------------------------------------------------------


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



Pour accélérer les traitements de mise à jour des données il est conseillé d'utiliser Application.ScreenUpdating = False pour éviter la mise à jour de l'écran et Application.Calculation = xlCalculationManual pour bloquer les calculs.
Puis vous restaurez la situation avec Application.Calculation = xlCalculationAutomatic et Application.ScreenUpdating = True.

Il y a encore plus rapide, en utilisant une mémoire cache qui représente les données du tableau structuré.
Les données sont mises à jour dans cette mémoire et à la fin du traitement le tableau est alimenté par cette mémoire.
Les traitements sont alors environ cinq fois plus rapides qu'avec l'écran et les calculs bloqués, ce qui n'est pas négligeable, et les propriétés Application.Calculation et Application.ScreenUpdating n'ont même pas besoin d'être utilisées.

La fonction TS_ModifCellule gère cela en passant dans son argument Mémoire une variable préalablement déclarée de type Variant.
Utilisez la fonction TS_ModifCellule dans vos traitements comme d'habitude sans oublier de renseigner l'argument Mémoire.

Pour basculer la mémoire dans le tableau structuré faites un nouvel appel à la fonction TS_ModifCellule en utilisant TS_ViderMémoire comme valeur de l'argument TypeInfo.
Cette appel vide la mémoire qui peut être réutilisée pour servir d'image cache à un autre tableau.
Les arguments obligatoires Colonne, Ligne et Valeur n'ont pas d'utilité et peuvent être laissés à zéro.



 
Cacher/Afficher le codeSélectionnez
Dim M As Variant, i As Integer
For i=1 to 1000: Call TS_ModifCellule(Range("Tableau1"), 1, 1, 10, TS_Ajouter, , , M): Next i
Call TS_ModifCellule(Range("Tableau1"), 0, 0, "", TS_ViderMémoire, , , M)



V-G. TS_ForcerValeurColonne

La fonction TS_ForcerValeurColonne met une valeur unique dans une colonne d'un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • Colonne : le nom ou le numéro de la colonne concernée. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • Valeur : la valeur qu'il faut utiliser ;
  • VisibleUniquement : si True alors ne traite que les lignes visibles, si False alors traite toutes les lignes même les masquées.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour mettre la valeur "Ok" dans la colonne "Admis" pour les élèves dont la note est supérieure ou égale à 10 :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves_1")

' Filtre les notes >= 10:
Call TS_Filtres_Poser(Tableau, "Note", ">=10")

' Force la valeur OK dans la colonne "Admis" pour les lignes visibles:
Call TS_ForcerValeurColonne(TS:=Tableau, Colonne:="Admis", Valeur:="OK", VisibleUniquement:=True)

' Efface le filtre:
Call TS_Filtres_Effacer(Tableau)

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI. Importer, exporter des données d’un tableau structuré

Ce chapitre est consacré à l’importation et l’exportation des données.

VI-A. TS_ImporterDonnées (version importation)

La fonction TS_ImporterDonnées permet d’importer des données depuis un autre tableau structuré en sélectionnant les critères d’importation.
Toutes les colonnes du tableau de destination qui ont une correspondance dans le tableau qui contient les données à importer sont traitées, les autres colonnes sont ignorées.

ATTENTION : Les lignes masquées du tableau structuré qui contient les données à importer ne sont pas importées. Ce qui permet (éventuellement) de faire en amont une règle de gestion des importations.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré où seront importées les données (c’est-à-dire le tableau destination) ;
  • TD : la plage (de type Range) qui représente le tableau structuré source d’où proviennent les données ;
  •  Méthode : la méthode d’importation désirée définie par une valeur de l’énumération personnelle Enum_ImportationTS déclarée en en-tête du module
       - TS_Ajout_Forcé : ajoute les lignes au tableau d'origine même si elles existent déjà (dans ce cas laissez ListeColonnesClés à vide),
       - TS_MAJ_Uniquement : ne fait que des mises à jour et refuse les ajouts,
       - TS_MAJ_Ou_Ajout : fait une mise à jour si possible ou un ajout si la donnée est nouvelle,
       - TS_IgnorerSiExiste : ne tient pas compte de la donnée si elle existe déjà ;
  • RespecterCasse : True pour respecter la casse ou False pour l’ignorer ;
  • ListeColonnesClés : la liste des colonnes (en-tête) qui servent de clés de référence dans la comparaison des mises à jour, de type ParamArray (tableau de paramètres), séparées par une virgule.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Remarque : l’importation nécessite que les deux tableaux aient en commun les champs utilisés pour la clé.

Exemple d’importation de données pour mettre à jour les notes des élèves du tableau structuré d’origine « TS_Eleves » (tableau de gauche) et y ajouter les nouveaux élèves, avec les données du tableau structuré « Données » (tableau de droite) :


Image non disponible

Les clés seront « Nom » et « Prénom », champs présents dans les deux tableaux (l’ordre n’a pas d’importance).
La colonne « Note », présente dans les deux tableaux sera traitée et mettra à jour le tableau d’origine, inversement, la colonne « Date » sera ignorée puisque qu’elle n’a pas de correspondance dans le tableau d’origine (une importation serait possible si l’on ajoutait ce champ au tableau d’origine, il n’y a pas de limite dans le nombre de colonnes qui peuvent être mises à jour).
La méthode d’importation sera « TS_MAJ_Ou_Ajout » pour mettre à jour la note des élèves existants et ajouter les nouveaux élèves.
La casse sera ignorée car les données à importer ont parfois un format différent.
Les éventuels filtres du tableau structuré « Données » seront effacés pour importer toutes les données.
En cas d’erreur de traitement, un message le signale :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim TD As Range
Set TD = Range("Données")

' Efface les éventuels filtres sur le tableau des données à importer :
Call TS_Filtres_Effacer(TD)

' Importe les données suivant les clés Nom et Prénom, renvoie False en cas d’erreur et l’affiche :
If TS_ImporterDonnées(Tableau, TD, TS_MAJ_Ou_Ajout, False, "Nom", "prénom") = False Then
    MsgBox TS_Err_Number & " : " & TS_Err_Description, vbCritical, "Erreur de traitement"
End If 

End Sub
'------------------------------------------------------------------------------------------------


Ce qui donne :


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-B. TS_ImporterDonnées (version exportation)

La fonction TS_ImporterDonnées permet aussi d’exporter des données vers un autre tableau structuré.

Puisque ce qui est une importation pour l’un est une exportation pour l’autre.

ATTENTION : Les lignes masquées du tableau structuré qui contient les données à exporter ne sont pas exportées. Ce qui permet (éventuellement) de faire en amont une règle de gestion des importations.

Exemple d’exportation des données du tableau des élèves pour avoir une liste sans doublon des noms dans un nouveau tableau structuré sur la feuille « Feuil2 » qui sera nommé « Tableau_Noms » :

La clé sera le « Nom ».
La méthode sera « TS_MAJ_Ou_Ajout » pour éviter justement les doublons.
Un tableau structuré sera généré pour recevoir les données qui seront classées par ordre croissant :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Set Tableau = Range("TS_Eleves")
Dim TS_Destination As Range

' Suppression de l'éventuel ancien tableau (erreur générée si Range("Tableau_Noms") n’existe pas):
On Error Resume Next
Set TS_Destination = Range("Tableau_Noms")
Call TS_SupprimerLeTableau(TS_Destination)

' Gestion des erreurs:
On Error GoTo Gest_Err
Err.Clear

' Création du tableau sans doublon:
Set TS_Destination = TS_CréerUnTableau(Plage:=ThisWorkbook.Sheets("Feuil2").Range("A1"), _
                                       Titres:="Nom", _
                                       Nom:="Tableau_Noms", _
                                       Style:="*")

' Importation des données sans doublons:
Call TS_ImporterDonnées(TS_Destination, Tableau, TS_MAJ_Ou_Ajout, True, "Nom")

' Tri de la colonne:
Call TS_TrierUneColonne(TS:=TS_Destination, _
                        Colonne:="Nom", _
                        Méthode:=xlSortOnValues, _
                        Ordre:=xlAscending, _
                        EffacerAncienTri:=True) 

' Gestion des erreurs:
Gest_Err:
If Err.Number <> 0 Then MsgBox Err.Number & " : " & Err.Description, vbCritical, Err.Source

End Sub
'------------------------------------------------------------------------------------------------


Ce qui donne :


Image non disponible



VI-C. TS_ExporterEnFichier

La fonction TS_ExporterEnFichier exporte un tableau structuré du classeur actif en fichier image JPG ou BMP, en fichier au format « Portable Document Format » PDF, en fichier texte au format CSV, ou en fichier Excel.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • FormatFichier : le format de fichier à générer suivant l’énumération Enum_ExportationTS
       - TS_XLSX : fichier Excel,
       - TS_CSV : fichier texte au format CSV avec le séparateur point-virgule (les lignes masquées ne sont pas reprises),
       - TS_BMP : fichier image au format BMP,
       - TS_JPG : fichier image au format JPG,
       - TS_PDF : fichier au format PDF ;
  • OuvrirFichier : si True alors ouvre le fichier généré.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple pour exporter le tableau structuré nommé « TS_Eleves » en fichier PDF et l’ouvrir :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
If TS_ExporterEnFichier(Range("TS_Eleves"), TS_PDF, "P:\Fichier\Tableau_Eleves.pdf", True) = False Then
    MsgBox TS_Err_Number & " : " & TS_Err_Description, vbCritical, "Erreur de conversion en PDF"
End If
'------------------------------------------------------------------------------------------------


Image non disponible


Vous trouverez en annexe 2 un code VBA pour fusionner deux fichiers PDF si vous disposez de l’application « Adobe Acrobat Pro ».



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-D. TS_EnregistrerDansAccess

La fonction TS_EnregistrerDansAccess enregistre un tableau structuré ou certaines de ses colonnes dans une base Access. Les éventuels enregistrements de la table préalablement créée ne sont pas effacés, les nouveaux enregistrements issus du tableau structuré y sont ajoutés. La fonction ne prend pas en charge les règles de gestion de la table Access, il conviendra donc de s'assurer que les données du tableau structuré sont cohérentes avec la table de destination pour ne pas générer une erreur d'importation dans Access.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré ;
  • BaseAccess : le nom complet de la base Access (y compris son dossier) ;
  • TableAccess : le nom de la table dans la base ;
  • MotDePasse : éventuellement le mot de passe qui protège la base Access ;
  • ListeChampsColonnes : la liste des couples sous forme d'un Array (c'est-à-dire entre guillemets et séparés par une virgule) des champs de la table et des colonnes du tableau structuré (voir exemple). S'il faut prendre une valeur fixe pour un champ et non pas la valeur de la colonne alors faire précéder le nom du champ par ">" (supérieur). Laissez vide pour prendre toutes les colonnes à l'identique des champs ;
  • VisibleUniquement : si True alors ne traite que les lignes visibles, si False alors traite toutes les lignes même les masquées.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple d'utilisation :

Soit une base Access "P:\Test.accdb" avec une table "Table_1" qui contient les champs "A", "B" qu'il faut alimenter par les colonnes "Nom", "Prénom" du tableau structuré "TS_Eleves_1" pour toutes les lignes, même masquées :

 
Sélectionnez
Call TS_EnregistrerDansAccess(Range("TS_Eleves_1"), "P:\Test.accdb", "Table_1", "", Array("A", "Nom", "B", "Prénom"), False)

Si les champs de la table Access ont le même nom que les en-têtes du tableau structuré, il est possible de remplacer par :

 
Sélectionnez
Call TS_EnregistrerDansAccess(Range("TS_Eleves_1"), "P:\Test.accdb", "Table_1", "", "", False)

c'est-à-dire sans renseigner l'argument "ListeChampsColonnes".

Pour forcer une valeur fixe pour un champ et non pas la valeur de la cellule de la colonne, faire précéder le nom du champ par ">" (supérieur).
Exemple pour ajouter l'utilisateur en cours (obtenu par Application.UserName) dans le champ "Qui" :

 
Sélectionnez
Call TS_EnregistrerDansAccess(Range("TS_Eleves"), "P:\Test.accdb", "Table_1", "", Array("Nom", "Nom", "Prénom", "Prénom", ">Qui", Application.UserName), False)




Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-E. TS_ImporterDepuisAccess

La fonction TS_ImporterDepuisAccess recopie les enregistrements d'une table ou d'une requête d'une base Access dans un tableau structuré.

Ses arguments sont :

  • TS : la plage (de type Range) qui représente le tableau structuré (s'il n'y pas assez de colonnes dans le tableau pour recevoir les données importées elles seront ajoutées automatiquement) ;
  • BaseAccess : le nom complet de la base Access (y compris son dossier) ;
  • MotDePasse : éventuellement le mot de passe qui protège la base Access ;
  • ListeDesChamps : la liste des champs à récupérer, séparés par une virgule. Mettre les champs entre des crochets ouverts "[" et fermés "]" s'ils contiennent des espaces. Laissez à vide pour reprendre tous les champs ;
  • SQLWhere : la requête d'instruction en langage SQL permettant d'identifier la sélection (sans le mot clé WHERE). Si SQLWhere vaut "" alors toute la table est sélectionnée ;
  • Méthode : indique si les données importées doivent remplacer celles existantes dans le tableau structuré ou y être ajoutées, suivant l'énumération personnelle Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes.

La fonction renvoie : le nombre de lignes importées ou -1 en cas d'erreur.

Exemple d'utilisation pour importer dans le tableau structuré « TS_Eleves » tous les champs de la table des élèves « Eleves » de la base Access « Ecole.accdb » dont la note est supérieure à 10 (et effacer les éventuelles données antérieures) :

 
Sélectionnez
Call TS_ImporterDepuisAccess(Range("TS_Eleves"), "C:\Access\Ecole.accdb", "Eleves", "", "", "Note>10", TS_RemplacerDonnées)


Si besoin vous trouverez en Annexe 1 plus d'informations sur le langage SQL.





Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-F. TS_RequeteBaseAccess

La fonction TS_RequeteBaseAccess permet de faire des requêtes sur les enregistrements d'une base Access.

Ses arguments sont :

  • BaseAccess : le nom complet de la base Access (y compris son dossier) ;
  • MotDePasse : éventuellement le mot de passe qui protège la base Access ;
  • StrSQL : la requête d'instruction en langage SQL.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Exemple d'utilisation pour supprimer tous les enregistrements de table "T_Notes" dans la base Eleves (à utiliser avant d'y copier de nouveaux enregistrements en remplacement des anciens, voir le chapitre précédent) :

 
Sélectionnez
Call TS_RequeteBaseAccess("P:\Eleves.accdb"), "", "DELETE * FROM [T_Notes]")


Si besoin vous trouverez en Annexe 1 plus d'informations sur le langage SQL.





Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-G. TS_CopierUneColonne

La fonction TS_CopierUneColonne copie une colonne d'un tableau structuré dans un autre tableau structuré.

Ses arguments sont :

  • TS_Source : la plage (de type Range) du tableau structuré source où se trouve la colonne à copier ;
  • Colonne_Source : le nom ou le numéro de la colonne à copier. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • TS_Dest : la plage (de type Range) du tableau structuré destination où il faut copier la colonne (la feuille doit être active) ;
  • Colonne_Dest : le nom ou le numéro de la colonne où copier les données. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • Ligne_Dest : ligne où commencer la copie, par exemple 1 pour copier à la première ligne du tableau, ou 0 pour la dernière ligne du tableau ;
  • Méthode : énumération XlCellType par défaut xlCellTypeVisible pour les cellules visibles uniquement.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Remarque : si vous utilisez la méthode xlCellTypeVisible (par défaut) pensez à effacer les filtres du tableau structuré source si vous voulez copier toutes les données de la colonne et pas uniquement les cellules visibles.


Exemple pour sélectionner les élèves admis du tableau « TS_Eleves_1 » et recopier les colonnes « Nom » et « Prénom » dans le tableau « TS_Eleves_2 » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Dim Destination As Range

Set Tableau = Range("TS_Eleves_1")
Set Destination = Range("TS_Eleves_2")

' Filtre les Admis = OK du tableau source:
Call TS_Filtres_Effacer(Tableau)
Call TS_Filtres_Poser(Tableau, "Admis", "Ok")

' Effacer les lignes du tableau destination:
Call TS_EffacerToutesLignes(Destination)
Call TS_SupprimerPlusieursLignes(Destination, 2, 0)

' Recopie les élèves dans le tableau destination:
Call TS_CopierUneColonne(Tableau, "Nom", Destination, "Nom", 1, xlCellTypeVisible)
Call TS_CopierUneColonne(Tableau, "Prénom", Destination, "Prénom", 1, xlCellTypeVisible)

' Efface le filtre sur Admis:
Call TS_Filtres_Effacer(Tableau)

' Se place sur le premier nom du tableau destination:
Call TS_Sélectionner(Destination, 1, 1)

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-H. TS_CopierValeurColonne

La fonction TS_CopierValeurColonne copie en valeur une colonne d'un tableau structuré dans un autre tableau structuré, ou dans le même tableau, voire dans la même colonne ce qui équivaut dans ce cas à un copier/coller en valeur.
Les tableaux n'ont pas besoin d'être sur la feuille active ni sur la même feuille.

Ses arguments sont :

  • TS_Source : la plage (de type Range) du tableau structuré source où se trouve la colonne à copier ;
  • Colonne_Source : le nom ou le numéro de la colonne à copier. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • TS_Dest : la plage (de type Range) du tableau structuré destination où il faut copier la colonne ;
  • Colonne_Dest : le nom ou le numéro de la colonne où copier les données. Si ce nom est vide ou contient zéro, alors la dernière colonne du tableau est traitée ;
  • Méthode : indique si les données à copier doivent remplacer celles existantes dans le tableau structuré ou y être ajoutées, suivant l'énumération personnelle Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes ;
  • VisibleUniquement : Si True seules les données visibles sont traitées, si False les données masquées sont prises en compte également.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Remarque : contrairement à la fonction TS_CopierUneColonne, la fonction TS_CopierValeurColonne ne copie que les valeurs, mais elle se révèle beaucoup plus rapide, c'est pourquoi je la préfère.


Exemple pour sélectionner les élèves admis du tableau « TS_Eleves_1 » et recopier les colonnes « Nom » et « Prénom » dans le tableau « TS_Eleves_2 » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Dim Destination As Range

Set Tableau = Range("TS_Eleves_1")
Set Destination = Range("TS_Eleves_2")

' Filtre les Admis = OK du tableau source:
Call TS_Filtres_Effacer(Tableau)
Call TS_Filtres_Poser(Tableau, "Admis", "Ok")

' Effacer les lignes du tableau destination:
Call TS_EffacerToutesLignes(Destination)
Call TS_SupprimerPlusieursLignes(Destination, 2, 0)

' Recopie les élèves dans le tableau destination:
Call TS_CopierValeurColonne(Tableau, "Nom", Destination, "Nom", TS_RemplacerDonnées, True)
Call TS_CopierValeurColonne(Tableau, "Prénom", Destination, "Prénom", TS_RemplacerDonnées, True)

' Efface le filtre sur Admis:
Call TS_Filtres_Effacer(Tableau)

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-I. TS_CopierUneLigne

La fonction TS_CopierUneLigne copie une ligne (en valeur ou en formule) d'un tableau structuré dans un autre tableau structuré, ou dans le même tableau.
Les tableaux n'ont pas besoin d'être sur la feuille active ni sur la même feuille.

Ses arguments sont :

  • TS_Source : la plage (de type Range) du tableau structuré source où se trouve la ligne à copier ;
  • Ligne_Source : le numéro de la ligne à copier. Si zéro alors la dernière ligne du tableau est traitée ;
  • TS_Dest : la plage (de type Range) du tableau structuré destination où il faut copier la ligne ;
  • Ligne_Dest : le nom de la ligne où copier les données. Si zéro alors la dernière ligne du tableau est traitée ;
  • ValeursOuFormules : énumération Enum_ValeursOuFormules pour indiquer s'il faut copier les valeurs ou les formules :
       - TS_Valeurs : copie des valeurs,
       - TS_Formules : copie des formules.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.

Remarque: Si le tableau destination à moins de colonnes que la source, la copie se limite aux colonnes existantes. S'il en a plus, les colonnes supplémentaires sont effacées.



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-J. TS_CopierUnTableau

La fonction TS_CopierUnTableau copie l'intégralité d'un tableau structuré (y compris les colonnes masquées) dans un autre tableau structuré. Les données copiées sont soit les valeurs soit les formules.
La fonction gère aussi une source issue d'une plage mémorisée dans une variable (par la fonction TS_MémoriseTableau) ou d'un jeu d'enregistrements pour la copier en valeur dans un tableau structuré.

Ses arguments sont :

  • TS_Source : la plage (de type Range) du tableau structuré source, ou des données mémorisées dans une variable ou un jeu d'enregistrements ;
  • TS_Dest : la plage (de type Range) du tableau structuré destination ;
  • Méthode : énumération Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes ;
  • ValeursOuFormules : énumération Enum_ValeursOuFormules :
       - TS_Valeurs : en valeurs (par défaut),
       - TS_Formules : en formules (les en-têtes doivent être les mêmes dans les deux tableaux).

La fonction renvoie : le nombre de lignes ajoutées ou -1 si erreur.

Remarques :
- Pour copier les formules avec TS_Formules les en-têtes doivent être les mêmes dans les deux tableaux et/ou les formules doivent être cohérentes avec le tableau de destination.
- Si le tableau source à plus de colonnes que le tableau destination : les colonnes en surplus sont ignorées.
- Si le tableau source à moins de colonnes que le tableau destination : les colonnes manquantes sont vides.


Exemple pour copier en valeur les données du tableau « TS_Eleves_1 » dans le tableau « TS_Eleves_2 » (qui volontairement ne contient que trois colonnes):

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Dim Destination As Range

Set Tableau = Range("TS_Eleves_1")
Set Destination = Range("TS_Eleves_2")

Call TS_CopierUnTableau(Tableau, Destination, TS_RemplacerDonnées, TS_Valeurs)

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-K. TS_MémoriseTableau

La fonction TS_MémoriseTableau mémorise les données d'un tableau structuré dans un variant à plusieurs dimensions. Les données mémorisées sont soit les valeurs soit les formules.

Ses arguments sont :

  • TS : la plage (de type Range) du tableau structuré ;
  • ValeursOuFormules : énumération Enum_ValeursOuFormules :
       - TS_Valeurs : en valeurs (par défaut),
       - TS_Formules : en formules.

La fonction renvoie : un Variant à plusieurs dimensions.

Remarque : la mémoire renvoyée sera utilisée pour analyser les données ou pour les recopier dans un autre tableau structuré comme le fait la fonction TS_CopierUnTableau.


Exemple pour mémoriser les données du tableau « TS_Eleves_1 » :

 
Cacher/Afficher le codeSélectionnez
'------------------------------------------------------------------------------------------------
Sub Exemple()
'------------------------------------------------------------------------------------------------
Dim Tableau As Range
Dim Données As Variant

' Mémorise les valeurs du tableau TS_Eleves_1:
Set Tableau = Range("TS_Eleves_1")
Données = TS_MémoriseTableau(Tableau, TS_Valeurs)

End Sub
'------------------------------------------------------------------------------------------------


Image non disponible


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-L. TS_ImporterDepuisClasseur

Comme son nom l’indique la fonction TS_ImporterDepuisClasseur importe, dans un tableau structuré existant, les données d’un autre classeur. Les données sources peuvent être contenues soit dans une plage Excel classique, soit dans un tableau structuré.
L’importation peut porter sur l’intégralité des colonnes source ou sur certaines seulement.
Le fichier source peut être fermé ou déjà ouvert, mais normalement vous utiliserez cette fonction sur des classeurs fermés car pour les classeurs ouverts d’autres fonctions sont déjà proposées dans le module « TS ».

Pour éviter que les macros se lancent à l'ouverture du classeur avec l'événement Workbook_Open() nous les désactiverons en forçant le mode de sécurité par l'instruction Application.AutomationSecurity = msoAutomationSecurityForceDisable, puis nous les restaurerons avec le mode en cours préalablement mémorisé.


Ses arguments sont :

  • Fichier_Source : le classeur Excel qui contient les sources (chemin complet + nom avec l'extension) ;
  • MotDePasse : éventuellement le mot de passe pour ouvrir le fichier (vide si non nécessaire) ;
  • Nom_Tableau_Source : soit le nom du tableau structuré qui contient les données source (pas un Range, voir exemple), soit le nom de la feuille entre crochets ouvert « [ » et fermé « ] » suivi d'un point d'exclamation « ! » (si la plage à un en-tête ou un dollar « $ » si la plage n’en a pas) et de la plage ou de la première cellule haut-gauche de la plage (voir exemple) ;
  • TS_Dest : le tableau structuré destination (de type Range) situé dans le classeur contenant cette fonction ;
  • Méthode : indique si les données importées doivent remplacer celles existantes dans le tableau structuré ou y être ajoutées, suivant l'énumération personnelle Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes.
  • ListeColonnes : (facultatif) le couple des noms des colonnes sources, noms (ou numéro) des colonnes destination, séparé par une virgule. Si vide alors les colonnes du tableau source sont copiées dans la destination sans ajout de colonnes supplémentaires si la destination n'a pas assez de colonnes.

La fonction renvoie : True si tout s’est bien passé ou False dans le cas contraire.


Remarques sur la source Nom_Tableau_Source :

  • si la source est un tableau structuré alors passez son nom, par exemple "Tableau1" et non pas un objet Range comme Range("Tableau1") ;
  • si la source est une plage classique, passez le nom de la feuille et la plage, comme par exemple "[Feuil1]!A1" pour que la fonction étende automatiquement la plage, ou "[Feuil1]!A1:C99" pour prendre une plage déterminé ;
  • la plage doit avoir un en-tête, si ce n'est pas le cas remplacez « ! » par « $ » ;
  • si le tableau source à plus de colonnes que le tableau destination alors les colonnes en surplus sont ignorées ;
  • si le tableau source à moins de colonnes que le tableau destination alors les colonnes manquantes sont vides.


Exemples d'appels de la fonction TS_ImporterDepuisClasseur pour importer des données du fichier « C:\Sources\Monfichier.xls » (qui n'a pas de mot de passe) et les coller en valeur dans le tableau structuré « TS_1 ».
Si vous utilisez Dim TS As Range : Set TS=Range("TS_1") alors remplacez Range("TS_1") par TS dans les exemples :

La source est une plage qui commence en « A1 » de la feuille « Feuil1 » et il faut remplacer les données existantes dans le tableau structuré destination « TS_1 » :
TS_ImporterDepuisClasseur("C:\Sources\Monfichier.xls", "", "[Feuil1]!A1", Range("TS_1"), TS_RemplacerDonnées)

Idem mais cette fois en ajoutant les données importées à celles existantes :
TS_ImporterDepuisClasseur("C:\Sources\Monfichier.xls", "", "[Feuil1]!A1", Range("TS_1"), TS_AjouterDonnées)

La source est aussi un tableau structuré nommé « TS_X » et il faut remplacer les données existantes :
TS_ImporterDepuisClasseur("C:\Sources\Monfichier.xls", "", "TS_X", Range("TS_1"), TS_RemplacerDonnées)

Idem mais ici il ne faut pas prendre toutes les colonnes mais seulement dans la source les colonnes « MATRICULE », « NOM », « PRENOM » que l'on place dans la destination en colonnes nommées « A », « B » et à la dernière colonne :
TS_ImporterDepuisClasseur("C:\Sources\Monfichier.xls", "", "TS_X", _ Range("TS_1"), TS_RemplacerDonnées, "MATRICULE", "A", "NOM", "B", "PRENOM", 0)


Le code de la fonction :

Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-M. TS_ImporterDepuisClasseurAvecSQL

La fonction TS_ImporterDepuisClasseurAvecSQL importe, dans un tableau structuré existant, les données d’un classeur qui est fermé et effectuant une requête SQL pour la sélection des données à importer.
Les données sources peuvent être contenues soit dans une plage Excel classique soit dans un tableau structuré.
Le fichier source peut être déjà ouvert, mais normalement vous utiliserez cette fonction sur des classeurs fermés car pour les classeurs ouverts d’autres fonctions sont déjà proposées dans le module « TS ».
Le tableau source doit obligatoirement avoir un en-tête avec des noms de champs uniques pour pouvoir exécuter une requête.
Le classeur n'est ouvert que s'il est protégé par mot de passe (pas d'autre façon de faire) ou si un tableau structuré est passé dans le nom du tableau source (afin de retrouver la feuille concernée), mais comme pour la fonction TS_ImporterDepuisClasseur les macros sont désactivées pour ouvrir le fichier sans lancer l'événement Workbook_Open.


Ses arguments sont :

  • Fichier_Source : le classeur Excel qui contient les sources (chemin complet + nom avec l'extension) ;
  • MotDePasseOuverture : éventuellement le mot de passe pour ouvrir le fichier (vide si non nécessaire) ;
  • MotDePasseEcriture : éventuellement le mot de passe pour permettre les modifications dans le fichier (vide si non nécessaire) ;
  • Nom_Tableau_Source : soit le nom du tableau structuré qui contient les données source (pas un Range, voir exemple), soit le nom de la feuille entre crochets ouvert « [ » et fermé « ] » (voir exemple) ;
  • TS_Dest : le tableau structuré destination (de type Range) situé dans le classeur contenant cette fonction ;
  • Méthode : indique si les données importées doivent remplacer celles existantes dans le tableau structuré ou y être ajoutées, suivant l'énumération personnelle Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes.
  • StrChamps : (facultatif) le nom des champs de la requête ou vide pour tout prendre ;
  • StrSQL : (facultatif) la requête SQL.

La fonction renvoie : le nombre de lignes importées ou -1 si erreur.


Remarques sur la source Nom_Tableau_Source :

  • si la source est un tableau structuré alors passez son nom, par exemple "Tableau1" et non pas un objet Range comme Range("Tableau1") ;
  • si la source est une plage classique, passez le nom de la feuille et la plage, comme par exemple "[Feuil1]" pour un traitement sur la feuille nommée « Feuil1 » ;
  • si le tableau source à plus de colonnes que le tableau destination alors les colonnes en surplus sont ignorées ;
  • si le tableau source à moins de colonnes que le tableau destination alors les colonnes manquantes sont vides.


Exemples d'appels de la fonction TS_ImporterDepuisClasseurAvecSQL pour importer des données du fichier « C:\Sources\Monfichier.xls » (qui n'a pas de mot de passe) et les coller en valeur dans le tableau structuré « TS_1 ».
Si vous utilisez Dim TS As Range : Set TS=Range("TS_1") alors remplacez Range("TS_1") par TS dans les exemples :

La source est une plage de la feuille « Feuil1 » et il faut remplacer les données existantes dans le tableau structuré destination « TS_1 » par une requête SQL qui regroupe les données sources de la colonne « Référence » et les classe par ordre croissant :
Call TS_ImporterDepuisClasseurAvecSQL("C:\_Formation_VBA\Test.xlsm", "Mgx", "x", _ "[Feuil1]", Range("TS_1"), TS_RemplacerDonnées, _ "[Référence]", "GROUP BY [Référence] ORDER BY [Référence]")

Idem mais cette fois les données sources sont dans un tableau structuré nommé « Tableau1 » et il faut compter le nombre de fois que les groupes de « Référence » sont utilisés, et trier des plus utilisés aux moins utilisés :
Call TS_ImporterDepuisClasseurAvecSQL("C:\_Formation_VBA\Test.xlsm", "Mgx", "x", _ "Tableau1", Range("TS_1"), TS_RemplacerDonnées, _ "[Référence], Count([Référence])", "GROUP BY [Référence] ORDER BY count([Référence]) DESC")

Ou tout simplement importer toutes les données où « Montant » est supérieur à 100 :
Call TS_ImporterDepuisClasseurAvecSQL("C:\_Formation_VBA\Test.xlsm", "Mgx", "x", _ "Tableau1", Range("TS_1"), TS_RemplacerDonnées, _ "", "WHERE [Montant] > 100")


Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-N. TS_ImporterFichierTexteAvecSQL

La fonction TS_ImporterFichierTexteAvecSQL importe, dans un tableau structuré existant, les données d'un fichier texte dont les champs sont délimités par un caractère particulier, généralement point-virgule, suivant éventuellement une requête SQL.
Les données sources doivent impérativement avoir un en-tête avec des noms de champs uniques pour pouvoir exécuter une requête.


Ses arguments sont :

  • Fichier_Source : le fichier texte qui contient les sources (chemin complet + nom avec l'extension) ;
  • Délimiteur : le caractère délimiteur des champs ;
  • AvecEntête : Indique si le fichier source à un en-tête (True) ou non (False) ;
  • ListeColonnes : le format des colonnes à analyser (ou vide pour tout reprendre au format général) séparés par une virgule. Si la liste ne reprend pas toutes les colonnes, les colonnes non renseignées ne sont pas traitées.
    Liste des formats disponibles (vous pouvez en créer d'autres) :
        1 = Général (xlGeneralFormat) (les numériques de plus de 15 caractères sont tronqués et ceux avec une virgule sont considérés comme du texte),
        2 = Force le texte en le préfixant par " ' ",
        3 = Format de date M/J/A (xlMDYFormat),
        4 = Format de date J/M/A (xlDMYFormat),
        5 = Format de date A/M/J (xlYMDFormat),
        6 = Format de date M/A/J (xlMYDFormat),
        7 = Format de date J/A/M (xlDYMFormat),
        8 = Format de date A/J/M (xlYDMFormat),
        9 = La colonne n'est pas analysée (xlSkipColumn),
        10 = Numérique,
        11 = Numérique arrondis à 2 chiffres après la virgule,
        12 = Texte sans les espaces de gauche,
        13 = Texte sans les espaces de droite,
        14 = Texte sans les espaces de gauche et de droite,
        15 = Format JJMMAAAA transformé en date,
        16 = Format AAAAMMJJ transformé en date ;
  • TS_Dest : le tableau structuré destination (de type Range) situé dans le classeur contenant cette fonction ;
  • Méthode : indique si les données importées doivent remplacer celles existantes dans le tableau structuré ou y être ajoutées, suivant l'énumération personnelle Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes ;
  • StrSQL : (facultatif) la requête SQL, basée sur le nom des colonnes du tableau structuré destination et non pas sur les noms des champs du fichier texte.

La fonction renvoie : le nombre de lignes importées ou -1 si erreur.


Remarques :

  • si le fichier texte a plus de colonnes que le tableau destination : les colonnes en surplus sont ignorées ;
  • si le fichier texte a moins de colonnes que le tableau destination : les colonnes manquantes sont vides.


Exemples pour importer dans le tableau structuré destination nommé « TS_1 » ce fichier texte nommé « Eleves.csv » qui a comme délimiteur un point-virgule :

Image non disponible


Pour importer tous les champs avec le format par défaut (format général) :

 
Sélectionnez
Call TS_ImporterFichierTexteAvecSQL("C:\_Formation_VBA\Eleves.csv", ";", True, _
                                    "", _
                                    Range("TS_1"), TS_RemplacerDonnées)


Ce qui donne ce résultat (les notes avec une virgule sont considérées comme étant du texte, le numéro de dossier est tronqué) :

Image non disponible


Pour importer tous les champs avec format numérique pour les notes, format date pour les dates, format texte pour les dossiers :

 
Sélectionnez
Call TS_ImporterFichierTexteAvecSQL("C:\_Formation_VBA\Eleves.csv", ";", True, _
                                    "1, 1, 10, 4, 1, 1, 1, 1, 2", _
                                    Range("TS_1"), TS_RemplacerDonnées)
                                    
Call TS_FormatColonne(Range("TS_1"), "Note", "0.0")
Call TS_FormatColonne(Range("TS_1"), "Date", "dd/mm/yyyy")


Ce qui donne ce résultat :

Image non disponible




Pour importer uniquement des champs Nom, Prénom, Note, Souhaits, pour les notes supérieures à 10 et les trier par nom :

 
Sélectionnez
Call TS_ImporterFichierTexteAvecSQL("C:\_Formation_VBA\Eleves.csv", ";", True, _
                                    "1, 1, 10, 9, 9, 9, 1", _
                                    Range("TS_1"), TS_RemplacerDonnées, _
                                    "WHERE [Note] > 10 ORDER BY [Nom]")


Ce qui donne ce résultat :

Image non disponible



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez



VI-O. TS_ImporterDepuisFichierHTML

La fonction TS_ImporterDepuisFichierHTML importe dans un tableau structuré existant les données d'un fichier au format HTML qui contient un tableau.
Si le tableau structuré n'a pas assez de colonnes, celles nécessaires seront créées automatiquement.
Les données importées sont soit ajoutées aux données existantes du tableau structuré soit les remplacent.
Le code est inspiré de cette discussion.

Ses arguments sont :

  • TS : la plage (de type Range) du tableau structuré ;
  • Fichier : le fichier HTML qui contient un tableau (chemin complet + nom avec l'extension) ;
  • Méthode : indique si les données importées doivent remplacer celles existantes dans le tableau structuré ou y être ajoutées, suivant l'énumération personnelle Enum_CopierDonnées :
       - TS_RemplacerDonnées : remplace les données existantes par les nouvelles,
       - TS_AjouterDonnées : ajoute les nouvelles données à la suite des données existantes.

La fonction renvoie : le nombre de lignes importées ou -1 en cas d'erreur.



Cliquez sur « Afficher le code » pour voir le code de la fonction
Cacher/Afficher le codeSélectionnez