Titre du sujet : Re: Consigne aléatoire par Guy le 03/07/2010 13:56:12
Bonjour Wilplan,
Si tu me disais en mots ce que tu cherches à faire avec
Range("A4:A12").Select
Selection.Copy
Sheets("Feuil1").Select
Range("B11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Range("B5:B12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Range("C6:C12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("E13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Selection.ClearContents
Range("D12:D18").Select
Selection.ClearContents
Range("B11:B19").Select
Selection.ClearContents
Sheets("Feuil2").Select
Range("B14").Select
je pourrais sans doute t'aider.
Le bogue se produit à la ligne
Selection.ClearContents
mais, bref, je n'ai pas le coeur à suivre les méandres de ce code produit avec l'enregistreur de macros et qui regorge de .Select. Un codeur ne produit pas de .Select mais des pointeurs explicites vers des objets ciblés. L'enregistreur de macros est très utile pour mettre le doigt sur une propriété ou une méthode (fonction) obscure mais pas pour coder.
Donc, que cherches-tu à faire au juste?
Cordialement,
Guy
|