Discussion :

[Philippe87420]

bonjour à tous

j'ai besoin d'aide car là je suis vraiment dépassé.

J'ai 2 feuilles dans un fichier qui sont nomées février et controle journalier.

Dans fevrier c'est le controle des bobines découpées de la veille.

je souhaiterai une macro qui me recopie la couleur sur les bobines trouvées de la veille dans la feuille controle journalier

voir le fichier joint ou j'ai mis un exemple sur les bobines 19M27262B ; 19M28011B ; 19M28012B

merci d'avance pour votre aide

cordialement

philippe87420

[BENNASR]

bonjour
à tester avec prudence sur une copie de ton fichier

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
20
21
Option Explicit
Sub testt()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim i As Long
Dim L As Integer
Dim C As Range
Set F1 = Sheets("février")
Set F2 = Sheets("controle journalier")
With F2
i = .Range("B" & Rows.Count).End(xlUp).Row
    For L = 8 To i
    If F2.Cells(L, "B") <> "" Then
    Set C = F1.Columns("B").Find(F2.Cells(L, "B"), LookIn:=xlValues, lookat:=xlWhole)
     If Not C Is Nothing Then F2.Cells(L, "B").Interior.Color = RGB(50, 200, 100)
     End If
        Next L
End With
Application.ScreenUpdating = true
End Sub