Recherche particulière

Re : Recherche particulière

salut le phorum

pour faire suite à ma demande d'hier,
j'avais pensé le faire par un tableau temporaire (style ubound)
mais la aussi je sèche sur la méthode
y a t il une solution plus simple sans passer par une usine à gaz

merci d'avance

munity

Re : Recherche particulière

salut à tous
en cherchant sur la phorum
j'ai fini par trouvé la soluce
merci à Flyonets
par contre si quelqu'un pouvait m'expliquer le fonctionnement de cette procèdure je suis preneur

Sub Comparplage()
'Comparaison de 2 feuilles distinctes
Application.ScreenUpdating = False
Sheets("Fichier Traité").Range("p1:y1").Interior.ColorIndex = xlNone
Dim Cherch As Range, Cel As Range
Dim Plg As Range, MaPlage As Range
Dim C As Integer, Macell
Set Plg = Sheets("Fichier Traité").Range("p1:y1")
If Plg Is Nothing Then Exit Sub
Set Cherch = Sheets("Base Article").Range("A1:k65536")
If Cherch Is Nothing Then Exit Sub
For Each Cel In Plg
Set Macell = Cherch.Find(Cel, , , xlWhole, , xlNext)
If Macell Is Nothing Then
If C = 0 Then
Set MaPlage = Cel
C = C + 1
Else
Set MaPlage = Union(MaPlage, Cel)
End If
End If
Next
If MaPlage Is Nothing Then
Else
MaPlage.Interior.ColorIndex = 3
End If
Set Plg = Nothing: Set Macell = Nothing
Set Cherch = Nothing: Set MaPlage = Nothing
End Sub

merci

munity