XL 2016 Amélioration code VBA Transfert données tableau structuré vers autre tableau structuré

ZZ59264 · 28 Mai 2023

Bonsoir à tous,

J'ai un fichier et dans celui ci j'ai un code VBA qui permet de transférer notamment des données d'un TS vers un autre TS,

Le code enregistré manuellement va plus vite que celui joint, il doit surement avoir quelque chose qui m'échappe car je trouve qu'il n'est pas assez rapide,

Pourriez vous également comment faire pour actualiser également la requête T_GB avant la requête ECHEANCE ?, je ne souhaite pas passer par ResfreshAll.

Merci d'avance pour votre aide,

Cordialement,

Phil69970 · 29 Mai 2023

Re

Et avec ce code on passe à 0.02 seconde sur mon PC

VB:

Option Explicit

Sub valid_analyse()
Application.ScreenUpdating = False
Dim i As Integer, n As Long, j As Integer 'déclaration des variables
If CDate(Range("D_BASE")) <> CDate(Range("D_MODIF")) Then 'analyse date
    MsgBox ("Date Base différente de date modif")
    Exit Sub
End If
For n = 1 To [HISTO_T_GB].Rows.Count 'analyse si sauvegarde déjà effectuée
    If [HISTO_T_GB].Item(n, 1) = Sheets("ANALYSE").Range("E4").Value Then
        MsgBox ("Sauvegarde déjà effectuée")
        Exit Sub
    End If
Next

Range("T_GB_2").ListObject.DataBodyRange.Copy Range("HISTO_T_GB").ListObject.ListRows.Add.Range
 
End Sub

Merci de ton retour

@Phil69970

Phil69970 · 28 Mai 2023

Bonjour @ZZ59264

ZZ59264 à dit:
Le code enregistré manuellement va plus vite que celui joint, il doit surement avoir quelque chose qui m'échappe car je trouve qu'il n'est pas assez rapide,

En fait je dirais que tout t'échappe !!!

Le code enregistré manuellement "Macro1" copie tout en vrac sans aucun contrôle et ton 2eme code "valid_analyse" fait plein de contrôle de tout et n'importe quoi et puis copie une cellule par une cellule les 3289 cellules tu m'étonnes que cela soit long !!!

Sur mon PC
La "macro1" s’exécute en 0.13 seconde
La macro "valid_analyse" s’exécute en 16.76 secondes

Et si je rajoute seulement cette ligne sur la macro "valid_analyse"

Application.ScreenUpdating = False

La macro "valid_analyse" s’exécute en 2.11 secondes

Merci de ton retour

@Phil69970

Phil69970 · 29 Mai 2023

Re

Et avec ce code on passe à 0.02 seconde sur mon PC

VB:

Option Explicit

Sub valid_analyse()
Application.ScreenUpdating = False
Dim i As Integer, n As Long, j As Integer 'déclaration des variables
If CDate(Range("D_BASE")) <> CDate(Range("D_MODIF")) Then 'analyse date
    MsgBox ("Date Base différente de date modif")
    Exit Sub
End If
For n = 1 To [HISTO_T_GB].Rows.Count 'analyse si sauvegarde déjà effectuée
    If [HISTO_T_GB].Item(n, 1) = Sheets("ANALYSE").Range("E4").Value Then
        MsgBox ("Sauvegarde déjà effectuée")
        Exit Sub
    End If
Next

Range("T_GB_2").ListObject.DataBodyRange.Copy Range("HISTO_T_GB").ListObject.ListRows.Add.Range
 
End Sub

Merci de ton retour

@Phil69970

ZZ59264 · 29 Mai 2023

Bonjour @Phil69970 ,

La partie du code placé au début ne fait pas n'importe quoi :

il vérifie la cohérence de deux dates nommées dans le fichier puis vérifie si une sauvegarde a déjà été effectuée,

Ceci dit le code que vous proposez va évidemment bien plus vite que la boucle For...Next

Pourriez vous me confirmer et me corriger sur trois points :

1 : le fait de faire référence au tableau structuré ("Histo_T_GB) par la méthode Range nous dispense de vérifier qu'il y a bien une ligne car par défaut il y a toujours une ligne vide dans un tableau structuré?

2 : ne connaissant pas très bien le langage VBA même si je comprends aisément ce que fait la procédure, je souhaite réellement comprendre ces deux parties :

VB:

Range("T_GB_2").ListObject.DataBodyRange.Copy

copie du tableau structuré, ListObject.DataBodyRange permet d'enlever la ligne d'en tête ?

Code:

Range("HISTO_T_GB").ListObject.ListRows.Add.Range

on fait appel au tableau structuré HISTO_T_GB, ListObject.listRows (permet de connaitre la dernière ligne) .Add (ajouter à la suite).Range et la je ne sais pas comment il sait que c'est le tableau structuré (T_GB_2) qu'on vient coller ?

3 : j'ai lu que pour faire référence à un tableau structuré on peut faire référence à l'objet "ListObject" ou à la référence structuré Range ("")

J'ai donc tenté de remplacer par expérimentation votre code par :

Code:

ListObject("T_GB_2").DataBodyRange.Copy ListObject("HISTO_T_GB").ListRows.Add.Range

et j'ai un message d'erreur fonction non définie,

Merci d'avance pour votre retour,

Cordialement,

Hasco · 29 Mai 2023

Bonjour,

Je répond à partir de mon smartphone,
Dans

ListObject("T_GB_2").DataBodyRange.Copy ListObject("HISTO_T_GB").ListRows.Add.Range

.Add est une méthode fonction qui renvoie un objet listrow mais pour ça il faut l'adresser avec des parenthèses.

.ListRows.Add().Range(1,1)

Fonctionnera mieux.
Pourquoi (1,1): parceque ListRow peut contenir plusieurs cellules et qu si vous copiez dans une région qui n'a pas la même forme que la destination, vous aurez un message d'erreur. En copiant dans une cellule unique vba se débrouiller tout seul.

Dranreb · 29 Mai 2023

Bonjour.

ZZ59264 à dit:
Code: ListObject("T_GB_2").DataBodyRange.Copy ListObject("HISTO_T_GB").ListRows.Add.Range
et j'ai un message d'erreur fonction non définie,

C'est :

VB:

ListObjects("T_GB_2").DataBodyRange.Copy ListObjects("HISTO_T_GB").ListRows.Add.Range

ListObject est un type et une propriété mais pas une fonction. C'est ListObjects qui existe en tant que collection, et qu'on peut donc faire suivre du nom d'un de ses membres entre parenthèses pour l'obtenir.

ZZ59264 · 29 Mai 2023

Merci pour votre retour Dranreb,

Mais si je remplace

VB:

Range("T_GB_2").ListObject.DataBodyRange.Copy Range("HISTO_T_GB").ListObject.ListRows.Add.Range

par

Code:

ListObjects("T_GB_2").DataBodyRange.Copy ListObjects("HISTO_T_GB").ListRows.Add.Range

J'ai toujours un message d'erreur,

Cordialement,

Hasco · 29 Mai 2023

Re,
Vous avez tenté ce que je vous ai dit? Ils manque deux parenthèses

.ListRows.Add().Range(1,1)

ZZ59264 · 29 Mai 2023

Hasco à dit:
Re,
Vous avez tenté ce que je vous ai dit? Ils manque deux parenthèses

Bonjour Hasco,

Oui j'ai tenté :

VB:

ListObjects("T_GB_2").DataBodyRange.Copy ListObjects("HISTO_T_GB").ListRows.Add().Range(1,1)

Mais j'ai le même message d'erreur,

Cordialement,

Staple1600 · 29 Mai 2023

Bonjour le fil, @Hasco

Message d'erreur normal car mauvaise syntaxe
Il faut spécifier la feuille ou le nom du tableau
Voir ce petit test
Pour tester : avoir un tableau nommé Tableau1 sur la feuille active

VB:

Sub testPAOK()
MsgBox ListObjects("Tableau1").Name
End Sub
Sub testOK()
MsgBox ActiveSheet.ListObjects("Tableau1").Name
End Sub
Sub testOK_B()
MsgBox Range("Tableau1").ListObject.Name
End Sub

On ne peut pas écrire juste
ListObjects("NomDuTableau").DataBodyRange.Copy

[Précision]
Je parle de la syntaxe utilisée par @ZZ59264

Phil69970 · 29 Mai 2023

Bonjour à tous

@ZZ59264

Pourquoi vouloir se faire du mal alors que mon code fonctionne quelque soit l’endroit ou se trouve les 2 tableaux (y compris si on les déplace sur une autre feuille et/ou la même feuille)

Phil69970 à dit:
Range("T_GB_2").ListObject.DataBodyRange.Copy Range("HISTO_T_GB").ListObject.ListRows.Add.Range

@Phil69970

ZZ59264 · 29 Mai 2023

Staple1600 à dit:
Bonjour le fil, @Hasco

Message d'erreur normal car mauvaise syntaxe
Il faut spécifier la feuille ou le nom du tableau
Voir ce petit test
Pour tester : avoir un tableau nommé Tableau1 sur la feuille active

VB:

Sub testPAOK() MsgBox ListObjects("Tableau1").Name End Sub Sub testOK() MsgBox ActiveSheet.ListObjects("Tableau1").Name End Sub

Bonjour Staple600,

Merci pour votre retour,

J'ai remplacé par :

VB:

[T_GB_2].ListObject.DataBodyRange.Copy [HISTO_T_GB].ListObject.ListRows.Add.Range

ce qui est équivalent, je suppose, au code proposé par @Phil69970

Code:

Range("T_GB_2").ListObject.DataBodyRange.Copy Range("HISTO_T_GB").ListObject.ListRows.Add.Range

@Dranreb précise : ListObject est un type et une propriété mais pas une fonction. C'est ListObjects qui existe en tant que collection, et qu'on peut donc faire suivre du nom d'un de ses membres entre parenthèses pour l'obtenir.

Je pensais donc pouvoir saisir :

Code:

ListObjects("T_GB_2").DataBodyRange.Copy ListObjects("HISTO_T_GB").ListRows.Add.Range

Je comprends bien que c'est un problème de rédaction, je pourrais me dire ok c'est comme ca et pas autrement mais j'essaye de comprendre,

Qu'elle est la différence entre ListObject et LisObjects : le premier est un type et une propriété : c'est à dire et LisObjects une fonction : c'est à dire? pourriez vous me rendre concret ces termes?

Merci d'avance,

Cordialement,

ZZ59264 · 29 Mai 2023

Phil69970 à dit:
Bonjour à tous

@ZZ59264

Pourquoi vouloir se faire du mal alors que mon code fonctionne quelque soit l’endroit ou se trouve les 2 tableaux (y compris si on les déplace sur une autre feuille et/ou la même feuille)

@Phil69970

C'est juste que je voulais comprendre celui ci, d'ou mes question initiales, je ne veux pas juste d'un code qui me donne le résultat sans comprendre,

Bon je suis nul en VBA, et donc j'essaye de bien comprendre.

Cordialement,

Staple1600 · 29 Mai 2023

Re

ZZ59264 à dit:
C'est juste que je voulais comprendre celui ci, d'ou mes question initiales, je ne veux pas juste d'un code qui me donne le résultat sans comprendre,

Quand je m'interroge, mon premier réflexe
la maison Mère

Objet ListObject (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com

Phil69970 · 29 Mai 2023

Re

@ZZ59264

Je te propose de la lecture ici (bien lire la totalité de la discussion)
Tu auras une partie des autres questions que tu te posent....

@Phil69970

XL 2016 Amélioration code VBA Transfert données tableau structuré vers autre tableau structuré

ZZ59264

XLDnaute Occasionnel

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

ZZ59264

XLDnaute Occasionnel

ZZ59264

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Objet ListObject (Excel)

Phil69970

XLDnaute Barbatruc

Discussions similaires