Macro enregistrement excel 2010

**cybercats74** · 23/08/2017, 10h14

Bonjour.

Voila je suis tout nouveau sur voter site et j'aurais besoin de vous .

Je ne sais pas si ce site et la pour ça mais bon aller hop je me lance.

J'ai un tableau Excel sur le feuille n° 1, une fois rempli je voudrais l'enregistrer sur la feuille n° 2 la pas de problème.

Mon tableau une fois enregistrer je l'efface et je remplie une autre fois le même tableau et je voudrais aussi l'enregistrer sur ma feuille n° 2.

C'est la que le que je butte car il m'efface mon premier enregistrement.

Avec ma macro il me demande bien si je veux effacer mon premier enregistrement et quand je dit non il y a une erreur sur ma macro car il ne comprend pas et ne sais pas ou enregistrer mon tableau.

Merci pour votre aide .

**riaolle** · 23/08/2017, 10h31

Bonjour et bienvenue au forum !
Attention, ici c'est le forum Excel, il y a un sous-forum VBA. Ce sera pour la prochaine fois

QUel est ton code pour l'instant ? Nous pouvons mieux t'aider si tu nous montres ce que tu as fait jusqu'à présent. Ecris-nous le code entre balises code (bouton #) et indique nous les éventuels messages d'erreur.
Pour trouver la dernière ligne non vide de la feuille maFeuille, on utilise :

Code :

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

1
2
Dim derLig As Long
derLig = Sheets("maFeuille").Range("A" & Rows.Count).End(xlUp).Row

Donc la ligne à partir de laquelle il faut coller, c'est derLig + 1.

**cybercats74** · 23/08/2017, 10h42

Merci pour votre réponse.

Alors mon message d'erreur et 1004 la méthode pasteSpeciall de la classe Range a échoué

Et voici mon code, alors c'est un code que j'ai fait avec l'enregistrement de macro.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
  Sheets("Tabelle2").Select
    Range("G1:O2").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "=TODAY()"
    With Selection.Font
        .Name = "Comic Sans MS"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Selection.Font.Size = 12
    Selection.Font.Size = 14
    Selection.Font.Size = 16
    Selection.Font.Size = 18
    Selection.Font.Bold = True
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("D12").Select
    Sheets("Tabelle1").Select
    Range("A3:J16").Select
    Selection.Copy
    Sheets("Tabelle2").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Sheets("Tabelle1").Select
    Range("K3:U22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle2").Select
    Range("K3").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Range("E21").Select
    Sheets("Tabelle1").Select
    Range("F22").Select
    Application.CutCopyMode = False

Merci

**riaolle** · 23/08/2017, 11h06

un conseil : l'enregistreur de macro donne un code avec Activate/Select/Selection ... Il faut enelever tout cela, car cela entraîne souvent des prblèmes.
Ensuite, au lieu d'utiliser la méthode PasteSpecial, on peut utiliser la méthode Copy tout simplement :

Code :

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

Sheets("feuille source").Range("A1:D10").Copy destination:=Sheets("nvl feuille").Range("A1")

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
With Sheets("Tabelle2").Range("G1:O2")
        .HorizontalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        .Merge
        ActiveCell.FormulaR1C1 = "=TODAY()"                     '=====> Quelle est la cellule active ??? à remplacer avec qqc du type Range(...)
        With .Font
            .Name = "Comic Sans MS"
            .Strikethrough = False
            .Superscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .ThemeColor = xlThemeColorLight1
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
            .Color = -16776961
            .Size = 18
            .Bold = True
       End With
       .Borders(xlDiagonalDown).LineStyle = xlNone
       .Borders(xlDiagonalUp).LineStyle = xlNone
       With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlMedium
       End With
       With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlMedium
       End With
       With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlMedium
       End With
       With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlMedium
       End With
       .Borders(xlInsideVertical).LineStyle = xlNone
       .Borders(xlInsideHorizontal).LineStyle = xlNone
 
   With Sheets("Tabelle1")
        .Range("A3:J16").Copy destination:=Sheets("Tabelle2").Range("A3")
        .Range("K3:U22").Copy destination:=Sheets("Tabelle2").Range("K3")
    End With
End With

Une grosse partie de ton code consiste à faire de la mise en forme. Il faudrait que tu essaie d'épurer cette partie là, car j'ai l'impression qu'il y a des commandes en trop.
Ici tu copies tout à partir de la ligne 3 dans la feuille "Tabelle2". Si tu veux copier à la suite, il faut utiliser derLig comme je te l'ai expliqué dans le message precedent. Tu vois comment adapter ?

**cybercats74** · 23/08/2017, 11h49

Super je te remercie pour tes réponses.

Voila je te donne mon codes avec le moment ou il y a une erreur.

En faite je voudrais qu'a ce moment la il me demande ou l'enregistrer.

Code :

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

1
2
  Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

encore merci

**riaolle** · 23/08/2017, 15h19

En faite je voudrais qu'a ce moment la il me demande ou l'enregistrer.

Euh, je suis un peu perdue là ... Enregistrer ? Tu ne veux pas juste copier-coller à la suite de ce que tu as collé auparavant ?

Comprends-tu ce que je t'ai fourni avant ? Est-ce que tu vois comment adapter le code pour coller sur la première ligne vide ?
Plutôt que de passer par PasteSPecial, je te propose de passer seulement par Copy (cf. mon message precedent).

Macro enregistrement excel 2010

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager