Dernière finition pour une macro
Résolu
biog13
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
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.
Alors j'y étais presque ou pas ? :)
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 ? :)
A voir également:
- Dernière finition pour une macro
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Supprimer dernière page word - Guide
- Dernière version chrome - Accueil - Applications & Logiciels
- Jitbit macro recorder - Télécharger - Confidentialité
8 réponses
Bonjour,
Entre vos informations et le code présenté c'est impossible de comprendre ce que vous voulez obtenir comme résulta...!
Entre vos informations et le code présenté c'est impossible de comprendre ce que vous voulez obtenir comme résulta...!
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
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
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
met ton tableau sous forme de Tableau excel (Insérer).
Dès que tu colleras de nouvelles valeurs, les formules se recopieront automatiquement.
eric
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 :
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 = False
Dim LastRw As Long
LastRw = Sheets("Extract1").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Extract1").Range("O2:R" & LastRw).FillDown
LastRw = Sheets("Extract2").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Extract2").Range("X2:AE" & LastRw).FillDown
LastRw = Sheets("Extract3").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Extract3").Range("AB2:AP" & LastRw).FillDown
' Actualiser tous les TCD
ActiveWorkbook.RefreshAll
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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...
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...
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
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