Copier / coller une cellule

**bullrot** · 14/08/2013, 14h41

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** · 14/08/2013, 15h44

Bonjour,

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

**nibledispo** · 15/08/2013, 16h36

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** · 15/08/2013, 16h45

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

**nibledispo** · 15/08/2013, 20h51

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** · 15/08/2013, 21h40

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")

**bullrot** · 16/08/2013, 13h04

Bonjour à tous,

Malheureusement, je récupére ma Cellule qui n'est pas en format date...
Y a t il une solutionà cela ?

**parmi** · 16/08/2013, 14h41

Si tu te retrouves avec un chiffre, du genre 41502, change le format à l'aide de la commande NumberFormat

Code :

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

Cells(x, y).NumberFormat = "dd/mm/yyyy"

ou autre format comme tu le désires

**nibledispo** · 16/08/2013, 14h43

bonjour,

je propose ce qui suit.

attention deux possibilités sont incluses dans le code. il te faudra choisir.
- soit cellule = "mois" dans le select case
- soit feuil1.[b8] = "mois"

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub copie()
cellule = Feuil2.Range("a65536").End(xlUp).Offset(-1)
Cells(1, 2) = cellule
Select Case cellule
    Case "décembre"
        Feuil1.[b8] = "janvier"  'expression exige la suppression ligne de code Feuil1.[b8] = cellule
    Case "novembre"
        Feuil1.[b8] = "décembre"
    Case "octobre"
        Feuil1.[b8] = "novembre"
    Case "septembre"
        Feuil1.[b8] = "octobre"
    Case "aout"
        Feuil1.[b8] = "septembre"
    Case "juillet"
        cellule = "aout"        ' expression exige la ligne de code Feuil1.[b8] = cellule
    Case "juin"
        cellule = "juillet"
    Case "mai"
        cellule = "juin"
    Case "avril"
        cellule = "mai"
    Case "mars"
        cellule = "avril"
    Case "février"
        cellule = "mars"
    Case "janvier"
        cellule = "février" '
End Select
 
Feuil1.[b8] = cellule 'conserver si cellule = "mois" dans le select case et non Feuil1.[b8]
 
End Sub

re....,

je n'avais pas vu la réponse de parmi avant mon précédent message.

dans ma proposition:
- la ligne 4 ne sert à rien. c’était juste une vérification lors de l'élaboration du code
- les mois sont considérés au format texte comme j'ai cru le comprendre dans ta dernière intervention.

cordialement.

**bullrot** · 16/08/2013, 14h55

Merci beaucoup pour la proposition de code.
J'ai mon fichier en attachement.

je pense que c'est beacoup plus simple avec le fichier.

Donc je veux récupérer le dernier mois de ma fiche "open" (celui au dessus de total) ( attention la cellule va changer progressivement ) et le recopier dans la feuille "First page" dans la cellule G2 en faisant mois+1.

merci d'avance,

**EngueEngue** · 16/08/2013, 15h03

Ton fichier n'est pas là... C'est simple à faire.

Il suffit d'aller chercher l'adresse de ta case total et faire un offset(-1,0) pour récupérer le mois. Puis comme l'a mentionné nible, faire un select case.

**bullrot** · 16/08/2013, 15h13

Effectivement je pensais qu'il était passé mais les fichiers xlsm ne sont pas accepté...

**EngueEngue** · 16/08/2013, 15h23

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub MacroTest2()
Dim ligne As Long
Dim mois As String
 
    ligne = Sheets("Open").Range("B" & Rows.Count).End(xlUp).Row - 1
    mois = Sheets("Open").Range("B" & ligne)
 
Select Case mois
    Case "December"
        Sheets("First page").Range("G2") = "January"
    Case "November"
        Sheets("First page").Range("G2") = "December"
    Case "October"
        Sheets("First page").Range("G2") = "November"
    Case "September"
        Sheets("First page").Range("G2") = "October"
    Case "August"
        Sheets("First page").Range("G2") = "September"
    Case "July"
        Sheets("First page").Range("G2") = "August"
    Case "June"
        Sheets("First page").Range("G2") = "July"
    Case "May"
        Sheets("First page").Range("G2") = "June"
    Case "April"
        Sheets("First page").Range("G2") = "May"
    Case "March"
        Sheets("First page").Range("G2") = "April"
    Case "February"
        Sheets("First page").Range("G2") = "March"
    Case "January"
        Sheets("First page").Range("G2") = "February"
End Select
 
 
End Sub

**parmi** · 16/08/2013, 15h28

Envoyé par bullrot

( attention la cellule va changer progressivement )

Qu'est-ce que tu entends par changer progressivement ?
Seulement les mois qui changent ou l'endroit va être différent ou des données vont être ajoutées à la feuille sous le tableau existant ?

Je pose la question parce que le procédé à faire, en ce moment, est bien de chercher la dernière ligne - 1 pour trouver le dernier mois à modifier...