Re : Copier Coller, l'équivalant du $ en VBS
Bonjour tototiti2008,
Vu que je ne connais pas bien le VBA (la preuve que je le connais mal est que je pensait que VBS signifiait Visual Basic Script, et que VBA était autre chose, alors que c'est l'inverse), voila une petite partie de mon code, et sinon, non, mon VBS ne lance pas excel et n'ouvre pas mon classe, j'ai un seul classeur, déjà ouvert, dans ce classeur, comme expliqué, je veux copier coller (en boucle, d'ou l'utilisation d'un VBS) des cellules d'un endroit à un autre, puis supprimer la ligne pour la premier endroit et recopier coller automatiquement les nouvelles cellules au même endroit que précedement.
Pour mes lignes de copie les voila:
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AB1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH9").Select
ActiveSheet.Paste
Range("AD1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I16").Select
Range("AE1501").Select
Application.CutCopyMode = False
Selection.Copy
Columns("AE:AE").ColumnWidth = 8.57
ActiveWindow.LargeScroll ToRight:=-1
Range("H18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AP1436:AP1437").Select
Range("AP1437").Activate
ActiveWindow.SmallScroll Down:=99
Range("AF1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Elles ont été obtenues basiquement avec l'utilisation de la création de macro de excel, donc sont certainement pas très jolies...