Discussion :

[Iichham]

bonjour a tous

voilà j ai un petit problème de copie. je désire copier la valeur du range("G"&i) du classeur ClasPre (feuille Feuil1) vers ClasDeu dans l feuille Feuil1 et dans la cellule A de l avant sixième ligne de la dernier ligne utilisée du classur ClasDeu

Code :

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

1
2
set C3=workbooks("ClasDeu.xlsx")
range("G"&i).copy C3.worksheets("Feuil1").range("A" & cells(rows.count, 1).end(xlup).row -5)

mais ca me renvoie une erreur . en fait quand je remplace le "cells(rows.count, 1).end(xlup).row -5)" par le numéro de la ligne ça marche ... quoique j ai une autre procédure qui quand elle s'execute elle me crée des lignes donc le numéro de l'avant sixième ligne change


merci d' avance

[MarcelG]

Bonsoir à toi, Bonsoir le Forum

Ta concaténation n'est pas correcte. En effet, tu associes un nom de colonne "A" avec une adresse de cellule

Essaie plutôt

Code :

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

1
2
Set C3 = Workbooks("ClasDeu.xlsx")
Range("G" & i).Copy C3.Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(-5, 0)

[Iichham]

merci pour ton aide mais ça ne marche toujours pas j'ai toujours le même message d'erreur (pour les deux bout de code)

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

[mercatog]

Bonjour
Comme tu n'as pas mis le code en entier, essaies de travailler avec des variable.
Tu veux copier la cellule Gi (i a quelle valeur?) vers la 5ème cellule en partant du bas de tes donnés de Feuil1 de ton classeur C3

Code :

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

1
2
3
4
With C3.Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count,1).End(xlUp).Row
    If LastLig > 5 Then ThisWorkbook.Sheets("NomFeuilleSource").Range("G" & i).Copy .Range("A" & LastLig - 5)
End With

[Iichham]

mon code ressemble un peu à ça :

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
 
Sub copier()
Dim C1 As Workbook, C3 As Workbook
 
Set C1 = Workbooks("ClasPre.xlsm")
Set C3 = Workbooks("ClasDeu.xlsx")
With C1
With Sheets("Feuil1")
For i = 1 To 65536
if Range("D" & i).Value = "vente" Then
range("D"&i).copy C3.worksheets("Feuil1").range("A" & cells(rows.count, 1).end(xlup).row -5)
End If
Next i
End With
End With
End Sub

[mercatog]

Tu consens ce que tu essaies de faire?
Tu tu écries vente dans la 5ème cellule en remontant du bas de ton tableau
(En parcourant 65536 cellules)

[Iichham]

en fait j ai une procédure dans le deuxième classeur qui me crée des tableaux de tailles fixes (à chaque exécution elle crée un tableau et à la 5ème cellule en remontant du bas du tableau créé je dois coller la valeur de la cellule du "G"&i (je dois parcourir toutes les cellules de la colonne G du premier classeur et j'ai 3 cas si la valeur est "vente" je copie dans la cellule A en remontant du bas, si "Achat" je copie dans B et si "en reduc" en E .)
les deux procédures s'exécutent l'une après l'autre