A voir également:
- EXCEL VBA : selection + étendre des formules
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
1 réponse
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
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
