Sujet Précédent Sujet Suivant

Ajouter une ligne a la fin de mon tableau

darkvulcane Messages postés 5 Statut Membre -  
eriiic Messages postés 25847 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

A voir également:

1 réponse

Réponse 1 / 1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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
0
darkvulcane Messages postés 5 Statut Membre
 
C'est a dire, désolé je débute dans le VBA
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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
0