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,
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
Cordialement,
La Macro ne fonctionne pas dans le fichier 24-4
Qui a t il a compléter ?