Rechercher comparer et copier et coller
Résolu/Fermé
A voir également:
- Rechercher comparer et copier et coller
- Rechercher ou entrer l'adresse - Guide
- Rechercher et remplacer word - Guide
- Copier coller pdf - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Copier une vidéo youtube - Guide
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
24 août 2016 à 11:27
24 août 2016 à 11:27
Bonjour,
A+
Sub Test()
Dim PlageS As Range, PlageC As Range, Cel As Range, C As Range
With Worksheets("Feuil1")
Set PlageS = .Range("D1", .Range("D" & Rows.Count).End(xlUp))
Set PlageC = .Range("F2", .Range("F" & Rows.Count).End(xlUp))
For Each Cel In PlageC
Set C = PlageS.Find(Cel, .Range("D1"), xlValues, xlPart)
If Not C Is Nothing Then
Cel.Offset(, 1) = C.Offset(, -1)
End If
Next Cel
Set PlageC = Nothing: Set PlageS = Nothing
End With
End Sub
A+
24 août 2016 à 15:37
Kehd