Signaler

2 feuilles - Comparaison de cellules et copie si correspondance

Posez votre question crazywork 3Messages postés mercredi 19 octobre 2016Date d'inscription 20 octobre 2016 Dernière intervention - Dernière réponse le 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 
Utile
+0
moins plus
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 3Messages postés mercredi 19 octobre 2016Date d'inscription 20 octobre 2016 Dernière intervention - 20 oct. 2016 à 14:45
Personne pour m'aider ?
merci !
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !