Rapport de message :*
 

Re: Consigne aléatoire

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