Re : c'est urgent, SVP besoin d'aide
bonjour forum
merci monsieur CHALET53
pour votre soutien et grâce a votre solution mais avec un d'autre moyen "macro" petit programmation est voila
macro :
Sub verification_livraison()
Dim tabl_1(10)
a = 2
Sheets("listes").Activate
FIN = Range("A65536").End(xlUp).Row
For i = 2 To FIN
Sheets("listes").Activate
If Cells(i, 1) <> "" Then
TITRE = Cells(i, 1)
'tableau 8 col
For j = 2 To 10
tabl_1(j) = Cells(i, j)
Next j
Sheets("titres livrais").Activate
Set trouve = Cells.Find(What:=TITRE, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If trouve Is Nothing Then
LIVR = 1
Else
LIVR = 0
End If
'COUL = ActiveCell.Interior.Color
'If COUL = 49407 Then
' LIVR = 1
'Else
' LIVR = 0
'End If
Sheets("titres non livrais").Activate
If LIVR = 1 Then
Cells(a, 1) = TITRE
For j = 2 To 10
Cells(a, j) = tabl_1(j)
Next j
a = a + 1
End If
End If
Next i
End Sub