Décrémentation de cellules

**amka** · 04/08/2006, 10h42

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

**biggione** · 04/08/2006, 10h49

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**amka** · 04/08/2006, 10h51

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**biggione** · 04/08/2006, 10h52

ben tu ve faire quoi exactement?

**amka** · 04/08/2006, 11h07

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

**amka** · 04/08/2006, 11h13

Envoyé par biggione

ben tu ve faire quoi exactement?

voila ce que j ai fais jusqu'à mnt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**biggione** · 04/08/2006, 11h18

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Elstak** · 04/08/2006, 11h26

Hm...

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**amka** · 04/08/2006, 11h38

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

**Elstak** · 04/08/2006, 11h42

T'a testé mon code???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...