Expand a macro to varaible data [Résolu]

Signaler
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
Bonjour mes amis,

j'ai cette macro qui s'excute sur un nombre exacte des lignes, et je veux si vous permettez excuter la macro sur toute feuille excel qui respecte la meme forme de cette Macro,

Pour bien comprendre merci de télécharger ce fichier a fin d'avoir une idée claire sur la macro et sa tache, Merci infiniment.

executer la macro et voir la feuille "TVA" pour le resultat, Merci

https://www.cjoint.com/c/IJyop1lQ6CE



Configuration: Windows / Firefox 52.0

1 réponse

Messages postés
27336
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 janvier 2020
2 036
Bonjour,

Afin de faire gagner du temps à tout le monde et éviter de devoir télécharger ton fichier...
voici le code VBA que tu utilises actuellement:
Sub TVA()
'
' TVA Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    Sheets("Wide export journal 2018").Select
    ActiveWindow.SmallScroll Down:=-31
    Range("D2").Select
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    Range("A2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("B5").Select
    ActiveSheet.Paste
    Sheets("BD").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Sheets("TVA").Name = "TVA"
    Range("C5").Select
    ActiveSheet.Paste
    Range("J5").Select
    Sheets("Wide export journal 2018").Select
    Range("F3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    Range("F4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("K5").Select
    ActiveSheet.Paste
    Range("P5").Select
    Sheets("Wide export journal 2018").Select
    Range("G2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Range("Q5").Select
    Sheets("Wide export journal 2018").Select
    ActiveWindow.SmallScroll Down:=38
    Range("A47").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    ActiveWindow.SmallScroll Down:=-38
    Range("D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("A6").Select
    ActiveSheet.Paste
    Range("B6").Select
    Sheets("Wide export journal 2018").Select
    Range("A21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("BD").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("C6").Select
    ActiveSheet.Paste
    Range("J6").Select
    Sheets("Wide export journal 2018").Select
    Range("F22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    Range("F23").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("K6").Select
    ActiveSheet.Paste
    Range("P6").Select
    Sheets("Wide export journal 2018").Select
    Range("G21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    ActiveWindow.SmallScroll Down:=49
    Range("A67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Sheets("TVA").Name = "TVA"
    Range("Q6").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    ActiveWindow.SmallScroll Down:=-39
    Range("D18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("A7").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    Range("A18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("B7").Select
    ActiveSheet.Paste
    Sheets("BD").Select
    Range("B3:H3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("C7").Select
    ActiveSheet.Paste
    Range("J7").Select
    Sheets("Wide export journal 2018").Select
    Range("F19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Range("K7").Select
    Sheets("Wide export journal 2018").Select
    Range("F20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Range("P7").Select
    Sheets("Wide export journal 2018").Select
    Range("G18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Application.CutCopyMode = False
    Sheets("Wide export journal 2018").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    Range("G18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("P7").Select
    ActiveSheet.Paste
    Sheets("Wide export journal 2018").Select
    ActiveWindow.SmallScroll Down:=62
    Range("A93").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TVA").Select
    Range("Q7").Select
    ActiveSheet.Paste
    Columns("J:J").ColumnWidth = 15.5
    Columns("J:J").ColumnWidth = 17.83
    Columns("K:K").ColumnWidth = 14.17
    Columns("K:K").ColumnWidth = 16.33
    Columns("P:P").ColumnWidth = 15.67
    Columns("P:P").ColumnWidth = 18
End Sub


On notera que tu as utilisé l'enregistreur de macros... et que tu as laissé plein de lignes inutiles.
Il faut également éviter les .Select ... Copy... Paste....

A la place, on ciblera directement les cellules désirées et on manipulera les "VALUE"

Pour ce qui est de définir des "plages de cellules" de façon "automatique", tu peux utiliser du code tel que :
'Find the last non-blank cell in column A(1)
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Find the last non-blank cell in row 1
    lCol = Cells(1, Columns.Count).End(xlToLeft).Column

qui te permet d'avoir le numero de la dernière ligne et celui de la dernière colonne.
A toi d'adapter ensuite à tes besoins.

Quoi qu'il en soit, en l'état, nous balancer un code en vrac en nous disant d'aller le lancer pour voir ce qu'il doit faire et qu'ensuite on te fournisse le code tout cuit... (c'est sincèrement à ça que ta question fait penser.... ) ce n'est pas top.
Donc revient nous voir avec une explication claire et détaillée de ce que tu souhaites faire....
Du code que tu auras tenté de réaliser pour y arriver... et le détail des éventuels soucis rencontrés.


nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020

Merci