Rechercher comparer et copier et coller
Résolu
kehd
-
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"
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"
1 réponse
-
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+
