Macro Controle existence valeur

c2h6 · 23 Juin 2008

Bonjour,

J'ai deux fichiers Excel différents.
Le premier (List1) et un fichier de travail, le second une extraction d'un système comme base de référence (EXTRACT).
Le fichier EXTRACT est rafraichi automatiquement tous les jours via un système qui le sauvegarde sur un disque définit.
Le fichier List1 est lui alimenté manuellement par copier coller d'un autre système (les 2 systems ne sont pas connecté!).
Je souhaite mettre en place une macro qui va controler l'existance de chacun des articles de la List1 dans EXTRACT. Si l'article a été trouvé alors la zone est coloriée en Vert et sinon en Rouge.
Le fichier EXTRACT est fermé lors du lancement de la macro dans List1.

Merci d'avance pour votre aide

C2H6

job75 · 25 Juin 2008

Re : Macro Controle existence valeur

Bonjour le forum,

Ethan, j'ai repris votre macro en modifiant essentiellement les 3 lignes en rouge
(les variables de type Integer vont jusqu'à 32767 seulement) :

Sub Check_Material()
Dim derlig As Long, equiv As Long, i As Long
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.OpenText Filename:="C:\EXTRACT.xls"
Workbooks("POM-MRA-BOM UPLOAD PreparationV5.xls").Activate
Sheets("Work Sheet").Activate
derlig = Range("I" & Cells.Rows.Count).End(xlUp).Row
Range("I4", "I" & Cells.Rows.Count).Interior.ColorIndex = xlNone
For i = 4 To derlig
equiv = 0
equiv = Application.Match(Cells(i, 9), Workbooks("EXTRACT.xls").Sheets("EXTRACT").Range("BS:BS"), 0)
Cells(i, 9).Interior.ColorIndex = 3 + Sgn(equiv)
Next
Workbooks("EXTRACT.xls").Close
Application.ScreenUpdating = True
End Sub

Bonne journée et A+

Edit : de nouveau supprimer l'espace dans " BS:BS"...

Macro Controle existence valeur

c2h6

Guest

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Macro Controle existence valeur

c2h6

Guest

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency