[XL 2010] Problème de définition des variables

Bonjour à tous,

Mon problème est à mon avis très stupide, mais je m'arrache un peu les cheveux depuis hier. J'ai simplement une erreur 1004 (pb de definition de l'application ou de l'objet) sur la ligne en rouge. J'ai enlevé toutes les définitions de variables pour que tout soit clair:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Crea() Sheets("Tr").Activate For Each cell In Range("Y26:Y95") If cell.Value <= 0 Then ElseIf cell.Value > 0 Then cell.Select ActiveCell.Offset(0, -34).Copy Sheets("Feuil1").Select Range("A65536").End(xlUp).Select ActiveCell.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End If Next cell End Sub

---

Merci d'avance pour vos réponses.

Bonjour

Code:

---

For Each cell In Range("Y26:Y95")

---

Y est la 25 lettre de l'alphabet et donc la 25 eme colonne:mrgreen:

Code:

---

ActiveCell.Offset(0, -34).Copy

---

25-34 = -9:aie:
déja

Bon courage

Bonjour,

Dans ton code, tu boucles sur la colonne Y (25 eme colonne).
Ensuite tu parts de cette colonne vers 34 colonnes sur la gauche. Tu sors donc du tableau et génère cette erreur

Edit : Jean-pierre 49 a été plus rapide :)

J'avais tellement la tête dans le guidon que j'ai raté une erreur aussi stupide.

Merci beaucoup et désolé de vous avoir dérangé pour une erreur pareille.