Discussion :

[Trystan441]

Bonjour,

Je souhaite créer un fichier de suivi de tournées fournisseurs. Chaque semaine je vais avoir des données à déplacer au sein de mon fichier (Feuille "Renseignement" -> Feuille "Historique des tournées").
Je ne souhaite pas écraser les données transférer précédemment pour pouvoir faire des analyses par la suite.

Au début tout se passe très bien jusqu'à la ligne 31 où j'ai l'erreur 1004 :

Erreur défini par l'application ou par l'objet.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Historique()
 
'compteur de ligne dans la feuille de renseignement hebdomadaire
Dim Ligne As Variant
Ligne = Sheets("Renseignement").Range("A3:A" & Rows.Count).End(xlDown).Row
 
'test si la seconde cellule de ma feuille est vide
'Si oui : Alors on copie à partir de cette cellule
'Si non : Alors on copie à la suite
 
If Sheets("Historique des tournées").Cells(2, 1) = "" Then
 
    With Sheets("Renseignement")
        .Select
        .Range(Cells(3, 1), Cells(Ligne, 7)).Copy
    End With
 
    Sheets("Historique des tournées").Range("A2").PasteSpecial
 
Else:
    With Sheets("Renseignement")
        .Select
        .Range(Cells(3, 1), Cells(Ligne, 7)).Copy
    End With
 
Ligne = Sheets("Historique des tournées").Range("A1:A" & Rows.Count).End(xlDown).Row
 
    With Sheets("Historique des tournées")
        .Select
        .Range(Cells(Ligne + 1, 1)).PasteSpecial
    End With
 
End If
 
End Sub

Après plusieurs recherches, je ne trouve pas la solution. Vous auriez une idée ?

Merci,

Bonne journée,

[unparia]

Bonjour
Cells étant une propriété d'un objet de la feuille directrice du bloc With, doit donc être précédé du caractère "." qui le spécifie

[halaster08]

Bonjour,

je pense qu'il y a un problème ici:

Ligne = Sheets("Historique des tournées").Range("A1:A" & Rows.Count).End(xlDown xLUp).Row

Tu souhaites bien récupérer la dernière ligne non vide ?
Avec xlDown tu pars de la dernière ligne et tu descend encore donc tu ne bouge pas, et quand tu demande cells(Ligne + 1, ) tu dépasse les capacité d'Excel d'où l'erreur

[NVCfrm]

Salut,
Evite les selects pour accéder a une feuille, une cellule etc. Designes directement l'objet, ou affecte l'objet a une variable pour le manipuler a travers celle-ci. Tu eviteras ainsi beaucoup de problemes.
Pour la ligne en gras, un argument est manquant, quand on accede a un range avec cells.

...

Code :

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

        .Range(Cells(Ligne + 1, 1, cells(ligne+1, 1)).PasteSpecial

...

[Trystan441]

Bonjour,

Merci beaucoup pour vos réponses,

Halaster :
J'ai testé ta réponse mais ça ne fonctionne pas, il me compte à partir de la cellule A3 mais vers le haut, donc ça me renvoi la valeur : 2 (j'ai 1084 lignes non vides)

Unparia :
Comment je peux faire pour pointer une zone de cellule à référence variable sans passer par : Range(Cells(..))

NVCfrm :
J'ai essayé d'insérer une variable faisant référence à une cellule, malheureusement je n'y suis pas encore arrivé. Je continu de chercher comment faire !

Bonne journée,