comparer 2 colonnes+copier la 4e dans la 3e Résolu

Question

Bonjour, 

Novice dans les macro et vb, je trouve des bribes de ce que je cherche à faire mais rencontres des difficultés et surtout suis dans l'impasse.
Je cherche à vérifier la présence d'un texte entre 2 colonnes dans des feuilles différentes + copier la valeur d'une 4e cellule dans la 3e.

Voici ci-dessous ce que je cherche à reproduire :

Pour chaque cellule de la colonne A (feuille1), si la valeur de la cellule est présente dans une cellule de la colonne A (feuille2), copier la valeur de la cellule A (feuille2) dans la celulle dans la colonne C (feuille1) qui se trouve sur la même ligne que la colonne A (feuille1)

J'ai tenté avec le code suivant (sur une même feuille pour commencer), et de nombreuses lignes reçoivent la mauvaise valeur :(

Pouvez-vous m'aider svp ?

Sub comparaison()
Dim VALEURA As String, VALEURB As String
'
For i = 1 To 45000
VALEURA = Range("C" & i).Value
For j = 1 To 26000
VALEURB = Range("I" & j).Value
'If VALEURA = VALEURB Then
If InStr(1, VALEURB, VALEURA, 1) Then
Sheets(1).Cells(j, "J").Copy 
Sheets(1).Cells(i, "D").PasteSpecial Paste:=xlPasteValues
End If
Next j
Next i
End Sub

Le Pingou · Answer

Bonjour,   
Essayer cette procédure:  
Sub CopierNomIdentique()  
Dim dlc As Long, nli As Long  
Dim cel As Range  
nli = Sheets(4).Cells(Columns(1).Cells.Count, 1).End(xlUp).Row  
For Each cel In Sheets(4).Range("a2:a" & nli)  
Set resu = Sheets(3).Range("A:A").Find(What:=cel.Value, lookat:=xlWhole)  
    If Not resu Is Nothing Then  
        Sheets(4).Cells(cel.Row, 1).Copy Destination:=Sheets(3).Cells(resu.Row, 3)  
    End If  
Next cel  
End Sub
Salutations.   
Le Pingou

mouzila · Answer

super merci

Comparer 2 colonnes+copier la 4e dans la 3e

2 réponses

Discussions similaires

Newsletters