Ajouter une ligne a la fin de mon tableau
darkvulcane
Messages postés
5
Statut
Membre
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, j'aimerai que les enregistrement que je copie vienne s'inseré a après la dernière ligne de mon tableau, voici la maccro que j'utilise
Sub Nouvel_agent()
'
' Nouvel_agent Macro
'
'
Sheets("Planning").Select
Rows("17:17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Nouveau").Select
Range("A2:F2").Select
Selection.Copy
Sheets("Planning").Select
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Nouveau").Select
Range("E5:E9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E5").Select
End Sub
Merci d'avance
Sub Nouvel_agent()
'
' Nouvel_agent Macro
'
'
Sheets("Planning").Select
Rows("17:17").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Nouveau").Select
Range("A2:F2").Select
Selection.Copy
Sheets("Planning").Select
Range("A17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Nouveau").Select
Range("E5:E9").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E5").Select
End Sub
Merci d'avance
1 réponse
-
Bonjour,
ton code fait à l'enregistreur est imbuvable...
ligne vide de fin en colonne A de Feuil2 :
derlig = [Feuil2!A65536].end(xlup).row + 1
eric-
-
Bonjour,
Je parle français pourtant...
Pour récupérer le n° de la première ligne disponible en colonne A :
derlig = [Feuil2!A65536].end(xlup).row + 1
C'est sur cette ligne que tu dois coller ton enregistrement, ce qui répond à ta question :
j'aimerai que les enregistrement que je copie vienne s'inseré a après la dernière ligne de mon tableau
eric
-
