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