Problème de selection/copy de case

Bonjour,

Je cherche à développer une macro mais je me trouve confronté à un problème que je n'avais jamais vu. J'essaie de sélectionner une case dans mon fichier Excel grâce à ma macro mais j'obtiens l'erreur '1004'.

Code:

---

1 2 3 4

Windows("Fichier.xls").Activate Sheets("Daily").Activate Sheets("Daily").Select Cells(1, 2).Select 'j'ai l'erreur à ce niveau là.

---

Je ne comprends pas car quand je mais ce code sur un autre fichier, il marche correctement.

Est-ce que quelqu'un pourrait m'aider svp ?

Bonjour

redonne la définition de l'erreur 1004

A tu essayé avec

Code:

---

Sheets("Daily").Cells(1, 2).Select

---

Merci de ta réponse mais j'ai essayé ce code, la selection se fait mais elle est vide car si je fais :

Code:

---

1 2	Cells(3, 2).Select Selection.Copy

---

Ma case est vide et si je fais:

Code:

---

1 2	g=Cells(1, 2) msgbox g

---

Je n'ai rien dans ma msgbox...

Par contre je n'est plus l'erreur "run time error '1004' , select method of range class failed".

Je ne comprend pas trop

ta cellule est vide 8O cela devrait être différent?

la cellule Cells(1, 2) contient une valeur mais lorsque je lance ma macro et que je fais mes différents tests c'est comme si ma cellule était vide alors qu'à la base elle contient bien une valeur. Si je copie/colle ma case, qui contient la valeur "10" par example, grâce à ma macro, je n'ai aucune valeur qui apparait lors de mon collage... C'est ça que je ne comprends pas.

Et quand ta macro est terminée ta cellule contient toujours 10 ?

Ouai la case initiale contient toujours 10 mais la case de destination où j'ai copié la valeur ne contient aucune valeur. C'est vraiment bizarre. Je me demande si ce n'est pas une configuration du fichier excel qui génère ce problème

Là, je suis vraiment désolé, je ne vois pas non plus :oops:

Avec quelle version Excel tu travail?

Je travaille sous Excel 2003. J'avais déjà rencontrer ce problème une fois. Et c'est très étrange parce que si j'enregistre la macro avec l'enregistreur de macro et que je la lance, ça copie/colle les cases sans problème. Mais si je copie le code de cette macro enregistrée dans un bouton par exemple, ça ne marche plus.
C'est vraiment étrange...

Et en reboutant ton PC?
a tout hasard.....

non ca ne change rien... C'est vraiment une erreur bizarre... je vais poster un nouveau topic sur le forum voir si quelqu'un a déjà eu ce problème

Bonjour,

Je travaille sur une macro qui doit copier des cellules d'un fichier dans un autre mais il n'arrive pas à selectionner ma case, il met l'erreur '1004'. Si je mets simplement g=cells(1,2) et msgbox g , j'ai aucune valeur qui ne s'affiche dans ma msgbox et pourtant il y en a bien une... J'ai fait plusieurs tests, avec différents activate, une façon de selectionner différente mais rien n'a marché, au pire j'ai eu l'erreur '1004' qui a disparu mais quand je copiais la case, celle-ci était considéré comme une case vide.

Voilà un petit bout du code pour montrer l'erreur:

Code:

---

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

Windows(Fichier).Activate Sheets("Daily").Select Sheets("Daily").Cells(i, 2).Select   For i = 2 To 7 Cells(i, 2).Select 'l'erreur apparait ici Selection.Copy   g = Cells(i, 2) 'si je supprime la selection et la copie de la case et que je laisse cette partie je n'ai aucune valeur dans ma msgbox ! MsgBox g   Windows(Fichier1).Activate Sheets("Daily").Select   Cells(i + 5, 2).Select Selection.PasteSpecial Paste:=xlPasteValues   Next

---

Est-ce que quelqu'un pourrait m'aider svp ?

Bonjour,

Tu peux essayer avec

Code:

---

1 2 3 4 5 6

Windows(Fichier).Activate With Sheets("Daily") For i = 2 To 7 .Cells(i, 2).Copy Destination:=.Cells(i + 6, 2) Next End With

---

Cordialement.

Merci,

Ce code marche :ccool: mais par contre je ne sais pas comment je peux l'utiliser pour copier des données dans un autre classeur. Mon but est de copier des donnée sous une certaine condition, de changer de classeur puis de les coller dans le nouveau classeur. Comment est que je peux faire ça ?

Voici un exemple de copie avec 2 classeurs ouverts.

Copie de la plage B2:B7 de la feuille Daily du classeur 1 dans la plage B7:B12 de la Feuil1 du classeur2.

Code:

---

1 2 3 4 5

With Workbooks("Classeur1.xlsm").Worksheets("Daily") For i = 2 To 7 .Cells(i, 2).Copy Destination:=Workbooks("Classeur2.xlsm").Worksheets("Feuil1").Cells(i + 5, 2) Next End With

---

Cordialement.

ok parfait pour le copier/coller. Merci ! :D
Par contre si j'utilise une fonction " if ", la valeur de la case n'est pas prise en compte, par exemple :

Code:

---

1 2 3 4 5 6

For i = 2 To 7 If Cells(i, 1) = 10 Then .Rows(i).Copy Destination:=Workbooks("Réconciliation daily.xls").Worksheets("Données").Rows(i) End If Next End With

---

Ma case vaut 10 mais elle n'est pas copié et je ne comprends pas pourquoi...

bonjour
as-tu essayé avec

Code:

---

If Cells(i, 1).value = "10" Then

---

tu dis

j'ai essayé mais ça ne change rien, j'ai l'impression que c'est les données que je copie qui ont un problèmes. En fait au départ elles étaient en CSV puis je les ai converti en excel. est-ce que ça peut jouer ?

Lorsque tu travailles avec plusieurs classeurs ou feuilles, prends soin de préciser à quel classeur ou feuille tu fais référence quand tu écris ton code.

Code:

---

If Workbooks("Classeur1.xls").Worksheets("Données").Cells(i, 1) = 10 Then

---

Il doit te manquer un .

Code:

---

If .Cells(i, 1).Value = "10" Then

---

Ou en essayant de forcer le type

Code:

---

If CStr(.Cells(i, 1).Value) = "10" Then

---

Ou et en supprimant les espaces

Code:

---

If CStr(Trim(.Cells(i, 1).Value)) = "10" Then

---

Tu dis