Signaler

EXCEL : Macro [Résolu/Fermé]

Posez votre question alainjjb 662Messages postés jeudi 17 mai 2007Date d'inscription 15 novembre 2017 Dernière intervention - Dernière réponse le 12 oct. 2016 à 14:13 par alainjjb
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

Utile
+0
plus moins
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+
Utile
+0
plus moins
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
Utile
+0
plus moins
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+
Utile
+0
plus moins
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

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 !