Correction Macro

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
m
marq
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 20 septembre 2011
Version d'Excel : 2003 FR

Message par marq » 24 avril 2019, 10:32

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
…….
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'331
Appréciations reçues : 264
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 24 avril 2019, 10:44

Bonjour marq, le forum,

:joindre:
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,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
marq
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 20 septembre 2011
Version d'Excel : 2003 FR

Message par marq » 24 avril 2019, 11:23

Merci pour ta réponse.

Voici le fichier.
24.xlsm
(81.47 Kio) Téléchargé 6 fois
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'331
Appréciations reçues : 264
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 24 avril 2019, 11:48

Re,

Hou lala! Quel bordel ! :omg:

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, :bof:

Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
marq
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 20 septembre 2011
Version d'Excel : 2003 FR

Message par marq » 24 avril 2019, 12:16

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.
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'331
Appréciations reçues : 264
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 24 avril 2019, 13:32

Re,
Le seul problème se situe pour la Macro SAUVEGARDE.
Oui, c'est bien là le "bordel", :mrgreen:
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
24-4.xlsm
(81.98 Kio) Téléchargé 3 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
marq
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 20 septembre 2011
Version d'Excel : 2003 FR

Message par marq » 24 avril 2019, 13:50

La Macro ne fonctionne pas dans le fichier 24-4


Qui a t il a compléter ?
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'331
Appréciations reçues : 264
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 24 avril 2019, 13:57

Re,
La Macro ne fonctionne pas dans le fichier 24-4
?? :scritch:

Feuille N° avant macro
Capture.JPG
Feuille N° après macro
Capture2.JPG
On parle bien de la macro Sauvegarde ?

24-4.xlsm
(81.81 Kio) Téléchargé 4 fois
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
m
marq
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 20 septembre 2011
Version d'Excel : 2003 FR

Message par marq » 24 avril 2019, 14:07

ok, elle fonctionne.
Mais on parle de laquelle ?
25.xlsx
(50.9 Kio) Téléchargé 2 fois
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 2'331
Appréciations reçues : 264
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 24 avril 2019, 14:17

Re,
Mais on parle de laquelle ?
?? Moi, je n'en vois qu'une ? Macro Sauvegarde :scritch:
Capture.JPG
Capture.JPG (32.29 Kio) Vu 50 fois
Celle qui est dans le module 9.
Capture2.JPG
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Correction macro
    par abd2010 » 3 février 2020, 16:12 » dans Excel - VBA
    5 Réponses
    53 Vues
    Dernier message par abd2010
    3 février 2020, 20:21
  • correction de macro
    par Dyger » 20 décembre 2017, 17:17 » dans Excel - VBA
    2 Réponses
    107 Vues
    Dernier message par MFerrand
    20 décembre 2017, 22:10
  • Correction macro
    par bhooo » 25 août 2015, 22:09 » dans Excel - VBA
    6 Réponses
    706 Vues
    Dernier message par bhooo
    26 août 2015, 11:12
  • Correction de ma macro.
    par Cyra » 13 février 2018, 21:21 » dans Excel - VBA
    8 Réponses
    106 Vues
    Dernier message par dhany
    14 février 2018, 19:50
  • correction macro
    par nono21 » 6 août 2015, 12:33 » dans Excel - VBA
    2 Réponses
    164 Vues
    Dernier message par nono21
    6 août 2015, 13:05
  • correction macro
    par Xavier22 » 8 août 2017, 23:55 » dans Excel - VBA
    17 Réponses
    357 Vues
    Dernier message par Xavier22
    23 août 2017, 13:59