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

[sabzzz]

bonjour mbruno17,

.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)

.Rows.Count s'applique à quoi ?

[casefayere]

Bonjour à tou(te)s,
J'ai deux minutes
re-essayes comme ç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
17
18
Sub Macro1()
Dim f1 As Worksheet, f2 As Worksheet, cel As Range, dl As Long, dl1 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
   dl1 = f2.Range("a" & f2.Rows.Count).End(xlUp).Row
    'tu remets tes colonnes 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" & dl1).Find(cel).Offset(0, 1)
        .Cells(cel.Row, cel.Offset(0, 1).Column) = f2.Range("c2:c" & dl1).Find(cel).Offset(0, 2)
        .Cells(cel.Row, cel.Offset(0, 2).Column) = f2.Range("d2:d" & dl1).Find(cel).Offset(0, 3)
    Next cel
End With
 
End Sub

[mbruno17]

Re Bonjour,

Merci de te pencher sur mon problême.
Je viens de tester et j'ai toujours la même erreur sur la ligne :

Code :

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

.Cells(cel.Row, cel.Offset(0, -1).Column) = f2.Range("b2:b" & dl1).Find(cel).Offset(0, 1)

erreur 91 variable objet ou variable de bloc with non définie.

Je repart au boulot et je regarde ce soir. Merci encore.

Bruno

[casefayere]

C'est dommage car je n'ai pas trop de temps pour analyser plus que ça, autre tentative :

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
Sub Macro1()
Dim f1 As Worksheet, f2 As Worksheet, cel As Range, dl As Long, dl1 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
   dl1 = f2.Range("a" & .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, 4) = f2.Range("b2:b" & dl1).Find(cel).Offset(0, 1)
        .Cells(cel.Row, 6) = f2.Range("c2:c" & dl1).Find(cel).Offset(0, 2)
        .Cells(cel.Row, 7) = f2.Range("d2:d" & dl1).Find(cel).Offset(0, 3)
    Next cel
End With
 
End Sub

[sabzzz]

bonjour mbruno17, casefayere,

il faut déclarer les variables Object "As Object"

Code :

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

Dim f1 As Object, f2 As Object

[mbruno17]

Merci Sabzzz et Casfayere.


Je viens de nouveau de tester avec en modifiant f1 et f2 en Objet et j'ai encore une erreur sur la ligne :

Code :

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

  .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 1004 erreur définie par l'application ou par l'objet.

Le code complet :

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 Object, f2 As Object, cel As Range, dl As Long, dl1 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 colonnes concernées à zéro avant
    .Range("d2:d" & dl) = 0
    .Range("f2:g" & dl) = 0
    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

J'ai tenter les autres version du code mais même erreur ou erreur 91.
Dans tous les cas la mise à zéro des colonnes se passe bien.

[sabzzz]

bonjour mbruno17,

peut tu faire un test en ajoutant dans ce code les 2 commandes suivante,
ça va nous permettre de mieux cibler l'erreur.

Code :

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

1
2
3
4
5
6
7
    For Each cel In .Range("e2:e" & dl)
a= 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).address
 
b = f2.Range("d2:d" & f2.Range("a" & .Rows.Count).End(xlUp).Row).Find(cel).Offset(0, 3)
 
           Next cel

[mbruno17]

Merci sabzzz
Je viens de tester en remplacant la boucle par celle que tu viens de me donner et de nouveau erreur 91 à la ligne

Code :

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

a = f2.Range("b2:b" & f2.Range("a" & .Rows.Count).End(xlUp).Row).Find(cel).Offset(0, 1)

Est ce que ça peux provenir de mes fichiers?

[sabzzz]

bonjour mbruno17,

pour moi les 3 lignes commencant par .Cells sont incompréhensible, il faudrait que tu explique ce qu'elles doivent faire au juste.

Code :

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

1
2
3
4
5
    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

[mbruno17]

Bonjour sabzzz,
Je reprends mes explications plus clairement.
Je veux mettre à jour certaine colonnes d’un fichier par rapport à un autre.
Je dispose de 2 fichiers. Le fichier 1(celui à mettre à jour) comprend 7 colonnes (et environ 3300 lignes) :


Le deuxième 4 colonnes :


Le fichier 1 comprend plus de ligne que le fichier 2.
J’ai rajouté des noms de colonne pour m’expliquer mais normalement ils n’existent pas. Je peux les conserver s’ils peuvent être utiles.
Ce que je veux faire mes deux fichiers étant ouverts dans Excel et chacun sur la feuille 1 :
1 : mettre à zéro les colonnes Stock, Rupt et Fabr du fichier 1. Cette partie du code proposé par casafayere fonctionne.
2 : dans le fichier 1 colonne Code, lire la première valeur (ici 2005NUD), chercher dans le fichier 2 colonne 1 si cette valeur existe :
si elle existe prendre les valeurs des colonnes Stock, Rupt1 et Fabr1 et les affecter respectivement aux champs Stock, Rupt et Fabr du fichier 1 (2005NUD)
si elle n’existe pas ne rien modifier ni supprimer et passer au champ suivant dans le fichier 1.
Et cela jusqu'à la fin du fichier 1.
Le fichier 1 est trié sur la première colonne mais je peux faire ce tri sur la colonne Code article.
Les colonnes Attrib et Code du fichier 1 ainsi que la colonne Code Article du fichier 2 sont au format texte, les autres sont numériques.
Encore merci sabzz de m’aider.
Bruno.

[sabzzz]

bonjour Bruno,

veut tu essayer cette macro,

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
Sub Macro1()
Dim f1 As Object, f2 As Object, cel As Range, dl As Long, dl1 As Long
'f1 fichier base
Set f1 = Workbooks("fichier1.xls").Sheets("feuil1") 'en supposant que les deux fichiers sont ouverts et les données sur feuil1
'f2 fichier contenant les mise à jour
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("E65536").End(xlUp).Row
    'tu remets tes colonnes concernées à zéro avant
    .Range("d2:d" & dl) = 0
    .Range("f2:g" & dl) = 0
    For Each cel In .Range("e2:e" & dl)
    'vérifier que le code existe dans le fichie2
    'f1(f2)=( A()   B()   C()   D(b) E(a) F(c) G(d))
     If Not IsError(Application.Match(cel, f2.Range("A:A"), 0)) Then
        ligne = Application.Match(cel, f2.Range("A:A"), 0)
        .Range("D" & cel.Row) = f2.Range("B" & ligne)
        .Range("F" & cel.Row) = f2.Range("C" & ligne)
        .Range("G" & cel.Row) = f2.Range("D" & ligne)
     End If
    Next cel
End With
End Sub

[mbruno17]

Isabelle un grand bravo et merci c'est parfait.

Je viens de faire un contrôle sur les quantités pas une erreur.
J'ai bien fait de venir sur ce forum pour rechercher de l'aide.
Merci aussi à casafayere pour m'avoir aider.

Bonne journée à tous.

Bruno.