Décrémentation de cellules

Version imprimable

04/08/2006, 10h42
amka

Décrémentation de cellules

Bonjour
Encore un autre probléme : j'ai un tableau Excel dans une de ces colonnes je veux insérer une date à la dernière ligne et en suite la décrémenter pour remplir le reste de la colonnes mais je ne veux pas faire ça manuellement mais en code VBA. Est ce que Vous pouvez m'aider SVP??? Merci :roll:
04/08/2006, 10h49
biggione
cherche avec les mots " derniere ligne trouver ".
en effet il y a dejà un sujet pour trouver la dernière ligne et tu mémorise le numéro de ligne.
une fois que tu l'a tu fais:
Code:

1 2 3 4 5 6 i = numéro de la dernière ligne while i > 0 i=i-1 'instruction à faire sur la case Wend
04/08/2006, 10h51
amka
Citation:
Envoyé par biggione

cherche avec les mots " derniere ligne trouver ".
en effet il y a dejà un sujet pour trouver la dernière ligne et tu mémorise le numéro de ligne.
une fois que tu l'a tu fais:

Code:

1 2 3 4 5 6 i = numéro de la dernière ligne while i > 0 i=i-1 'instruction à faire sur la case Wend
justement ce que je cherche c'est l'instruction afaire sur la case :roll:
04/08/2006, 10h52
biggione

ben tu ve faire quoi exactement?
04/08/2006, 11h07
amka

Citation:

Envoyé par biggione

ben tu ve faire quoi exactement?

ce que je veux faire c'est décrémenter la date inserer dans la derniere ligne

mars 2006
avril 2006
mai 2006
juin 2006 c'est ma derniere ligne et je veux avoir le reste mai 2006 ... dans le reste de ma colonne, j'espére que je suis claire. merci

Citation:

Envoyé par biggione

ben tu ve faire quoi exactement?

voila ce que j ai fais jusqu'à mnt:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function ModifDateFichier(DateReporting As Date, xlSheet As Excel.Worksheet) As Integer Dim i As Integer Dim DateSuiv As Date i = 26 'on insere la date de reporting dans la dérniére ligne xlSheet.Cells(1, 26) = DateReporting While i > 13 If IsDate(xlSheet.Cells(1, i)) Then DateSuiv = xlSheet.Cells(1, i) i = i - 1 xlSheet.Cells(1, i) = DateSuiv - 1 End If Wend
mais au lien de décrémenter un mois entiers , ça décrémente jour par jours

01/06/2006 donne à la celleule précédente 31/05/2006 et moi je veux 01/05/2006

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Function ModifDateFichier(DateReporting As Date, xlSheet As Excel.Worksheet) As Integer
Dim i As Integer
Dim DateSuiv As Date
 i = 26
'on insere la date de reporting dans la dérniére ligne
xlSheet.Cells(1, 26) = DateReporting
 
while i > 0
     i=i-1
     xlSheet.range("A" & i).value = Date -1      
Wend

Hm...

biggione tu devrais TESTER tes codes avant de poster à tout va 8O

tu à compris ce qu'il voulais au moins?

Date tu sais que ca renvoi la date d'aujourd'hui ??

si tu met date-1 dans chaque cellule tu sais que tu auras la date d'aujourdhui moins un jour dans les cellules???

bon.. voilà amka ;)
Code:

1 2 3 4 5 6 7 8 9 Sub Macro1() i = 18 'derniere ligne While i > 1 i = i - 1 Cells(i, 1) = DateSerial(Year(Cells(i + 1, 1)), Month(Cells(i + 1, 1)) - 1, Day(Cells(i + 1, 1))) Wend End Sub
Petite explication du code. chaque cellule au dessus de la derniere remplie on reprend la valeur de la derniere remplie à laquelle on retire 1 au mois ( le Month -1 ) si c'est pas clair je peux expliquer mieux :P

04/08/2006, 11h38
amka

j'ai changer DAte par la date que je veux décrémenter mais ça donne le même resultat.

Elstak:
à quoi sert cette fonction DateSerial
j'ai tester ton code pour la date 01/06/2006 en derniére ligne mais la ligne au dessus il me donne 01/10/2006

T'a testé mon code???
Code:

1 2 3 4 5 6 7 8 9 Sub Macro1() i = 18 'derniere ligne While i > 1 i = i - 1 Cells(i, 1) = DateSerial(Year(Cells(i + 1, 1)), Month(Cells(i + 1, 1)) - 1, Day(Cells(i + 1, 1))) Wend End Sub
si je met cellule A18 le 01/06/2006 jai :
cellule A17 01/05/2006 etc...

c'est bien ca que tu voulais??

dateserial ===> F1

ca sert à decomposer ta date et comme là tu peut retirer 1 au mois... car si tu prend ta date et que tu retire 1 ca enlevera 1 JOUR...

04/08/2006, 11h55
amka

c'est exactement ce que je veux , mais il me donne pas le bon résultat :
04/08/2006, 11h58
amka

Merci bcp pour votre aide : ça marche mnt

avec le code de Elstak
04/08/2006, 12h01
Elstak

Hm...

et si tu parlais clairement pour que quelqu'un qui n'a pas ton fichier sous les yeux comprenne ca donnerait quoi?? :mouarf:

paske là serieux j'ai du mal..

t'a ca

01/12/2006

où??

au dessus de janv 2007? janv 2007 est dans la ligne 28?
04/08/2006, 13h16
amka

Merci bcp pour votre aide : ça marche mnt

avec le code de Elstak