recopie de valeurs en face dans les bonnes cellules

[mbo]

Je voudrais copier la colonne E feuille 2 dans la colonne D feuille 1.
Le nombre de ligne colonne A feuille 1 n'est pas le même que la colonne A feuille 2.
Dans l'exemple ci-joint : dans la feuille 2 colonne A, j'ai les valeurs 2 - 4 - 5 qui sont présentes avec des valeurs en face en colonne E, il faut donc que dans la feuille 1 colonne C, je retrouve les valeurs de la feuille 2 colonne E en face des bonnes valeurs de la colonne A.
Comment faut-il faire ?

 

[Jacques87]

Re : recopie de valeurs en face dans les bonnes cellules

Bonjour,

Voici ton fichier adapté à ta demande

Bon courage

 

[Monique]

Re : recopie de valeurs en face dans les bonnes cellules

Bonjour,

Par formule

Au choix, en C2 de la feuille 1 :
=SI(NB.SI('Feuille 2'!C$5:C$7;B3)=0;"";INDEX('Feuille 2'!$D$5:$D$7;EQUIV(B3;'Feuille 2'!C$5:C$7;0)))
ou bien
=SI(NB.SI('Feuille 2'!C$5:C$7;B3)=0;"";RECHERCHEV(B3;'Feuille 2'!$C$5:$E$7;2;0))

Puis copier-coller vers le bas

 

[JeanMarie]

Re : recopie de valeurs en face dans les bonnes cellules

Bonjour

Un essai en VBA, à coller dans un module

Option Explicit

Sub CopieIndexee()
Dim I As Integer
Dim vCible As Range
Dim vSource As Range
Dim vCell As Range
Dim Derligne As Integer
Dim Pos As Variant

Set vCible = Sheets("Feuille 1").Range("B:B")
Set vSource = Sheets("Feuille 2").Range("C5:C" & Range("C65536").End(xlUp).Row)
Derligne = Sheets("Feuille 1").Range("B65536").End(xlUp)(2).Row

For Each vCell In vSource
Pos = Application.Match(vCell, vCible, 0)
If IsError(Pos) Then
   Pos = Derligne
   Derligne = Derligne + 1
   vCible(Pos) = vCell
End If
vCible(Pos, 5) = vCell.Offset(0, 1)
Next
End Sub

@+Jean-Marie