Rechercher comparer et copier et coller

Résolu
kehd -  
 kehd -
Bonjour,

Bonjour à tous,
je suis NUL en VBA mais j'ai besoin de votre aide.
Sur la Feuil1 j'ai 4 colonnes : numero, Site1, Site2 et Resultat
J'aimerai avoir un code VBA qui permettra de :
rechercher un texte dans la colonne "site 2", et le comparer avec la colonne "site1".
Site la colonne "site 1" contient le texte de clonne "site 2" alors sur cette ligne je copie la valeur dans la colonne "numero" et je colle dans la colonne "resulat" de la ligne de départ.


je recherche "Francois" du "site 2" dans toute la "colonne Site 1"
Je compare le texte François avec les contenus de la"colonne site 1",
Si oui une cellule de la colonne "site 1" contient le mot Francois alors je copie la valeur de la colonne précédente ici colonne "numéro" et je colle à la colonne "resultat"
Puis je recommence le processus avec la cellules suivantes du "site 2"

A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour, 

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+
0
kehd
 
Merci beaucoup
Kehd
0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Arobase (@)
NöNö$ -
NöNö$ -

2 réponses
comment faire une arobase
GLORIA -
baladur13 -

1 réponse
Arobase
Zezette -
MPMP10 -

1 réponse
dessin au clavier cannabis
val2t1 -
Mamaaaa18 -

10 réponses