Discussion :

[altessie]

Bonjour,


Je suis en train d'effectuer un programme en visual basic sur Excel. Ce dernier compare les valeurs de deux colonnes de deux fichiers excel et vient prendre les valeurs de la colonne d'à côté du fichier 2 et vient la coller dans le fichier 1 à la bonne ligne article.
Par exemple :

fichier 1 :	fichier 2:
colonne A :	colonne A :	Colonne B
1	3	A
2	15	B
3	8	C
4	1	D

Je souhaite que la colonne B du fichier 1 affiche donc :
D
0
A
0

La difficultée se trouve dans les deux fichiers excel. Il faut savoir que j'en ait créé l'un et que le deuxième est réceptionné. Je ne sais pas quelle options et comment il a été créé.

Mon code actuel est :

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
Set sh2 = Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1:A500")
Set sh1 = Workbooks("Classeur1.xls").Sheets("Feuil1").Range("A1:A500")
 
 
 
For Each c In sh2
temp = c.Value
If temp <> "" Then
Set plage = sh1.Columns("A").Cells.Find(temp)
 
line = plage.Row
Workbooks("Classeur1.xls").Sheets("Feuil1").Cells(line, 3).Value = c(1, 3).Value
 
End If
 
Next

Le script plante à la ligne line = plage.row
Quand je copie le fichier reçu dans un nouveau classeur excel, il bugge aussi mais les valeurs sont bien collés dans mon premier classeur.

Est ce que quelqu'un a une idée de ce qui se passe et de comment je peut y remédier ?

Merci par avance pour toute aide que vous pourrez m'apporter.

[LouiMz]

Concernant le problème:
Si la valeur de temp <> "" alors on definit plage or pour reprendre votre exemple si la valeur recherchée n'existe pas (par exemple 15) plage doit surement prendre une valeur null dans ce cas là...
Du coup quand on lui demande de renvoyer la ligne de vide...

Pour reprendre l'exemple donné plus haut:
A adapter selon les besoins. Ce code ne traite pas les doublons.

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
dim i as integer, j as integer
 
for i = 1 to 500 'Itération de la ligne 1 à 500 pour le Classeur 1
     for j = 1 to 500 'Itération de la ligne 1 à 500 pour le Classeur 2
     'Si la cellule(i,1) est egale à la cellule(j,1) alors
     'On copie la valeur de la cellule (j,2) dans la cellule (i,2)
          if (workbooks("Classeur1.xls").sheets("Feuil1").cells(i,1).value = _
          workbooks("Classeur2.xls").sheets("Feuil1").cells(j,1).value) then
 
               workbooks("Classeur1.xls").sheets("Feuil1").cells(i,2).value = _
               workbooks("Classeur2.xls").sheets("Feuil1").cells(j,2).value
               j = 501 'Nous permet de sortir de la boucle une fois la valeur trouvée
          else
          'Sinon on met la cellule (i,2) à 0
               workbooks("Classeur1.xls").sheets("Feuil1").cells(i,2).value = 0
          end if
     next
next

[Fhello]

Bonjour, J'ai le même problème sauf que je ne sais pas où la valeur va être présente dans le 2ème excel (je ne connais que la colonne).
De plus, les données que je veux copier se trouve sur une autre colonne..
Je pensais réaliser une RechercheV via macro mais je n'arrive pas vu que je suis dans 2 fichiers différents, sauriez vous m'aider ?
(J'utilise Excel 2016)