Discussion :

[edougnon]

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 je copie la valeur dans la colonne "numero" et je colle dans la colonne "resulat" de la même ligne.
Exple : voir fichier

je recherche "Francois" (cellule F7) dans colonne Site 1 de la ligne 7
Je compare le texte François avec le contenu de la colonne D,
Si oui une cellule de la colonne D contient le mot Francois(ici D8) alors le copie la valeur de la colonne C8 et je le colle à la G7
Puis je recommence le processus avec la celules F8, puis F9 .......... jusqu'a Fn

[matthieu69]

Salut,

essaye quelque chose comme çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub recherche()
 
Dim rep As String
Dim rep2 As String
 
nbl = Sheets(1).Cells(Application.Rows.Count, 2).End(xlUp).Row 'compte le nombre ligne
 
For a = 2 To nbl
 
rep = Cells(a, 4)
rep2 = Cells(a, 2)
 
        If rep = "*" & rep2 & "*" Then
            Cells(a, 5) = Cells(a, 2)
        End If
 
    Next
 
End Sub