Problème de selection/copy de case

**bloutchman** · 13/10/2011, 13h24

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 :

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

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 ?

**Jean-Pierre49** · 13/10/2011, 14h13

Bonjour

redonne la définition de l'erreur 1004

A tu essayé avec

Code :

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

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

**bloutchman** · 13/10/2011, 15h36

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

Code :

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

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

Ma case est vide et si je fais:

Code :

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

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".

**Jean-Pierre49** · 13/10/2011, 15h43

Je ne comprend pas trop

ta cellule est vide

cela devrait être différent?

**bloutchman** · 13/10/2011, 16h10

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.

**Jean-Pierre49** · 13/10/2011, 16h14

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

**bloutchman** · 13/10/2011, 16h58

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

**Jean-Pierre49** · 13/10/2011, 17h07

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

Avec quelle version Excel tu travail?

**bloutchman** · 13/10/2011, 17h47

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...

**Jean-Pierre49** · 13/10/2011, 18h03

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

**bloutchman** · 14/10/2011, 10h23

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

**bloutchman** · 14/10/2011, 10h41

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 :

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
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 ?

**gFZT82** · 14/10/2011, 11h03

Bonjour,

Tu peux essayer avec

Code :

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

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.

**bloutchman** · 14/10/2011, 15h37

Merci,

Ce code marche

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 ?

**gFZT82** · 14/10/2011, 15h49

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 :

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

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.

**bloutchman** · 14/10/2011, 17h38

ok parfait pour le copier/coller. Merci !

Par contre si j'utilise une fonction " if ", la valeur de la case n'est pas prise en compte, par exemple :

Code :

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

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...

**Jean-Pierre49** · 14/10/2011, 17h54

bonjour
as-tu essayé avec

Code :

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

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

tu dis

**bloutchman** · 14/10/2011, 18h26

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 ?

**gFZT82** · 14/10/2011, 18h28

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 :

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

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

**Jean-Pierre49** · 14/10/2011, 18h32

Il doit te manquer un .

Code :

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

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

Ou en essayant de forcer le type

Code :

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

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

Ou et en supprimant les espaces

Code :

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

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

Tu dis

Problème de selection/copy de case [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager