Discussion :

[bullrot]

Bonjour,

J'ai un tableau dans la feuille "sheet2" avec ceci :

Janvier
Fevrier
Mars
...
...
..
TOTAL :

Je voudrais récuper le mois de la dernière ligne avant TOTAL.
Une fois récupérer je voudrais lui ajouter +1 donc,
si je récupérer Avril, j'aurai Mai.

Je voudrais copier Mai dans la feuille "sheet1" dans la cellule B8.


Merci d'avance,

[parmi]

Bonjour,

Est-ce que tes mois sont des dates au format "mmmm" ou seulement du texte ?

[nibledispo]

Bonjour,

Avec des mois au format personnalisé mmmm javais pensé à cela:

Code :

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

1
2
3
4
5
6
7
 
Sub essai()
Dim cellule As Variant
cellule = Feuil1.Range("a65536").End(xlUp).Offset(-1)
cellule = cellule + 31
Feuil1.Range(cellule).Copy Feuil2.Range("bb")
End Sub

Malheureusement VBA me renvoie l'erreur 1004 sur la dernière ligne et je ne sais pourquoi.
Rajouter .value après les range ne change rien à l'erreur.

Quelqu'un pourra peut-être expliquer cette erreur qui revient très souvent chez les débutants.

Cordialement.

[parmi]

Range("bb") devrait être Range("b8"), j'imagine...

[nibledispo]

Bonsoir parmi,

Tu as raison. cela ne change de toute facon rien.
Je crois de plus que mon code ne constitue pas une solution.
en effet, l'écriture directe sur la feuille excel de 01/01/2013 donne bien "janvier".
Les lignes en dessous avec la formule R[-1]C +31 donne bien les mois successifs mais le code lui cellule = 01/02/2013.

Finalement plus j’apprends et essaie de comprendre VBA moins je le comprends.

cordialement.

[parmi]

Comme les mois n'ont pas tous 31 jours, au début ta date sera bonne, mais un jour ou l'autre tu sauteras un mois.

1er février + 31 = 4 mars et on finit l'année au 8 décembre...

Peut-être devrais-tu regarder du côté des mots-clés Annee, Mois et Jour en Excel (et en anglais sous VBA)

Chez moi, les dates s'écrivent au format aaaa-mm-jj
Ce qui donne ceci comme formule

date de départ 2013-01-01 en A1
Pour augmenter d'un "vrai" mois, ma formule est

Code :

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

=DATEVAL(ANNEE(A1) & "-" & MOIS(A1)+1 & "-" & JOUR(A1))

La tienne devrait être

Code :

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

=DATEVAL(JOUR(A1)) & "/" & MOIS(A1)+1 & "/" & ANNEE(A1)

à tester en écrivant la 1ere date en A1

Pour ce qui est de copier ta date en B8 sur Sheet1, tu peux simplement écrire

Code :

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

Sheets("Sheet1").Range("B8") = Sheets("Sheet2").Range("ta cellule")