Discussion :

[tytyxam]

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 :

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

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.

[Jean-Pierre49]

Bonjour

Code :

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

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

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

Code :

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

ActiveCell.Offset(0, -34).Copy

25-34 = -9
déja

Bon courage

[jfontaine]

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

[tytyxam]

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.