EXCEL : Macro

Résolu/Fermé
alainjjb Messages postés 788 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 6 février 2025 - 12 oct. 2016 à 11:20
alainjjb Messages postés 788 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 6 février 2025 - 12 oct. 2016 à 14:13
Bonjour,

J'ai un tableau Excel avec un bouton pointant sur une macro que vous m'avez aidé à faire il y a très longtemps. Cette macro ajoute une ligne en fin de tableau en copiant la dernière ligne saisie et la rajoutant en fin de tableau. Et ça fonctionnait à merveille jusqu'ici. Mais voilà que je me suis mis à rajouter des formules dans certains champs et que ces fomules ne sont pas dans la ligne ajoutée. Voici les copier et coller de la macro :
Selection.Copy
Rows(ligne).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Pouvez-vous me dire ce que je dois changer ?
Merci d'avance
Alain

A voir également:

4 réponses

Réponse 1 / 4
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
12 oct. 2016 à 11:45
Bonjour,

Une procédure commence par "Sub" et se termine par "End Sub".
Le morceau de code que tu as joint ne correspond pas au traitement que tu décris. Il s'agit simplement d'un copier/coller spécial format d'une plage sélectionnée.

A+
0
Réponse 2 / 4
alainjjb Messages postés 788 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 6 février 2025 110
12 oct. 2016 à 12:00
Bonjour Gyrus,
je n'ai recopier que le copier / coller de la macro qui me pose problème. Je pense que c'est le paramètre du Paste qu'il faut modifier mais je ne trouve pas ce qu'il faut mettre à la place de : xlFormats car je veux conserver le format et les formules.
Merci
Alain
0
Réponse 3 / 4
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 525
12 oct. 2016 à 12:47
Il te suffit de répéter l'opération de copier/coller avec les formules : 
Selection.Copy
Rows(ligne).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

A+
0
Réponse 4 / 4
alainjjb Messages postés 788 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 6 février 2025 110
12 oct. 2016 à 14:13
Merci Gyrus,
j'avais essayé Paste:=xlPasteFormulas avant de poster mon message et le pb c'est que les valeurs des cellules sont également copiées/coller. Mais en cherchant je crois avoir trouvé en gardant Paste:=xlPasteFormats et en ajoutant les cellules concernées par les formules dans le Range qui suit le coller. En tout cas, ça fonctionne.
Merci encore
Alain
0