Discussion :

[tokis]

Bonjour à tous.

J'ai un fichier excel qui sert à automatiser des commandes qui a été crée par une personne qui ne travaille plus dans la structure.

J'ai donc une erreur 1004 que je n'arrive pas à résoudre, après avoir regardé les nombreux post sur cette erreur. Je ne suis absolument pas spécialiste en VBA... merci d'avance pour votre aide.

l'erreur vient de la ligne :

Code :

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

travail = Sheets("Accusé Réception Cdes").Range("travail").Value

Voici le code en entier :

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
'Macro enregistrée le 05/03/01 par VERO
'Cette procédure enregistre l'Accusé réception Cdes et le reporte sur la feuille COMMANDES
'
Sub mise_jour()
    Dim i As Integer 'ligne du dernier enregistrement
    Dim z As Integer
 
    Sheets("COMMANDES").Select
    Cells(11, 1).Activate
    Columns(1).Find("", after:=ActiveCell).Activate
    i = ActiveCell.Row
    NDC = Cells(i - 1, 1).Value
    NDC = NDC + 1
        Cells(i, 1).Value = NDC
    Sheets("Accusé Réception Cdes").Select
    Range("NDC").Value = NDC + 1
 
 
    Sheets("COMMANDES").Select
    dateclt = Sheets("Accusé Réception Cdes").Range("dateclt").Value
    Name = Sheets("Accusé Réception Cdes").Range("société").Value
    nclt = Sheets("Accusé Réception Cdes").Range("nclt").Value
    travail = Sheets("Accusé Réception Cdes").Range("travail").Value
        Qté = Sheets("Accusé Réception Cdes").Range("Qté").Value
    délai = Sheets("Accusé Réception Cdes").Range("délai").Value
    Cells(i, 2).Value = dateclt
    Cells(i, 3).Value = Name
    Cells(i, 4).Value = travail
    Cells(i, 5).Value = nclt
    Cells(i, 6).Value = Qté
    Cells(i, 7).Value = délai
 
    Sheets("Accusé Réception Cdes").Select
 
End Sub

[ZebreLoup]

Je suppose qu'il n'y a pas (ou plus) de zone correspondant au nom "travail". Quand tu vas dans la liste des zones nommées, elle y est ou pas ?

[tokis]

où puis je trouver la liste des zones ?

[ZebreLoup]

Soit à gauche de la zone de saisie de formules, mais il n'y aura que les références "absolues". Soit pour avoir la liste complète, tu vas dans Insertion/Nom/Définir...
Il faut vérifier que le nom y est bien et qu'il ne fait pas référence à des cellules que tu aurais effacées (qu'il n'y a pas de #REF dans la formule)

[tokis]

Bien vu,

effectivement j'ai une zone "travail" dans la liste des zones qualifiée telle que : Travail='Accusé Réception Cdes'!#REF!

Mais étant donné que je n'ai pas conçu ce document je ne sais pas quelles cellules ont été effacées...

[ZebreLoup]

Et bien tu sais quoi ? Moi non plus !

Pour le coup, tu as du effacer à un moment ou à un autre des cellules qui appartenait à cette zone. Il faut que tu comprennes bien ce que fait la macro pour essayer de deviner à quoi correspondait cette zone.

Et si je peux me permettre, la macro avait du être écrite par quelqu'un qui ne s'y connaissait pas trop en VBA. Si tu nous expliques un peu le format des données, le but de l'opération et tout, on pourra peut-être t'aider à améliorer ça.