J'ai un code voir ci joint, il permet de copier de valeur de cellule
donn=E9es,
Sheets(nf).[E51].Copy
je voudrais le modifier ainsi
Sheets(nf).cells(51, 5+ dat) o=F9 dat serait une variable qui
s'incremente de 2 chaque nouvel ann=E9e".
en 2006 dat=3D0, en 2007 dat=3D2, en 2008 dat=3D4 .....
Comment faire pour dat s'incremente en faisant reference =E0 la date?
Merci encore et bonne semaine
For i =3D 0 To Sheets(1).ListeFeuilles.ListCount - 1
If Sheets(1).ListeFeuilles.Selected(i) =3D True Then
nf =3D Sheets(1).ListeFeuilles.List(i)
'nf est le n=B0 de la feuille detenant les informations a copier
'-----calcul des valeurs et somme
For x =3D 11 To 13 Step 2
Sheets("recap").[A65000].End(xlUp).Offset(1, x).Formula =3D
"=3DRC8*RC[-1]"
Next x
For y =3D 15 To 21 Step 2
Sheets("recap").[A65000].End(xlUp).Offset(1, y).Formula =3D
"=3D(RC8*RC[-1])/100"
Next y
=20
She
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Phil
Bonjour,
Ta variable dat pourrait être : dat=(year(date)-2006)*2
Bon courage
"S3com" a écrit dans le message de news:
Bonjour a tous!!!
J'ai un code voir ci joint, il permet de copier de valeur de cellule données, Sheets(nf).[E51].Copy
je voudrais le modifier ainsi Sheets(nf).cells(51, 5+ dat) où dat serait une variable qui s'incremente de 2 chaque nouvel année".
en 2006 dat=0, en 2007 dat=2, en 2008 dat=4 .....
Comment faire pour dat s'incremente en faisant reference à la date? Merci encore et bonne semaine
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i) 'nf est le n° de la feuille detenant les informations a copier
'-----calcul des valeurs et somme For x = 11 To 13 Step 2 Sheets("recap").[A65000].End(xlUp).Offset(1, x).Formula "=RC8*RC[-1]" Next x For y = 15 To 21 Step 2 Sheets("recap").[A65000].End(xlUp).Offset(1, y).Formula "=(RC8*RC[-1])/100" Next y
She
Bonjour,
Ta variable dat pourrait être :
dat=(year(date)-2006)*2
Bon courage
"S3com" <cathy.atienza@scaso.fr> a écrit dans le message de news:
1145454082.787076.57520@z34g2000cwc.googlegroups.com...
Bonjour a tous!!!
J'ai un code voir ci joint, il permet de copier de valeur de cellule
données,
Sheets(nf).[E51].Copy
je voudrais le modifier ainsi
Sheets(nf).cells(51, 5+ dat) où dat serait une variable qui
s'incremente de 2 chaque nouvel année".
en 2006 dat=0, en 2007 dat=2, en 2008 dat=4 .....
Comment faire pour dat s'incremente en faisant reference à la date?
Merci encore et bonne semaine
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1
If Sheets(1).ListeFeuilles.Selected(i) = True Then
nf = Sheets(1).ListeFeuilles.List(i)
'nf est le n° de la feuille detenant les informations a copier
'-----calcul des valeurs et somme
For x = 11 To 13 Step 2
Sheets("recap").[A65000].End(xlUp).Offset(1, x).Formula "=RC8*RC[-1]"
Next x
For y = 15 To 21 Step 2
Sheets("recap").[A65000].End(xlUp).Offset(1, y).Formula "=(RC8*RC[-1])/100"
Next y
Ta variable dat pourrait être : dat=(year(date)-2006)*2
Bon courage
"S3com" a écrit dans le message de news:
Bonjour a tous!!!
J'ai un code voir ci joint, il permet de copier de valeur de cellule données, Sheets(nf).[E51].Copy
je voudrais le modifier ainsi Sheets(nf).cells(51, 5+ dat) où dat serait une variable qui s'incremente de 2 chaque nouvel année".
en 2006 dat=0, en 2007 dat=2, en 2008 dat=4 .....
Comment faire pour dat s'incremente en faisant reference à la date? Merci encore et bonne semaine
For i = 0 To Sheets(1).ListeFeuilles.ListCount - 1 If Sheets(1).ListeFeuilles.Selected(i) = True Then nf = Sheets(1).ListeFeuilles.List(i) 'nf est le n° de la feuille detenant les informations a copier
'-----calcul des valeurs et somme For x = 11 To 13 Step 2 Sheets("recap").[A65000].End(xlUp).Offset(1, x).Formula "=RC8*RC[-1]" Next x For y = 15 To 21 Step 2 Sheets("recap").[A65000].End(xlUp).Offset(1, y).Formula "=(RC8*RC[-1])/100" Next y