Bonjour,

Je cherche à comparer les données d'une colonne (colonne D dont le nombre de ligne i variable) pour voir si elles font bien parties d'une autre source (dans ce script c'est sur la colonne O).
J'ai réussi à programmer quelques chose, cela fonctionne mais avec des colonnes sur le même onglet.

Quand je cherche à déplacer la source vers un autre fichier (la colonne O vers un autre fichier Fichier2.xls) je n'y arrive plus. La fonction find ne suit plus. Pouvez-vous svp m'aider ?

Je serai vraiment soulagée...


Sub vérif()
'
'Vérification des centres

Dim i As Integer
Dim Mavaleur As String

Sheets("Base").Select
n = ActiveSheet.UsedRange.Rows.Count

For i = 2 To n

Mavaleur = Range("D" & i)

Set c = Range("O3:O" & Range("O65000").End(xlDown).Row).Find(Mavaleur, LookIn:=xlValues, lookat:=xlWhole)

If Not c Is Nothing Then

Sheets("Base").Range("M" & i) = "centre OK"

Else

Sheets("Base").Range("M" & i) = "centre pas OK"

End If
Next

End Sub



Je voudrais que le set c puisse aller chercher sur classeur 2, mais
Set c = Windows("classeur2.xls).Sheets("liste").Range("A1:A" & Range("A65000").End(xlDown).Row).Find(Mavaleur, LookIn:=xlValues, lookat:=xlWhole) ne fonctionne pas...

Merci d'avanceConfiguration: Windows XP
Internet Explorer 6.0