Bonjour
voila j'essaye de copier coller une selction dans un autre fichier excel. mais j'ai 2 pb dans ma macro.
Le 1er est lié a excel 2010, pour le collage à la 1ere ligne vide, j'ai remplacé
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
par
Range("A" & Rows.Count.End(xlUp).Row + 1).Select
Mais il y aun truc qui ne fonctionne pas!!!!
Le 2eme est que ma macro plante à la dernière ligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci de me dépatouiller!!
Voici le detail de ma macro
Sub MAJ_ANOMALIE2()
Dim DLig As Long
With Sheets("transaction")
'filtre sur des lignes qui une croix
.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _
"<>"
'copie de la selection de la ligne 2 à la dernière ligne non vide
DLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:I" & DLig + 1, "M2:N" & DLig + 1).Select
Selection.Copy
End With
'deselction du filtre
Sheets("transaction").ListObjects("Tableau1").Range.AutoFilter Field:=18
'ouverture du fichier de destination
Workbooks.Open Filename:="S😛rocess contrôle\Saisie anomalie.xlsm"
'collage de la selection sur la 1er ligne vide
Sheets("bal").Range("A" & Rows.Count.End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
voila j'essaye de copier coller une selction dans un autre fichier excel. mais j'ai 2 pb dans ma macro.
Le 1er est lié a excel 2010, pour le collage à la 1ere ligne vide, j'ai remplacé
Range("A" & Range("A65536").End(xlUp).Row + 1).Select
par
Range("A" & Rows.Count.End(xlUp).Row + 1).Select
Mais il y aun truc qui ne fonctionne pas!!!!
Le 2eme est que ma macro plante à la dernière ligne
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Merci de me dépatouiller!!
Voici le detail de ma macro
Sub MAJ_ANOMALIE2()
Dim DLig As Long
With Sheets("transaction")
'filtre sur des lignes qui une croix
.ListObjects("Tableau1").Range.AutoFilter Field:=18, Criteria1:= _
"<>"
'copie de la selection de la ligne 2 à la dernière ligne non vide
DLig = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:I" & DLig + 1, "M2:N" & DLig + 1).Select
Selection.Copy
End With
'deselction du filtre
Sheets("transaction").ListObjects("Tableau1").Range.AutoFilter Field:=18
'ouverture du fichier de destination
Workbooks.Open Filename:="S😛rocess contrôle\Saisie anomalie.xlsm"
'collage de la selection sur la 1er ligne vide
Sheets("bal").Range("A" & Rows.Count.End(xlUp).Row + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False