Correction Macro

Bonjour,

Etant nul en Macro, j’aurais souhaité votre aide pour corriger la Macro ci-après.

En effet, cette Macro fonctionne, mais elle enregistre toujours sur la même ligne.

Il faudrait donc qu’elle enregistre toujours sur la ligne suivante.

Quelqu’un peut il m’aider ?

Derniereligne = Range("C10840").End(xlUp).Row + 1

Range("E9:G9").Select

Selection.Copy

Sheets("N?").Select

Range("C3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

…….

Bonjour marq, le forum,

elle enregistre toujours sur la même ligne

C'est normal, tu sélectionnes Range("C3").Select au lieu de Range("C" & derniereligne)

A tester:

Dim dernierligne As Integer
    derniereligne = Sheets("N").Range("C" & Rows.Count).End(xlUp).Row + 1

Range("E9:G9").Copy
Sheets("N").Range("C" & derniereligne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Cordialement,

Merci pour ta réponse.

Voici le fichier.

624.xlsm (81.47 Ko)

Re,

Hou lala! Quel bordel !

Peux-tu expliquer ce que tu souhaite faire exactement et sur quelle feuille ?

Car ton fichier va en décourager plus d'un, à commencer par moi,

Cordialement,

Ok……

Le seul problème se situe pour la Macro SAUVEGARDE.

Les données de la facture doivent être sauvegardées sur la feuille N°.

Les données de factures doivent être reprise à la suite l'une de l'autre.

Les autres Macro fonctionnent.

Merci d'avance pour ton aide.

Re,

Le seul problème se situe pour la Macro SAUVEGARDE.

Oui, c'est bien là le "bordel",

Utilisation abusive de .select.

Sub SAUVEGARDE()
'
' SAUVEGARDE Macro
'

'
Range("C1084").Select
Selection.End(xlUp).Select
ligne = ActiveCell.Row + 1
    Range("E9:G9").Select
    Selection.Copy
    Sheets("N°").Select
    Range ("C" & derniereligne)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Facture").Select
    Range("E18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("N°").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Facture").Select
    Range("G18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("N°").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Facture").Select
    Range("F15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("N°").Select
    Range("G3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Facture").Select
    Range("F13:G13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Facture").Select
    Range("E11:G11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Facture").Select
    Range("E13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Facture").Select
    Range("G39").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Facture").Select
    Range("G36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Facture").Select
    Range("D37").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("N°").Select
    Range("F3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

A tester (et à compléter)....

Sub SAUVEGARDE()
'
' SAUVEGARDE Macro
Dim dl As Integer, dl2 As Integer
    dl = Sheets("N°").Range("A" & Rows.Count).End(xlUp).Row + 1
   dl2 = Sheets("Clients").Range("A" & Rows.Count).End(xlUp).Row + 1

 With Sheets("Facture")

  Application.ScreenUpdating = False

    .Range("E9:G9").Copy
      Sheets("N°").Range("C" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      'Sheets("Clients").Range("A" & dl2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    .Range("E18").Copy
      Sheets("N°").Range("A" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    .Range("G18").Copy
      Sheets("N°").Range("B" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    .Range("F15").Copy
      Sheets("N°").Range("G" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      'Sheets("Clients").Range("E" & dl2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    .Range("E11").Copy
      Sheets("N°").Range("D" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      'Sheets("Clients").Range("B" & dl2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    .Range("E13").Copy
      Sheets("N°").Range("E" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      'Sheets("Clients").Range("C" & dl2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

     .Range("F13").Copy
      Sheets("N°").Range("F" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      'Sheets("Clients").Range("D" & dl2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

     .Range("G39:G40").Copy
      Sheets("N°").Range("H" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

     .Range("G36").Copy
      Sheets("N°").Range("M" & dl).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

       Application.ScreenUpdating = True

 End With
End Sub
1124-4.xlsm (81.98 Ko)

Cordialement,

La Macro ne fonctionne pas dans le fichier 24-4

Qui a t il a compléter ?

Re,

La Macro ne fonctionne pas dans le fichier 24-4

??

Feuille N° avant macro

capture

Feuille N° après macro

capture2

On parle bien de la macro Sauvegarde ?

424-4.xlsm (81.81 Ko)

ok, elle fonctionne.

Mais on parle de laquelle ?

225.xlsx (50.90 Ko)

Re,

Mais on parle de laquelle ?

?? Moi, je n'en vois qu'une ? Macro Sauvegarde

capture

Celle qui est dans le module 9.

capture2

Cordialement,

Rechercher des sujets similaires à "correction macro"