Discussion :

[mbruno17]

Bonjour,

Je voudrais mettre à jour certain champ d’un fichier Excel (3200 lignes) en fonction d’un autre fichier.

Le fichier à mettre à jour comprend 6 colonnes : Fichier 1

PSId Pid attrib quant code rupt fabr
2572 879 12-15,13-35 0 13543 0 0
552 1347 12-3,13-47 8 61012 0 0
553 1347 12-2,13-47 5 61012 0 0
554 1347 12-1,13-47 0 61012 0 0
549 1345 12-3,13-19 0 61027 0 0
550 1345 12-2,13-19 0 61027 0 0

Je veux modifier les valeurs des colonnes quant, rupt et fabr avec le fichier suivant en fonction de la colonne code.

Fichier 2

code quant rupt fabr
13543 31 0 0
0011BSM 52 0 0
0011BXL 24 0 0
0011NSM 13 0 0
0011NXL 15 0 0
0907HBEI 24 0 0

Je veux donc avec une fonction mettre à zéro tout les champs des ces 3 colonnes du fichier 1(certain code ayant une quant nulle ne sont pas présent dans le fichier 2) et ensuite mettre les nouvelles valeurs en fonction du champ code.
Je ne sais pas si c’est faisable et je ne connais pas suffisamment Excel pour me lancer seul.
Merci pas avance à toute les personnes qui voudrons bien se pencher sur mon problème.
Bruno

[casefayere]

Bonjour,
sans avoir vérifier, essayes ce code :

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
Sub Macro1()
Dim f1 As Worksheet, f2 As Worksheet, cel As Range, dl As Long
Set f1 = Workbooks(fichier1.xls).Sheets("feuil1") 'en supposant que les deux fichiers sont ouverts et les données sur feuil1
Set f2 = Workbooks(fichier2.xls).Sheets("feuil1") 'en supposant que les deux fichiers sont ouverts et les données sur feuil1
With f1
    dl = .Range("e" & .Rows.Count).End(xlUp).Row
    'tu remets tes cecolonnes concernées à zéro avant
    .Range("d2:d" & dl).ClearContents
    .Range("f2:g" & dl).ClearContents
    For Each cel In .Range("e2:e" & dl)
        .Cells(cel.Row, cel.Offset(0, -1).Column) = f2.Range("b2:b" & f2.Range("a" & .Rows.Count).End(xlUp).Row).Find(cel).Offset(0, 1)
        .Cells(cel.Row, cel.Offset(0, 1).Column) = f2.Range("c2:c" & f2.Range("a" & .Rows.Count).End(xlUp).Row).Find(cel).Offset(0, 2)
        .Cells(cel.Row, cel.Offset(0, 2).Column) = f2.Range("d2:d" & f2.Range("a" & .Rows.Count).End(xlUp).Row).Find(cel).Offset(0, 3)
    Next cel
End With
 
End Sub

[mbruno17]

Bonjour et merci pour la réponse

Je viens de tester le code mais j'ai une erreur.
J'ai bien les deux fichiers ouvert séparement et les données sur la feuil1.
Lorsque j'éxecute le code, j'ai une erreur d'éxecution 424 "objet requis".
sur la ligne : Set f1 = Workbooks(fichier1.xls).Sheets("feuil1").
J'ai un peu compris le code mais je ne vois pas comment corriger cette erreur.

Bruno.

[casefayere]

excuses,

Code :

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

1
2
Set f1 = Workbooks("fichier1.xls").Sheets("feuil1") 
Set f2 = Workbooks("fichier2.xls").Sheets("feuil1")

si les noms de fichier sont bien ceux la

je viens de voir que tu travailles sur 2007 alors tes fichiers ont l'extension xlsm ou xlsx et non xls

[mbruno17]

J'ai trouvé et cherchant dans l'aide pour les guillements mais tu a été plus rapide.
La suite se passe bien les colonnes sont à zéro mais nouveau blocage sur la ligne :
.Cells(cel.Row, cel.Offset(0, -1).Column) = f2.Range("b2:b" & f2.Range("a" & .Rows.Count).End(xlUp).Row).Find(cel).Offset(0, 1)
erreur 91 variable objet ou variable de bloc with non définie

[casefayere]

je n'ai plus le temps de répondre ce soir mais j'espère que quelqu'un d'autre pourra prendre le relai (je pars en chou......)

bonne soirée