Discussion :

[captaine93]

Bonjour !
Je cherche à effectuer l'opération suivante entre 2 fichiers nommés "testsource.xls" et "testresultat.xls"...
Si la valeur d'une case de la colonne A du fichier "testsource.xls" = valeur d'une case de la colonne A du fichier "testresultat.xls" alors copie les valeurs de la colonne B du fichier "testsource.xls" dans la colonne E du fichier "testresultat.xls"...
Je n'ai jamais effectué ce genre d'opération sur plusieurs fichiers, et c'est pourquoi je fais appel à votre aide
Serait-il possible de généraliser ce code car mes fichiers ne se nommeront pas toujours de la même façon grâce à une inpubox ou qqchose du genre ?
Ci joint les 2 fichiers d'exemple.
Un GRAND merci à ceux qui m'aideront

[Jean-Philippe André]

bonjour,
je n'ai pas ouvert tes fichiers, mais je te recommande de regarder ce que tu peux manipuler en passant par des objets de type Workbook et WorkSheet

[RemiT]

Et pourquoi ne pas copier ton onglet source dans ton classeur resultat et lancer ta comparaison dans le meme fichier ce qui simplifierait la manip et aussi le temps d'execution vue le nombre de lignes a comparer...

[captaine93]

effectivement...j'en arrive a la meme conclusion...
en fait j ai copié dans le meme onglet...
Voici le fichier final obtenu et le code que j ai appliqué mais ca ne fonctionne pas...
merci encore !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Range("a1").Select
 
 
  For Index = 2 To 1000
          If (Cells(Index, 1)) = (Cells(Index, 6)) Then
           Range(Cells(Index, 2), Cells(Index, 2)).Select
 
        Selection.Copy
         Range(Cells(Index, 10), Cells(Index, 10)).Select
        ActiveSheet.Paste
 
      End If
    Next Index

End Sub

[captaine93]

en fait je m'en suis sorti tout seul en copiant tout dans la meme feuille et en appliquant le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rs As Range
Dim rl As Range
Set cDest = Range("l1") ' 1°Cellule destination
Set rs = Cells(1, 1).CurrentRegion ' ton tableau de donnee commence en A1..
Range("a1").Select
For Index = 1 To 500
For Each rl In rs.Rows 'parcours les lignes du tableau de donnée source
If Cells(Index, 6) = rl.Cells(1, 1) Then
cDest.Value = rl.Cells(1, 2) ' Copie contenue colonne B
Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante
End If
 
Next
Next

Merci à tous