XL 2010 Tcd avec Maj auto du sommaire

[keesha59]

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

 

[chris]

Multipost

 

[Staple1600]

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**

 

[chris]

Bonjour

@chris
Bah, tu me cites pas aujourd'hui 😉

Cela allait venir ! L'auteur n'ayant reparu ni ici (quoique on puisse voir le coup de plumeau !) ni ailleurs malgré des réponses apportées...

Ah les forums ne sont plus ce qu'ils étaient ! Bon week end 😉

 

[Staple1600]

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 😉

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 😉)

 

[chris]

Re

Tu nous vieillis, dit donc ! Cela ne remonte ni au général et encore moins au maréchal !

 

[keesha59]

A force d’essayer (ou pas ...)🙂 et sûrement aider par les effets du marc, j’ai opté pour la macro, ça fonctionne....

Effectivement, que le temps passe à une vitesse ...7 ans sans faire de macro, vba..c’est tordant !! 😉😎

 

[Staple1600]

Bonsoir le fil, le forum

@keesha59
Tu as opté pour une macro?
Oui mais laquelle?

PS: Tu as testé la macro que je te proposais au message#5 ?

@chris
Il n'y avait pas que le grand Charles comme général 😉
On avait au choix:
Franco
Auguste P.
Wojciech Jaruzelski
ou encore le Général Bolkazander 😉

 

[keesha59]

ta correction m' inspirée dans un élan de clairvoyance, Bien bel le merci ....

" Veni, vidi, vivi"... comme dixit un autre célébre Général

 

[chris]

Re
C'est sûr, puisqu'on parle de forum, on peut remonter aux sources et on a le choix...
https://fr.wikipedia.org/wiki/Catégorie:Général_de_l'Empire_romain

Bon allez, j'arrête mon char !

 

[Staple1600]

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]