Bonjour à tous,
Pour l'instant, le problème n'est pas clairement défini mais ça m'inspire cette fonction, peut-être à côté de la plaque, permettant d'obtenir une plage selon un critère :
function GetRangeLike(Plage as range, Critere$, optional xlPartiel as boolean) as range
if xlPartiel then Critere = "*" & Critere & "*"
for each cell in Plage
if cell like Critere then
if GetRangeLike is nothing then set GetRangeLike = cell
set GetRangeLike = union(GetRangeLike, cell)
end if
next cell
end function
Par exemple, vous pourriez l'utiliser ainsi dans une macro pour obtenir toutes les cellules contenant le critère :
sub test()
dim r as range
with sheets("source")
set r = GetRangeLike(.usedrange, "SE")
end with
end sub
Ensuite, vous pourriez faire ce que vous souhaiteriez...
Cdlt,