XL 2010 Tcd avec Maj auto du sommaire

keesha59

XLDnaute Nouveau
Voulant retravailler un tab budget et des commande chaque onglet correspond à un fournisseur. et chaque feuille comprends les élément commande le coût...
Une feuille bilan intégrant le Numero du bon de commande allant dans le colonne de la bonne catégorie, mise à jour automatique quand nouvelle entre dans un des onglets.

J'ai essayé les formules recherche, indirect équival, mais ma formule me fonctionne pas
J ai tenté mes vieux souvenirs de vba de la fac, ça remonte ... une consolidation de données

Sub consolidation
Application.ScreenUpdating
Dim chemin As String
Dim fichier As String
Dim extension As String
...
'Sélectionne les onglets du classeur où se trouvent les données
Sheets("Feuil1").Select
'Compte le nombre de lignes à copier
n = WorksheetFunction.CountA(Range("A:A"))
'Compte le nombre de colonnes à copier
m = ActiveSheet.UsedRange.Columns.Count
'Copie les données
Range(Cells(4,1), Cells(n, m)).Copy
'Active la feuille sommaire .
Windows("Sommaire x.xlsm").Activate
'Sélectionner feuille lien Ou collage les données
Sheets("sommaire ").Select
'Colle données
ActiveSheet.
'actif MAJ’
Application.ScreenUpdating = True

End Sub

En vous remerciant de votre Eclairage
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

@chris
Bah, tu me cites pas aujourd'hui ;)

@keesha59
[Bienvenue sur le forum]
Tu débutes dans Excel et ton maître de stage te plonge dans du lourd dès le départ ?
Change de stage ;)
Ou sinon voir peut-être de ce côté: le TCD
Si j'étais moi, je mettrais les données dans une seule feuille (au format "base de donnée")
et j'utiliserai un TCD pour manipuler ces données.

PS1: Je vais épargner un petit effort à chris et donc citer chris me citant ;)
Re
Je reprendrais texto les termes de notre ami Staple :
La coutume (enfin en tout cas celle qui était en cours au XXième siècle) c'est de signaler qu'on a posté sa question sur plusieurs forums (en mettant le cas échéant un URL)
https://fr.wikipedia.org/wiki/Multipostage

PS2: Pour infos
En ces temps de RGPD, mieux vaut passer le plumeau avant de joindre un fichier...
N'est-ce pas Sandr*n* S***th**n? ;)
Mes amitiés à S*r*h Me**ette-Fo*r*i**
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour chris;)

@chris
Et bizarrement keesha59 n'est plus stagiaire depuis le 2juin 8h16 alors qu'elle l'était le 1er juin à 17h00.
Précisions
L'auteur s'était Madame Me**ette-Fo*r*i** et la stagiaire a qui on a refilé le bébé, Madame S***th**n ;)

Puisque tu parles plumeau, j'ai passé un petit coup de lingette sur le code VBA ;)
VB:
Sub Consolidation_après_CoupDeLingette()
Dim plg As Range
With Sheets("Feuil1")
Set plg = .Cells(4, 1).Resize(.Cells(Rows.Count, 1).End(3).Row - 3, .UsedRange.Columns.Count)
End With
plg.Copy Workbooks("Sommaire x.xlsm").Sheets("sommaire ").[A1]
End Sub

Bonjour
Ah les forums ne sont plus ce qu'ils étaient ! Bon week end ;)
Ah dame, oui, c'était mieux avant!
Du temps du Général, on n'aurait jamais vu çà!

PS: Merdre! chris, on est entrain de singer Statler et Waldorf
(Ah! souvenirs, souvenirs les seventies ;))
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

@keesha59
Un autre usage est de publier ce qu'on estime être une solution (dans l'esprit de partage des connaissances sur le forum)
En effet ta macro pourra peut être dans le futur aider ou inspirer un lecteur de ton fil ;)

[aparté turlipinesque]
Le premier juin tu disais être stagiaire
Puis tu t'es transmué en vieux de la vieille qui a des souvenirs de fac datant de 7 ans.
Alors qui est-tu donc?
NB: Je pose la question car il faut que ce soit carré dans ma boite crânienne, sinon je dors mal ;)
(déjà qu'avec cette chaleur, mon sommeil est altéré)
[/aparté turlipinesque]
 
Dernière édition:

Statistiques des forums

Discussions
283 396
Messages
1 851 242
Membres
151 193
dernier inscrit
Maxou60
Haut Bas