SOS copier par macro la derniere ligne d'une feuille et la coller dans une autre!

  • Initiateur de la discussion Initiateur de la discussion vmgnico
  • Date de début Date de début
V

vmgnico

XLDnaute Nouveau
Bonjour à tous, je reviens vers XLD, car j'ai un petit souci et malgré mes recherches et mon faible niveau :o je n'arrive pas a faire une petite macro pour copier la dernière ligne d'une feuille vers une autre feuille du même classeur en l'insérant sur la deuxième ligne . Je dois intégrer ce code dans mon classeur je vous joints un petit fichier simplifier avec la macro et si dessous le code que j'ai bidouillé!
Sub copier_coller()

Dim DerLign As Integer
DerLign = Range("A65536").End(xlUp).Row
Sheets("BD").Range("A2" & DerLign).Copy
Sheets("consultation").Rows("2:2").Insert shift:=xlDown

Worksheets("consultation").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("consultation").Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

la macro s'exécute bien mais ne copie pas la ligne.... désolé d'être si mauvais mais je bloque depuis un trop long moment c'est pourquoi je vous lance un SOS merci...
 

Pièces jointes

Trier par date Trier par votes
fhoest

fhoest

XLDnaute Accro
Re : SOS copier par macro la derniere ligne d'une feuille et la coller dans une autre

Bonjour,
remplace le code par celui ci:
Code: 
Sub copier_coller()

Dim DerLign As Integer
DerLign = Range("A65536").End(xlUp).Row
Sheets("BD").Rows(DerLign).Copy
    Sheets("consultation").Rows("2:2").Insert shift:=xlDown
    
     Worksheets("consultation").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
     Worksheets("consultation").Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

  
End Sub
A+
 
Vote positif 0 Vote négatif
phlaurent55

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : SOS copier par macro la derniere ligne d'une feuille et la coller dans une autre

Bonjour vmgenico,

remplace le code par ceci:
Code: 
Sub copier_coller()
Dim DerLign As Integer
DerLign = Range("A65536").End(xlUp).Row
Rows(DerLign).Copy
Sheets("consultation").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
End Sub

à+
Philippe

Edit: Bonjour Fhoest
 
Vote positif 0 Vote négatif
V

vmgnico

XLDnaute Nouveau
Re : SOS copier par macro la derniere ligne d'une feuille et la coller dans une autre

Après avoir "essayé" d'intégrer vos codes dans mon fichier final, cela n'a pas le même effet, il ne copie pas la dernière ligne remplie dans la feuille "BD", on a bien une insertion sur la 2éme ligne de la feuille "consultation" mais vide! je vous joint cette fois le code complet de mon bouton, je pense qu'il y a des soucis avec l'ensemble du script, un conflit de valeur si vous pouviez jeter un œil et m'aiguiller encore un peu , merci!

Private Sub CmbValider_Click()
Dim ValeurMax As Long
If Me.ComboRef = "" Then
MsgBox " le nom n'est pas documenté"
Exit Sub
End If
If Me.ComboMatricule = "" Then
MsgBox " le matricule n'est pas documenté"
Exit Sub
End If
If Me.ComboNom = "" Then
MsgBox " le nom n'est pas documenté"
Exit Sub
End If
'If Me.OptEmprunt = False And Me.OptRestitution = False Then
'MsgBox " Emprunt ou restitution non documenté"
'Exit Sub
'End If
With Sheets("BD")
ValeurMax = Application.WorksheetFunction.Max(.Range("A2:A" & .Range("A65536").End(xlUp).Row)) + 1
.Range("A" & .Range("A65536").End(xlUp).Row + 1) = ValeurMax
.Range("B" & .Range("A65536").End(xlUp).Row) = Now
.Range("C" & .Range("A65536").End(xlUp).Row) = Me.ComboRef
.Range("D" & .Range("A65536").End(xlUp).Row) = Sheets("item").Range("B" & Me.ComboRef.ListIndex + 1)
.Range("E" & .Range("A65536").End(xlUp).Row) = CDbl(Me.ComboMatricule)
.Range("F" & .Range("A65536").End(xlUp).Row) = Me.ComboNom
If Me.Labelsortie.Visible = True Then
.Range("G" & .Range("A65536").End(xlUp).Row) = 0
Sheets("stock").Range("B" & Me.ComboRef.ListIndex + 1) = 0


ElseIf Labelrestitution.Visible = True Then
.Range("G" & .Range("A65536").End(xlDown).Row) = 1
Sheets("stock").Range("B" & Me.ComboRef.ListIndex + 1) = 1
End If

'Dim DerLign As Integer
' DerLign = Range("A65536").End(xlUp).Row
' Sheets("BD").Rows(DerLign).Copy
' Sheets("consultation").Rows("2:2").Insert shift:=xlDown
'
' Worksheets("consultation").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Worksheets("consultation").Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Application.CutCopyMode = False
Dim DerLign As Integer
With Sheets("BD")
DerLign = Range("A65536").End(xlUp).Row
Rows(DerLign).Copy
Sheets("consultation").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Unload Me
End With
End With
End Sub

@+
 
Vote positif 0 Vote négatif
fhoest

fhoest

XLDnaute Accro
Re : SOS copier par macro la derniere ligne d'une feuille et la coller dans une autre

Re,
Code: 
Private Sub CmbValider_Click()
Dim ValeurMax As Long
If Me.ComboRef = "" Then
MsgBox " le nom n'est pas documenté"
Exit Sub
End If
If Me.ComboMatricule = "" Then
MsgBox " le matricule n'est pas documenté"
Exit Sub
End If
If Me.ComboNom = "" Then
MsgBox " le nom n'est pas documenté"
Exit Sub
End If
'If Me.OptEmprunt = False And Me.OptRestitution = False Then
'MsgBox " Emprunt ou restitution non documenté"
'Exit Sub
'End If
With Sheets("BD")
ValeurMax = Application.WorksheetFunction.Max(.Range("A2:A" & .Range("A65536").End(xlUp).Row)) + 1
.Range("A" & .Range("A65536").End(xlUp).Row + 1) = ValeurMax
.Range("B" & .Range("A65536").End(xlUp).Row) = Now
.Range("C" & .Range("A65536").End(xlUp).Row) = Me.ComboRef
.Range("D" & .Range("A65536").End(xlUp).Row) = Sheets("item").Range("B" & Me.ComboRef.ListIndex + 1)
.Range("E" & .Range("A65536").End(xlUp).Row) = CDbl(Me.ComboMatricule)
.Range("F" & .Range("A65536").End(xlUp).Row) = Me.ComboNom
If Me.Labelsortie.Visible = True Then
.Range("G" & .Range("A65536").End(xlUp).Row) = 0
Sheets("stock").Range("B" & Me.ComboRef.ListIndex + 1) = 0


ElseIf Labelrestitution.Visible = True Then
.Range("G" & .Range("A65536").End(xlDown).Row) = 1
Sheets("stock").Range("B" & Me.ComboRef.ListIndex + 1) = 1
End If

Dim DerLign As long 'si tu va jusque la ligne 65000
 DerLign =sheets("BD"). Range("A65000").End(xlup).Row
Sheets("BD").Rows(DerLign).Copy
 Sheets("consultation").Rows("2:2").Insert shift:=xlDown

 Worksheets("consultation").Range("A2").PasteSpecia l Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("consultation").Range("A2").PasteSpeci al Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'Dim DerLign As Integer
'With Sheets("BD")
'DerLign = Range("A65536").End(xlUp).Row
'Rows(DerLign).Copy
Sheets("consultation").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Unload Me
End With
End With
End Sub
A tester.
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
643
gwenn49
G
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
542
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
567
Valter
V
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
432
Marvin57
M
Usine à gaz
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
974
TooFatBoy
TooFatBoy
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
513
Usine à gaz
Usine à gaz
X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
662
Xender
X
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
317
farid
F
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
564
fanou06
F
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
710
olivier388
O
S
  • Résolu(e)
Autres Copier-Coller en recherchant une ligne spécifique VBA
Réponses
4
Affichages
568
sambio2
S
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
AtTheOne
Jojo973
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
386
Jojo973
Jojo973
Y
  • Question Question
XL 2019 copier/coller colonne vers ligne
Réponses
4
Affichages
455
sylvanu
sylvanu
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
837
MickaeL_D
M
chris6999
  • Question Question
Microsoft 365 Copier une plage vers une autre feuille depuis un USF
Réponses
4
Affichages
202
chris6999
chris6999
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
593
whiteshark
W
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
874
mouchtre
mouchtre
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
808
Oneida
Oneida
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
629
salma_hayek
S

Membres actuellement en ligne

22 membres et 336 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 289
Messages
2 118 063
Membres
113 421
dernier inscrit
MagicVander