Discussion :

[developpeur82]

Bonjour,

Pouvez vous me dire svp ce qui n'est pas bon dans cette synthaxe? ca plante a cet endroit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TOTO").Range("B7:R" & (Sheets("Scratch Pad").Cells(15, 4).Value - 1)).Select

Pour verifier,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ("" & (Sheets("Scratch Pad").Cells(15, 4).Value - 1))

me rend le nombre souhaité.

Merci

[Philippe Tulliez]

Bonjour,
Dans le deuxième code tu affiches la valeur de la cellule d'une feuille en lui retranchant 1
Dans le premier franchement, je ne sais pas ce que tu veux faire mais vraisemblablement tu es sur une autre feuille que la feuille "Toto" quand tu fais le Select, ce qui provoque une erreur.
Si la feuille nommée "Feuil1" est active quand tu lances le code ci-dessous, tu auras aussi un message d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil2").Range("A1").Select

Y a t'il une raison particulière de faire un Select ?

[developpeur82]

Vous aviez raison Philippe. c'est bien ce que vous disiez, "etre sur une autre feuille que la feuille "Toto" quand tu fais le Select, ce qui provoque une erreur."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Sheets("TOTO").Select
    Sheets("TOTO").Range("B7:R" & (Sheets("Scratch Pad").Cells(15, 4).Value - 1)).Select
    Selection.Copy
    Sheets("TOTO2").Select
    Sheets("TOTO2").Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[Philippe Tulliez]

Bonjour,
On le répète sans arrêt sur ce forum, il est parfaitement inutile d'utiliser les instructions Select, Selection, Activate etc....
De plus cela ralenti l'exécution des procédures.
Sans m'étendre sur le côté curieux de cet adressage, la procédure ci-dessous fait exactement la même chose, se réduit à deux lignes et n'utilise pas le Select et Selection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("TOTO").Range("B7:R" & (Sheets("Scratch Pad").Cells(15, 4).Value - 1)).Copy
Sheets("TOTO2").Range("A8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Attention, corrigé sans avoir fait le test.