Discussion :

[amka]

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]

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]

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]

ben tu ve faire quoi exactement?

[amka]

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

[biggione]

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]

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]

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