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

ZZ59264 · 29 Mai 2023

Phil69970 à dit:
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

Merci pour ce lien c'est pile ce que je souhaitais,

Cordialement,

Dranreb · 29 Mai 2023

C'est parce que la collection examinée par défaut est celle de la feuille active que je préfère en général utiliser Feuil10.ListObjects(1) ou Feuil8.ListObjects(1). Le plus souvent il n'y a qu'un seul tableau par feuille.
Mais je renomme aussi toujours d'abord tous les objets partout, comme WshHistoTGB au lieu de Feuil10 et WshTGB2 au lieu de Feuil8 par exemple. Sans jamais taper moi même de "_" dans ces noms (seules les listes déroulantes surmontant le fenêtre de code l'utilisent dans les noms de procédure de prise en charge d'évènements implantées automatiquement, comme séparateur entre le nom de l'objet et celui de l'évènement).

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

ZZ59264

XLDnaute Occasionnel

Pièces jointes

Phil69970

ZZ59264

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires