Signaler

Macro ajout de ligne en fin de tableau [Résolu]

Posez votre question beneric27 5Messages postés lundi 19 septembre 2016Date d'inscription 20 septembre 2016 Dernière intervention - Dernière réponse le 20 sept. 2016 à 18:51
Bonjour,
J'ai un problème sur ma macro:
La ligne qui s'ajoute en fin de tableau est une copie de la dernière ligne et non une copie de la ligne 20 qui est vierge de données. Peut-on m'aider svp ? Merci
Sub ajout_ligne()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
ligne_max = Range("FF1").Value
Range("A20").Select
Selection.End(xlDown).Select
Range(Selection, Cells(ActiveCell.Row, 162)).Select
Selection.Copy
Cells(ligne_max + 1, 1).Select
ActiveSheet.Paste
Range(Cells(ligne_max + 1, 2), Cells(ligne_max + 1, 2)).Select
Selection.ClearContents
Range("A20").Select
Application.ScreenUpdating = True
End Sub
Afficher la suite 
Utile
+0
moins plus
Bonjour,

Pour éviter tout problème, supprimes tous les select et indiques la référence complète des objets range (classeur.feuille.range)
beneric27 5Messages postés lundi 19 septembre 2016Date d'inscription 20 septembre 2016 Dernière intervention - 20 sept. 2016 à 18:51
C'est bon patrice, j'ai trouvé. J'avais un défaut de ligne 20 masquée (comme les 19 autres premières car ces lignes servent pour mes listes de menus déroulants).Merci néanmoins de ta participation
Répondre
Ajouter un commentaire

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !