Comparer 2 colonnes+copier la 4e dans la 3e
Résolu/Fermé
A voir également:
- Comparer 2 colonnes+copier la 4e dans la 3e
- Comparer 2 colonnes excel ✓ - Forum Excel
- Triez la liste comme sur cette illustration (attention, on ne voit que le début …). quel est le mot formé par les 6 dernières lettres de la colonne code ? - Forum Excel
- Copier video youtube - Guide
- Jdownloader 2 - Télécharger - Téléchargement & Transfert
- Super copier - Télécharger - Gestion de fichiers
2 réponses
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
Modifié par Le Pingou le 18/08/2010 à 17:45
Modifié par Le Pingou le 18/08/2010 à 17:45
Bonjour,
Essayer cette procédure:
Salutations.
Le Pingou
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