Fonction Range pour un nb de lignes variable

Bonjour,

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

Code:

---

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

---

Pour verifier,

Code:

---

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

---

me rend le nombre souhaité.

Merci

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:

---

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

---

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

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:

---

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

---

:ccool::ccool:

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:

---

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.