Menu

2 feuilles - Comparaison de cellules et copie si correspondance [Fermé]

crazywork 3 Messages postés mercredi 19 octobre 2016Date d'inscription 20 octobre 2016 Dernière intervention - 19 oct. 2016 à 15:25 - Dernière réponse : crazywork 3 Messages postés mercredi 19 octobre 2016Date d'inscription 20 octobre 2016 Dernière intervention
- 20 oct. 2016 à 14:45
Bonjour,

J'aurai besoin de votre aide, j'étais partie sur une formule =SI mais je pense que ça va etre plus compliqué.
J'ai 2 colonnes présentant des valeurs communes .Mettons C(feuil1) et A(feuil2)
Dans ma fueil1 en colonne F j'ai des valeurs que je souhaite copier dans F(feuil2) si des cellules dans C(feuil1) = valeurs des cellules dans la colonne A(feuil2).

A noter que dans chaque colonne A et feuil1 et 2, l'ordre n'est pas le même et qu'il y a des valeurs dans chaque colonne que je ne veux pas.
Je veux remplacer les valeurs de la colonne C(feuil2) par celles copier depuis la colonne C(feuil1)



Merci à vous pour votre aide !
Afficher la suite 

2 réponses

crazywork 3 Messages postés mercredi 19 octobre 2016Date d'inscription 20 octobre 2016 Dernière intervention - 19 oct. 2016 à 15:58
0
Merci
J'ai essayé de faire quelque chose mais ca ne fonctionne pas :
Sub RechercheCopie()
Dim Nom As String
Dim Condition As Boolean
Dim i, j As Integer
Sheets(1).Select
i = 1
Do
Nom = Sheets(1).Cells(i, 3).Value
j = 1
Condition = False
Do
If Nom = Sheets(2).Cells(j, 1).Value Then
Sheets(1).Cells(i, 6).Value = Sheets(2).Cells(j, 6).Value
Condition = True
End If
j = j + 1
Loop While (Sheets(2).Cells(j - 1, 1).Value <> "" And Condition = False)
i = i + 1
Loop While Sheets(1).Cells(i - 1, 1).Value <> ""
End Sub
crazywork 3 Messages postés mercredi 19 octobre 2016Date d'inscription 20 octobre 2016 Dernière intervention - 20 oct. 2016 à 14:45
Personne pour m'aider ?
merci !