Copier/Coller via Range(Cells())

Version imprimable

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:

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:

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+

31/03/2016, 12h08
halaster08

Citation:

Code:

Range(lignedest, coldest)

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

Essaye

Code:

Range(cells(lignedest, coldest))
31/03/2016, 12h11
llebucheur

Bien vu halaster08

J'ai en effet un problème à ce niveau la mais ça ne marche toujours pas.
31/03/2016, 12h39
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:

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:

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

devrait marcher aussi
31/03/2016, 13h12
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.

Code:

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:

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

31/03/2016, 13h22
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:

1 2 ThisWorkbook.Worksheets("Sheet2").Range(Cells(1, 1), Cells(2, 2)).Copy _ Destination:=ThisWorkbook.Worksheets("Sheet2").Range(Cells(3, 3), Cells(3, 3))
31/03/2016, 13h25
bboy-eazy

bonjour,

essayez comme ceci:

Code:

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

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:

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

31/03/2016, 14h28
llebucheur

Merci beaucoup pour cette lecon Marc-L

le code marche en effet avec ces corrections. Pour ma compréhension du sujet. Il faut lorsque l'on utilise la fonction Range avec cells définir pour chaqu'un des cells le classeur d'origine?

Comme tu l'as compris c'est ce que je cherchais à faire via la commande :

Code:

Workbooks(classeur).Worksheets(1).Range(Cells(bornesup, coldeb), Cells(borneinf, colfin)).Copy

Que je traduisais ainsi dans ma petite tête : copie la selection cells(born......,colfin) de la feuille 1 du fichier classeur.

Si j'avais voulu utilisé la variable objet, comment aurais je du procéder?

Dernière question : je cherche à utiliser la fonction Range pour trouver la dernier ligne. Le fameux :

Code:

bas = Range("A65536").End(xlUp).Row

Avec une appelation range(cells(...,...)) permettant une appélation sur une colonne variable comment faire. La ligne ci dessous ne fonction pas:

Code:

bas = Range(ThisWorkbook.Worksheets("Détail").Cells(65536, coldest)).End(xlUp).Row

Merci beaucoup pour votre aide et surtout pour votre partage du savoir!
31/03/2016, 14h40
Invité

Code:

bas = ThisWorkbook.Worksheets("Détail").Cells(Cells.rows.count, coldest).End(xlUp).Row

aujourd’hui il est possible de produire plus que 65536 lignes!
31/03/2016, 15h41
llebucheur

On est d'accord mais je travaille sur des .XLS
31/03/2016, 15h46
Invité

ok mais mon exemple marche pour les 2!
31/03/2016, 17h42
llebucheur

:oops:Désolé je n'avais pas vu la ligne de code dans ta réponse. Le problème quand on regarde entre deux réunions.

Merci beaucoup pour ton aide.
31/03/2016, 17h42
Marc-L

Citation:

Envoyé par llebucheur

Code:

Workbooks(classeur).Worksheets(1).Range(Cells(bornesup, coldeb), Cells(borneinf, colfin)).Copy

Que je traduisais ainsi dans ma petite tête : copie la selection cells(born......,colfin) de la feuille 1 du fichier classeur.

En fait Feuille.Range avec des Cells à l'intérieur ne sert à rien !

Il faut respecter le modèle objet comme ceci :

Code:

Range(Workbooks(classeur).Worksheets(1).Cells(bornesup, coldeb), Workbooks(classeur).Worksheets(1).Cells(borneinf, colfin)).Copy

Et si il y a une adresse fixe à l'intérieur :

Code:

Workbooks(classeur).Worksheets(1).Range("B2", Workbooks(classeur).Worksheets(1).Cells(borneinf, colfin)).Copy

D'où l'intérêt d'utiliser With ou une variable objet pour la feuille de calculs …

______________________________________________________________________________________________________

:fleche: Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
31/03/2016, 18h02
llebucheur

C'est super clair!

Merci pour cette précision et pour ce petit cours.

Je vais clore le sujet acr résolu (si je trouve comment on fait :?)