EXCEL VBA : selection + étendre des formules Fermé

Question

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

melanie1324 · Answer

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