Discussion :

[Nosperato]

Bonjour,

Je viens vers vous pour savoir s'il existe une méthode beaucoup plus rapide de copier-coller un tableau, car je lance cette fonction 4 fois, et il s'avère que cela fait tout planter du moins il rame pendant 5min... Et je n'ai pas trouvé des solutions plus rapides..

Voici le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim WsExport As Workbook
Dim WsActive As Workbook
 
Set WsActive = ActiveWorkbook
 Set WsExport = Application.Workbooks.Open("F:\DESHYDRATATION\Deshydratation 51418\Administratif\Feuille de prix\NE PAS TOUCHER\Feuille de prix 2.xlsm", True)
 
 
WsExport.Worksheets("Achat").Unprotect "toto"
  WsExport.Worksheets("Achat").ListObjects(1).Delete
  WsActive.Worksheets("Achat").ListObjects("Achat").Range.Copy Destination:=WsExport.Worksheets("Achat").Range("A1")
  WsExport.Worksheets("Achat").ListObjects(1).Name = "Achat"
  WsExport.Worksheets("Achat").Protect "toto"
 
 
WsExport.Worksheets("Autres").Unprotect "toto"
  WsExport.Worksheets("Autres").ListObjects(1).Delete
  WsActive.Worksheets("Autres").ListObjects("Autres").Range.Copy Destination:=WsExport.Worksheets("Autres").Range("A1")
  WsExport.Worksheets("Autres").ListObjects(1).Name = "Autres"
  WsExport.Worksheets("Autres").Protect "toto"

Si quelqu’un a une méthode beaucoup plus rapide je suis preneur !
Merci beaucoup, dans l'attente de vous lire.

[sorbetframboise]

tu veut le coller sur une autre feuille ?

[Nosperato]

Excuse moi du retard

J'ai un 1er classeur excel, ce classeur excel contient 4 feuilles avec tableau (Achat, Matériel, Location, Personnel)

j'ai un 2ème classeur excel, qui contient également les 4 feuilles + devis permettant de faire appel à ces tableau.

Le problème, c'est qu'à partir de mon 2ème classeur je peux ajouter des éléments dans mon tableau Achat ou Matériel ou Location ou Personnel et je voudrai que lorsqu'il y a des ajouts, on appui sur un bouton afin de copier-coller les nouvelles entrées ou si il y a une suppression d'une donnée ou mise à jour, vers le 1er classeur, avec une méthode rapide, car j'ai trouvé une méthode mais mon fichier charge pendant minutes... Et ce n'est pas possible d'attendre 5 minutes...

Dans l'attente d'une réponse merci beaucoup !

[patricktoulon]

Bonjour
perso je ne vois pas l'intérêt de supprimer un tableau(listobject) parce que tu lui a ajouté ou supprimé une ligne et de le reconstruire après

sert toi de la méthode add ou delete en bon et due forme et c'est tout (et !! sur les deux classeurs)

[BENNASR]

bonjour

J'ai un 1er classeur excel, ce classeur excel contient 4 feuilles avec tableau (Achat, Matériel, Location, Personnel)

j'ai un 2ème classeur excel, qui contient également les 4 feuilles + devis permettant de faire appel à ces tableau.

Je comprend pas l'utilité de ce premier classeur !!! ce n'est pas juste une opération d'archivage?? et tu cherche à écraser les 4 onglets et les remplacer par 4 onglets du 2ème classeur??

[sorbetframboise]

peux tu nous expliquer clairement ton problème ainsi que la raison d'avoir plusieurs classeurs ?

[Nosperato]

Bonjour à tous et merci de vos réponses.

J'explique mon problème.

J'ai un fichier qui s’appel Chiffrage.xlsm dans ce fichier j'ai 5 feuilles --> Une feuille Location(en tableau), Une feuille Matériel(tableau), Une feuille Sous traitance(tableau), une feuille Personnel (tableau) j'ai au total 4 tableaux et j'ai une dernière feuille Chiffrage sur laquelle je travaille pour chiffré(logique) qui est relié aux autres feuilles à partir d'un formulaire ou j'affiche sous forme de liste toutes les données se trouvant sur chacune des feuilles.

N'étant pas tous seul à travailler sur le chiffrage, j'ai créer un autre classeur Feuille de prix.xlsm avec les 4 feuilles Location, Matériel, Sous traitance et Personnel afin d'avoir une sécurité (backup).

Sur le fichier Chiffrage.xlsm et dans mon USF(Userform) je veux deux bouton :

• Un bouton qui va permettre de récupérer les 4 feuilles de mon fichier Feuille de prix.xlsm et de les insérer dans mon fichier Chiffrage.xlsm afin d'avoir les bon prix à jour.
  Mais également avoir un bouton me permettant de transférer les 4 feuilles de mon fichier Chiffrage.xlsm vers mon fichier Feuille de prix.xlsm si il y a eu ajout, modification ou suppression de données.

En claire Feuille de prix.xlsm est comme une base de données qui va être appelé par le fichier Chiffrage.xlsm afin de mettre à jour les prix.
Bien entendu je ne veux pas que cela soit automatisé, car certaines personnes ont des restrictions avec mot de passe, si la personne n'a pas les droits et à modifier les 4 feuilles sur le fichier Chiffrage.xlsm, il ne pourra pas transférer/mettre à jour ces 4 feuilles vers le fichier Feuille de prix.xlsm question de sécurité afin d'éviter les bêtises de chacun et ne pas retrouvé une base de donnée de 1000 insertion toto tata etc...

Donc oui supprimé les tableaux pour les recréer ensuite est une méthode, mais très très lente et non optimal.
Donc ce que je voudrai c'est : Transférer toutes les modifications qu'il y a eu sur ces fichiers(feuilles contenant les tableaux) vers l'un ou l'autre fichier c-à-d : Chiffrage.xlsm vers Feuille de prix.xlsm ou Feuille de prix.xlsm vers Chiffrage.xlsm

PS : Pour la fonction add ; delete etc je le fais déjà sur fichier mais je ne vais pas m'amuser à insérer une donnée sur 2 fichiers, car si demain j'ajoute/modifie/supprime 100 données sur le fichier Chiffrage.xlsm je vais devoir le faire également sur le fichier Feuille de prix.xlsm donc non optimal et perte de temps.

Ci-dessous un visu sur les deux boutons :



Bien à vous,