EXCEL - jetez un oeil à ma belle macro
Ophelie75
Messages postés
265
Statut
Membre
-
Ophelie75 Messages postés 265 Statut Membre -
Ophelie75 Messages postés 265 Statut Membre -
Bonjour,
pourriez vous jeter un oeil à ma macro?
Sub Macro4()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets("requet_temp").Activate
Cells(i, 1).Select
Set check_data = Sheets("excel").Columns(3).Find(What:=Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
If Not check_data Is Nothing Then
Cells(i, 1).Interior.Color = vbRed
Else
End If
Next i
End Sub
le but est de rechercher dans une liste de références produits (feuille "excel" colonne 3) les références apparaissant dans la liste de références produits (colonne 5, feuille "requet_temp")
L'idéal serait de colorier en rouge les cellules dans "excel" colonne 3 qui on été trouvées dans la liste de "requet_temp" colonne 5
Merci si vous pouvez m'aider, je débute en macro.
Ophélie
pourriez vous jeter un oeil à ma macro?
Sub Macro4()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets("requet_temp").Activate
Cells(i, 1).Select
Set check_data = Sheets("excel").Columns(3).Find(What:=Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
If Not check_data Is Nothing Then
Cells(i, 1).Interior.Color = vbRed
Else
End If
Next i
End Sub
le but est de rechercher dans une liste de références produits (feuille "excel" colonne 3) les références apparaissant dans la liste de références produits (colonne 5, feuille "requet_temp")
L'idéal serait de colorier en rouge les cellules dans "excel" colonne 3 qui on été trouvées dans la liste de "requet_temp" colonne 5
Merci si vous pouvez m'aider, je débute en macro.
Ophélie
Configuration: Windows XP Internet Explorer 7.0
