dernière finition pour une macro Résolu/Fermé

Question

Bonjour, 

Je n'arriverais pas à m'y faire à VBA :(
J'ai pu faire tourner une macro, mais seulement quand une des feuilles concernées est active...
Je ne dois pas être trop long, et en même temps le code doit peut-être être complètement différent mdr

mon problème :
Je dois faire 3 extracts que je colle dans 3 feuilles différentes avec des formules à la suite pour obtenir des indicateurs et sur une 4em feuilles je rassemble mes tableaux. Du coup j'aimerais juste un bouton sur ma 4em feuille pour que les formules de chaque feuille s'étendent bien jusqu'à la dernière ligne de la colonne A et actualise mes TCD.

Sub Etendre_Formule_et_Actualiser()
Application.ScreenUpdating = False
Dim LastRw As Long
LastRw = Sheets("Extract1").Cells(Rows.Count, 1).End(xlUp).Row
Range("O2:R" & LastRw).FillDown

LastRw = Sheets("Extract2").Cells(Rows.Count, 1).End(xlUp).Row
Range("X2:AE" & LastRw).FillDown

LastRw = Sheets("Extract3").Cells(Rows.Count, 1).End(xlUp).Row
Range("AB2:AP" & LastRw).FillDown

' Actualiser tous les TCD
    ActiveWorkbook.RefreshAll

End Sub

Alors j'y étais presque ou pas ? :)

Le Pingou · Answer

Bonjour,
Entre vos informations et le code présenté c'est impossible de comprendre ce que vous voulez obtenir comme résulta...!

biog13 · Answer

Aïe, c'est pas bon signe ça  !  Mdr

J'ai 3 onglets dans lesquels je rajoute des lignes chaque semaine via des extracts et des formules dans des colonnes différentes dans chaque onglet notés dans mon 1er message.
Et je rassemble mes tableaux dans un 4em onglet où je voudrais avoir un bouton pour étendre mes formules et mettre à jour les TCD...
La macro fonctionne pour un onglet mais qui est actif pour le moment.
J'espère que c'est plus clair ????
Merci

eriiic · Answer

Bonjour,

met ton tableau sous forme de Tableau excel (Insérer).
Dès que tu colleras de nouvelles valeurs, les formules se recopieront automatiquement.
eric

Le Pingou · Answer

Bonjour,
Eh oui la proposition d’eriiic est le meilleur choix (salutations).
Si vous voulez rester sur votre solution, je comprends que les formules à étendre se trouvent sur les même feuilles « Extract1,2 et 3 ». De ce fait voici le code adapter :
Sub Etendre_Formule_et_Actualiser()Application.ScreenUpdating = FalseDim LastRw As LongLastRw = Sheets("Extract1").Cells(Rows.Count, 1).End(xlUp).RowSheets("Extract1").Range("O2:R" & LastRw).FillDownLastRw = Sheets("Extract2").Cells(Rows.Count, 1).End(xlUp).RowSheets("Extract2").Range("X2:AE" & LastRw).FillDownLastRw = Sheets("Extract3").Cells(Rows.Count, 1).End(xlUp).RowSheets("Extract3").Range("AB2:AP" & LastRw).FillDown    ' Actualiser tous les TCD    ActiveWorkbook.RefreshAllEnd Sub

biog13 · Answer

Super merci pour votre aide, la macro fonctionne  ! 
Mais je ne comprend pas vraiment pourquoi il fallait repréciser dans quel onglet se situait les colonnes visés ? 
Pour l'idée de passer sous forme tableau, il me semble que me fichier devient beaucoup plus lourd sous forme de tableau. J'ai un mauvais souvenirs d'un fichier comme ça et mon pc (ou réseau) galérait...

Le Pingou · Answer

Bonjour,
 Eh bien: Mais je ne comprend pas vraiment pourquoi il fallait repréciser dans quel onglet
  la macro à toujours la feuille active comme référence alors si vous chercher une information sur une autre feuille, soit vous l'activé ou  vous précisé son nom (Sheets("Extract3"))
Bonne suite

biog13 · Answer

Ok il faut préciser la feuille concernée sur chaque ligne de commande sinon excel se réfère de base à la feuille active... Ça marche j'ai compris la logique
Merci ça me servira sûrement pour le prochain casse tête  : )

Le Pingou · Answer

Merci, penser de marquer le poste résolu si c'est le cas!

Dernière finition pour une macro

8 réponses

Discussions similaires