Bonjour à tous,
J'ai une macro qui fonctionne, mais j'aimerais la simplifier, retirer les .select qui ne servent à rien.
Voici le code général qui fonctionne ;
J'aimerai retirer le .select de cette partie ; Je ne sais pas comment compter sans aller sur l'onglet en question
Merci pour votre aide
J'ai une macro qui fonctionne, mais j'aimerais la simplifier, retirer les .select qui ne servent à rien.
Voici le code général qui fonctionne ;
VB:
Windows("Budget.xlsm").Activate
Sheets("Admin").Range("B25:G25").Copy
Sheets("DATA").Select
T = WorksheetFunction.CountA(Columns(1))
Sheets("DATA").Range("A" & T + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("DATA").Range("A" & T + 1, "F" & T + 1).Copy
Sheets("Admin").Range("B30").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("admin").Select
Range("D13").ClearContents
Application.CutCopyMode = False
J'aimerai retirer le .select de cette partie ; Je ne sais pas comment compter sans aller sur l'onglet en question
VB:
Sheets("DATA").Select
T = WorksheetFunction.CountA(Columns(1))
Merci pour votre aide