Erreur d'exécution'1004'

[ericTA]

Bonjour à tous,
j'ai une erreur que je ne comprends pas :

Dim tablo As Variant

tablo = Sheets("Feuil1").Range(Cells(3, 27), Cells(200, 27))
j'utilise cells pour faire varier la colonne

il me marque erreur d'exécution '1004'

que je n'ai pas si j'ai :
tablo = Range(Cells(3, 27), Cells(200, 27))

Help.
Merci d'avance.
Eric

 

[suistrop]

Re : Erreur d'exécution'1004'

Salut,

Chez moi ton code marche.
As tu plusieurs classeur ouvert ?
Met ceci au début de ton code :

Thisworkbook.activate

Cordialement

 

[Pierrot93]

Re : Erreur d'exécution'1004'

Bonjour Eric,

Dans ce cas "cells" s'aplique à la feuille active, il y a peut être lieu de préciser son nom si c'est pas le cas, essaye peut être ainsi :

tablo = Sheets("Feuil1").Range(Sheets("Feuil1").Cells(3, 27), Sheets("Feuil1").Cells(200, 27))

A noter, l'utilisation d'un bloc "with" permet de raccourcir le code :

With Sheets("Feuil1")
    tablo = .Range(.Cells(3, 27), .Cells(200, 27))
End With

bonne fin d'après midi
@+

 

[tototiti2008]

Re : Erreur d'exécution'1004'

Bonjour ericTA,

à tester :

Dim tablo As Variant
With Sheets("Feuil1")
tablo = .Range(.Cells(3, 27), .Cells(200, 27)).Value
End With

Edit : Bonjour Pierrot, Bonjour suistrop

 

[Lalalaaa]

Re : Erreur d'exécution'1004'

Bonjour,

Excusez moi de ne pas apporter de réponse mais j'ai également un problème similaire à Eric avec le code suivant :

Sheets("Synthèse").Select
Range("AJ2").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-27]<>"",RC[-19]-RC[-27],"")"

Erreur d'exécution '1004': erreur définie par l'application ou l'objet

Je ne comprends pas d'où vient le problème ?
Merci de m'éclairer ...

 

[Fo_rum]

Re : Erreur d'exécution'1004'

salut

à essayer

Sheets("Synthèse").[AJ2].FormulaR1C1 = "=IF(RC[-27]<>"""",RC[-19]-RC[-27],"""")"