Discussion :

[alexbati]

Bonjour à tous,

Voici ma situation, j'ai deux onglets (feuil1 et feuil2) chacun composé de trois colonnes avec les mêmes entêtes.
l'idée serait que pour chaque valeur de la colonne A de feuil1, s'il y a son équivalent dans la colonne A de feuil2 alors dans la colonne E de la feuil1(sur la meme ligne) soit récupéré la valeur de la colonne C de feuil2

J'ai beau tenter les différentes propositions que l'on trouve sur le site j'obtiens toujours un message d'erreur

Merci pour le coup de main

[casefayere]

Bonjour,

J'ai beau tenter les différentes propositions que l'on trouve sur le site j'obtiens toujours un message d'erreur

et si tu montrais le code que tu as déjà préparé !!!

[alexbati]

Voila ce que j'ai fait jusqu'à présent

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
 
Function Comparaison()
Dim Plage As Range, C As Range
For i = 1 To 30
With Sheets("Feuil2")
    Set Plage = .Range(.["A"&i], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("Feuil1")
    For Each C In Plage
        C.Offset(, 1) = Application.VLookup(C.Value, .Range(.[A1], .Cells(.Rows.Count, 3).End(xlUp)), 1, 0)
    Next C
End With
    Next i
 
End Function

[cerede2000]

Les valeurs de la colonne A de la feuille1 sont bien unique ?

Moi je partirai plutôt sur l'utilisation de Range.Find, donc en parcourant la colonne A de la feuille2, je ferais un Find de Chaque valeur sur la colonne A de la feuille1

[alexbati]

Oui j'ai supprimé tous les doublons déjà.

Donc l'idée serai de faire une boucle if avec Range.Find?

[cerede2000]

Une boucle If ça n'existe pas

Mais une boucle For Each de la plage colonne A de la feuille 2 et pour chaque valeur si Find alors tu récupère la valeur présente en colonne C pour mettre en colonne E

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
Dim colAF2 As Range
Dim fcolAF1 As Range
Dim cel As Range
 
With Sheets("Feuil2")
  Set colAF2 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
 
For Each cel In colAF2
  Set fcolAF1 = Sheets("Feuil1").[A:A].Find(cel.Value, LookIn:=xlValues, LookAt:=xlWhole)
  If Not fcolAF1 Is Nothing Then
    cel.Offset(ColumnOffset:=4).Value = fcolAF1.Offset(ColumnOffset:=2).Value
  End If
Next

[alexbati]

Je reçoit toujours un message d'erreur
cette fois au niveau de

Code :

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

Set colAF2 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp))

"Erreur définie par l'application ou par l'objet"

[cerede2000]

Oui
J'ai oublié ceci

Code :

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

Set colAF2 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

C'est ça de pondre du code entre le rayon fromage et jambon

[alexbati]

Ah oui super la y a plus de message d'erreur

...par contre rien ne se passe ou du moins rien ne s'affiche

[cerede2000]

Vérifie les colonnes j'ai peut être inversé entre C et E....
Et peut être aussi les feuilles

C'est vendredi soir !

Oui je crois que ça c'est mieux :

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 colAF1 As Range
Dim fcolAF2 As Range
Dim cel As Range
 
With Sheets("Feuil1")
  Set colAF1 = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
 
For Each cel In colAF1
  Set fcolAF2 = Sheets("Feuil2").[A:A].Find(cel.Value, LookIn:=xlValues, LookAt:=xlWhole)
  If Not fcolAF2 Is Nothing Then
    cel.Offset(ColumnOffset:=4).Value = fcolAF2.Offset(ColumnOffset:=2).Value
  End If
Next

On parcours la colonne A de la feuille1, on cherche chaque valeur dans la colonne A de la feuille2
Si on trouve alors on prends la valeur de la colonne C de la feuille2 pour mettre en colonne E de la feuille1

[alexbati]

Ca marche parfaitement!!!

Merci beaucoup