EXCEL VBA : selection + étendre des formules

teddy42 -  
 melanie1324 -
Bonjour,

Dans Excel, je dispose du tableau suivant :
(Image ici)
[img]http://img1.imagilive.com/0809/Sans_titrebb7.JPG[/img]


02/07/2009 03/07/2009 04/07/2009 05/07/2009 06/07/2009
GroupeA x x x
GroupeB x x x
GroupeC x x x


J'aimerais une macro qui tirerais les formules ("x") d'une case a droite à chaque utilisation journaliere.
Cependant, je n'arrive pas à selectionner spécifiquement les cases contenant les formules à étendre.
(Par exemple : ici, il faut etendre les formules du 04/07/2009, mais demain, il faudra etendre les formules du 05/07/2009 et ainsi de suite)


Pouvez-vous m'aider?

merci
A voir également:

1 réponse

Réponse 1 / 1
melanie1324
 
Bonjour,

Je te suggère cette solution, à un endroit,
tu mets deux cellules : hier et aujourdhui()
dans aujourdhui, tu mets la fonction aujourdhui()

sub x ()

i=1
j=1
cells(i,j).select 'sélectionnes hier
hier =selection
cells(i,j+1).select
aujourdhui = selection

cells(i+1,j).select
do while selection = hier
j=j+1
cells(i+1,j).select
loop

range(cells(i+1,j),cells(60000,j)).copy

cells(i+2,j).select
do while selection = aujourdhui
j=j+1
cells(i+2,j).select
loop


range(cells(i+2,j),cells(60000,j)).select

Activesheet.paste

end sub

l'idée est de trouvée la dernière date ou tu as mis les formules pour les copier dans la colonne du jour.
En espérant que ca t'ira
0