Re : Recherche valeurs ds classeur par rapport à plage variable
Bonjour Pierre
Merci pour cette version. J'ai juste un peu modifié la fin de façon à ce que le MsgBox n'apparaissent que si il manque des valeurs dans le classeur.
Par contre je viens de me rendre compte que dans certain cas, les valeurs dans le classeur peuvent être suivies d'un espace et d'une lettre. J'aimerais qu'elles soient qd même prises en compte; cad que par exemple en feuille 1 la valeur "100" soit égale à la valeur "100 a" ds le classeur. est-ce possible ?
Sub recherche()
tablo = Sheets("Feuil1").Range("E1:E" & Sheets("Feuil1").Range("E65536").End(xlUp).Row)
For n = 1 To Sheets.Count
If Sheets(n).Name <> "Feuil1" Then
For m = LBound(tablo) To UBound(tablo)
Set c = Sheets(n).Cells.Find(tablo(m, 1), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
tablo(m, 1) = "trouvé"
End If
Next m
End If
Next n
For n = LBound(tablo) To UBound(tablo)
If tablo(n, 1) <> "trouvé" Then
absents = absents & tablo(n, 1) & Chr(10)
End If
Next n
If absents <> 0 Then
MsgBox (absents & " absent(s) de ce classeur")
End If
End Sub