Salut Keep
Voici en petit exemple dans VBA?
sub mhisto
dim m_fl_client as string 'permet d'eviter de répétter toujour les nom de feuille
dim m_fl_histo as string
'variable de plage
dim m_cel_client as range
dim m_plg_client
dim m_cel_histo as range
dim m_plg_histo
dim m_clt as string
dim m_tache1 as string
dim m_tache2 as string
m_fl_client="client"
m_fl_histo="Historic"
sheets(m_fl_client).select
range("A1").select
activecell.end(xldown).select
range("A1",activecell.address).select
m_plg_client=selection.address
for each m_cel_client in range(m_plg_client)
m_clt=m_cel_client.value
m_tache1=m_cel_client.value
sheets(m_fl_histo).select
range("A1").select
activecell.end(xldown).select
range("A1",activecell.address).select
m_plg_histo=selection.address
for each m_cel_histo in range(m_plg_histo)
if m_cel_histo.value=m_clt then
if m_tache1=m_cel_histo.offset(0,1).value then
m_cel_histo.select
m_cel_histo.rows.select
selection.insert shift:=xldown
m_cel_histo.offset(1,0).value=m_clt
m_cel_histo.offset(1,1).value=m_tache1
exit for
end if
end if
next
next
end sub
J'espére que cela t'aidera, si tu veux des éventuelles explication n'hesite pas à demander. par mon adresse mail par exemple.
Bon courage..
wilfried