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
Configuration: Windows XP Internet Explorer 6.0

1 réponse

  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