Erreur 1004 - attribution d'une valeur

[altefqhatre]

Salut!

J'ai un problème lorsque j'attribue la valeur d'une cellule à une variable :-(

Voilà mon code:

Dim test As Integer
Dim Lgn As Long
Dim testbis As Integer

Set test = Cells(Lgn, "K").Offset(0, -5).Value
Set testbis = Cells(Lgn, "K").Offset(0, -4).Value

J'ai l'erreur d'éxécution 1004 "Erreur définie par l'application ou par l'objet".

Cela arrive lorsque le code arrive sur la ligne "Set........"

J'aimerais attribuer la valeur d'une cellule à une variable.

Quelqu'un a une idée svp?

Merci beaucoup!!

a++

bonne journée

 

[Efgé]

Re : Erreur 1004 - attribution d'une valeur

Bonjour altefqhatre,
Dans un premier temps:
test et testbis ne devraient pas être Integer mais String ou long suivant la valeur de la cellule.
Pour

Set test = Cells(Lgn, "K").Offset(0, -5).Value

Il faudrait écrire

test = Cells(Lgn, "K").Offset(0, -5).Value

Mais Cells(.... ne va pas : Cells(ligne , colone) oui, mais en chiffre donc
:

test = Cells(Lgn, 11).Offset(0, -5).Value

Mais vous n'avez pas déclarez la valeur de Lgn....
Avec un fichier exemple nous pourrions approfondir le sujet.
Cordialement

 

[Roland_M]

Re : Erreur 1004 - attribution d'une valeur

bonjour,

commences par enlever Set
et revoir tes définitions si c'est bien num ou alpha

EDIT
on s'est croisé salut Efgé

 

[altefqhatre]

Re : Erreur 1004 - attribution d'une valeur

Ah c'est bon ça fonctionne 😛

Effectivement, première erreur "test as Integer"... avec "String" c'est bon ^^

Ensuite le "set" il ne faut point l'utiliser.

Et puis pour "Lgn", ça vient dans la suite du code:

For Lgn = ActiveSheet.UsedRange.Rows.Count To 1 Step -1

De plus, cette déclaration je l'avais placée après les déclarations de "test" et "testbis", donc forcément ça pouvait pas aller 😛

Là tout fonctionne, merci beaucoup pour vos aides 🙂

EDIT: Je profite du poste pour poser une autre question, je copie la valeur d'une cellule dans laquelle se trouve la valeur d'un sous-total... par contre quand je copie cela dans une autre, et bien cette dernière affiche "T_REFERENCE" au lieu de la valeur copiée... Bizzare :-S

 

[Efgé]

Re : Erreur 1004 - attribution d'une valeur

Re
Je ne pense pas que ça soit bizzare.
Il vaudrait mieux faire un copier / collage spécial / Valeur uniquement.
Cordialement