Discussion :

[llebucheur]

Bonjour le forum,

Je me tourne vers vous car je séche sur une ligne de code. Lorsque je cherche à appliquer un copier/coller en définissant la sélection via Range (cells(...,...), Cells (...,...) j'obtiens une erreur de type 1004.

Voir le code ci dessous :

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
19
20
21
 
Function copier(typpe, classeur, coldeb, bornesup, colfin, borneinf)
 
lignedest = Range("A65536").End(xlUp).Row + 1
If typpe = "Réalisé" Then
    coldest = 2
ElseIf typpe = "Engagé" Then
    coldest = 13
Else
    MsgBox "Erreur fatale"
    End
End If
 
Workbooks(classeur).Worksheets(1).Range(Cells(bornesup, coldeb), Cells(borneinf, colfin)).Copy _
    Destination:=ThisWorkbook.Worksheets("Détail").Range(lignedest, coldest)
 
bas = ThisWorkbook.Worksheets("Détail").Range(65536, coldest).End(xlUp).Row
For i = lignedest To bas
    ThisWorkbook.Worksheets("Détail").Cells(i, 1).Value = typpe
Next i
End Function

A noter lorsque je fais un appel standard du type (voir ci dessous) le code marche nickel

Code :

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

1
2
Workbooks(classeur).Worksheets(1).Range("A6 : L7").Copy _
    Destination:=ThisWorkbook.Worksheets("Détail").Range("B2")

J'espère que vous saurez m'aider. Je vous remercie en tout par avance du coup de main.

A+

[halaster08]

Code :

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

Range(lignedest, coldest)

Je ne suis pas expert mais le problème viens de là je pense.

Essaye

Code :

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

Range(cells(lignedest, coldest))

[llebucheur]

Bien vu halaster08

J'ai en effet un problème à ce niveau la mais ça ne marche toujours pas.

[halaster08]

Ok je viens de tester vite fait, apparemment il faut tes range aient la meme taille donc remplacer le dernier range par un truc du style

Code :

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

Range(Cells(lignedest, coldest), Cells(lignedest + borneinf - bornesup, coldest + colfin - coldeb)

edit: non en fait c'est pas un problème de taille, c'est juste qu'un range avec cells doit avoir deux arguments

Code :

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

Range(Cells(lignedest, coldest), Cells(lignedest , coldest))

devrait marcher aussi

[llebucheur]

Merci pour ton aide mais je reviens toujours avec mon erreur 1004... Je pense que l'erreur est plutôt dans la philosophie du range. Y a un truc de j'ai pas du saisir/voir.

[Invité]

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
19
20
21
 
Function copier(typpe, classeur, coldeb, bornesup, colfin, borneinf)
 
lignedest = Range("A65536").End(xlUp).Row + 1
If typpe = "Réalisé" Then
    coldest = 2
ElseIf typpe = "Engagé" Then
    coldest = 13
Else
    MsgBox "Erreur fatale"
    End
End If
 
Workbooks(classeur).Worksheets(1).Range(Cells(bornesup, coldeb),Cells[/B](borneinf, colfin)).Copy _
    Destination:=ThisWorkbook.Worksheets("Détail").cells(lignedest, coldest)
 
bas = ThisWorkbook.Worksheets("Détail").Range(65536, coldest).End(xlUp).Row
For i = lignedest To bas
    ThisWorkbook.Worksheets("Détail").Cells(i, 1).Value = typpe
Next i
End Function

et si il n'est pas trouvé d’occurrence? quelle valeur prend coldest ?

Code :

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

1
2
3
4
5
6
7
8
If typpe = "Réalisé" Then
    coldest = 2
ElseIf typpe = "Engagé" Then
    coldest = 13
Else
    MsgBox "Erreur fatale"
    End
End If

[halaster08]

C'est étonnant, j'ai tester cette formule sur un petit carré 2x2 en remplacant tes variables par des nombres et je n'ai pas eu d'erreur 1004.
Peut être as-tu un problèmes au niveau de l'une des variables qui serait mal reseignée avant l'exécution du copier/coller.

voila la formule de test que j'ai utilisé

Code :

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

1
2
ThisWorkbook.Worksheets("Sheet2").Range(Cells(1, 1), Cells(2, 2)).Copy _
    Destination:=ThisWorkbook.Worksheets("Sheet2").Range(Cells(3, 3), Cells(3, 3))

[bboy-eazy]

bonjour,

essayez comme ceci:

Code :

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

Destination:=ThisWorkbook.Worksheets("Détail").Cells(lignedest, coldest)

[Marc-L]

Bonjour, bonjour !

Soit le modèle objet d'Excel n'est pas respecté soit le contenu des variables est faux (simple à vérifier !) …

Dans l'hypothèse de variables correctes, voilà pourquoi le modèle objet n'est pas respecté :

dans la ligne n°14 du code initial si la feuille Workbooks(classeur).Worksheets(1) n'est pas celle active

cette ligne n°14 n'a aucun sens car il manque devant chaque Cells la référence de sa feuille ! (et du classeur …)

Tels quels les Cells sans référence de feuille de calculs pointent donc sur la feuille active !

Alors qu'en utilisant une variable objet pour la feuille ou juste en verrouillant la feuille de calculs via un bloc With
(et sans oublier la grossière erreur quant à la destination !) :

Code :

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

1
2
3
4
    With Workbooks(classeur).Worksheets(1)
        Range(.Cells(bornesup, coldeb), .Cells(borneinf, colfin)).Copy _
        ThisWorkbook.Worksheets("Détail").Cells(lignedest, coldest)
    End With

Avec toutes ces erreurs corrigées si cela ne fonctionne toujours pas, il serait temps de vérifier les variables
voir la logique du code …

Voilà, voilà !

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …