Bonjour,
Je souhaite vérifier pour chaque cellule dans une boucle si la valeur de la cellule i colonne 35 correspond à une des valeurs présente dans une liste inscrite dans une autre sheet "PLAGE" en l'occurence 8) .
Si la valeur match alors on inscrit un "FEEDER" dans une colonne sinon on inscrit autre critére "TRADE_MED".
Voila mon code.
Mais je comprends pas si je teste bien la cellule i avec les valeurs de la sheet "PLAGE" ?
Sub rule_number_5()
Dim ws As Worksheet
Dim wsc As Worksheet
Dim DerLigne As Long
Dim i As Long
Dim PlageDeRecherche As Range
Dim trouve As Range
Set ws = Sheets("Sheet1")
Set wsc = Sheets("Plage")
Set PlageDeRecherche = wsc.Columns(1)
Set Valeur_Cherchee = ws.Columns(i, 35)
Set trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookIn:=xlFormulas, LookAt:=xlWhole)
ws.Activate
'compteur nombre de ligne
DerLigne = ws.Cells(65536, 3).End(xlUp).Row
For i = 15 To DerLigne
If trouve Is Nothing Then
Cells(i, 36).Value = "FEEDER"
Else
Cells(i, 36).Value = "TRADE_MED"
End If
Next
Set PlageDeRecherche = Nothing
Set trouve = Nothing
End Sub
Merci d'avance de votre aide.