Stoper l'option copier dans une macro. Résolu/Fermé

Question

Bonjour,

Je suis sous Microsoft office 2007 et j'ai un tout petit soucis avec une macro. 

La macro est la suivante:

Sub ajouter_un_produit_sans_supprimer()
    Application.ScreenUpdating = False
    Sheets("ajout_produit_composant").Range("D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13,D14,D15").Copy
    Set Derligne = Sheets("tableau").Range("$A$65536").End(xlUp).Offset(1, 0)
    Derligne.PasteSpecial Paste:=xlAll, Operation:=xlNone, Transpose:=True
    Application.ScreenUpdating = False
    Sheets("ajout_produit_composant").Range("G3,G4,G5,G6,G7,G8,G9,G10,G11,G12,G13,G14,G15,G16").Copy
    Set Derligne = Sheets("tableau").Range("$A$65536").End(xlUp).Offset(0, 13)
    Derligne.PasteSpecial Paste:=xlAll, Operation:=xlNone, Transpose:=True
End Sub

Je l'ai trouvé sur internet et adapter à mon problème: Je voulais en effet que des cellules d'une feuille 1 soit copier pour être inseré a la fin d'un tableau d'une feuille 2.

Elle fonctionne parfaitement grâce au "Bouton" avec laquel je la fait s'actionner.

Mon seul soucis et que lorsque j'actionne la commande, mes cellules reste en mode copier, et donc si j'appuie par mégarde sur entré elle se colle n'importe ou.

Pour éviter cela il me suffit évidement d'écrire ailleur, mais étant en entreprise et ne pouvant surveiller la vie de ce fichier, j'aimerais que cela ne puisse se produire en mon absence. 

Si quelqu'un pouvait m'indiquer une phrase a ajouter afin que les cases copier ne soient plus en surbrillant (mode copier) .

Je vous remercie par avance de vos lumière.

Alex

f894009 · Answer

Bonjour,

pour annuler le mode copie ou couper:

    Application.CutCopyMode = False

foo · Answer

Bonjour

Plein de petit probleme

ex:    Range("D3:D15").Copy
  -
-
-
-
A la fin
    Application.CutCopyMode = False
pour trouver la derniere ligne a partir de excel 2007
Range("A" & Rows.Count).End(xlUp).Row

A+
Maurice

Alexver · Answer

Comme toujours, on trouve des solutions adaptés sur ce forum.

La phrase en fin marche parfaitement. 

Merci F89009 et foo! :)

Maurice tu m'as donné un petit bonus avec la phrase
 Range("A" & Rows.Count).End(xlUp).Row, elle sert donc a avoir la dernière ligne sur excel 2007?

foo · Answer

Bonjour

Oui Range("A" & Rows.Count).End(xlUp).Row
evite de paper le nombre de ligne Range("$A$65536

et aussi Sheets("ajout_produit_composant") il faut mettre le codeName de la Feuil

Ex: Feuil1.Range("D3:D15").Copy 
comme ca tu peux changer ton non d'onglet sans probleme

A+

Maurice

Alexver · Answer

Set Derligne = Sheets("tableau").Range("$A$65536").End(xlUp).Offset(1, 0)

devient donc 

Set Derligne = Sheets("tableau").Range("A" & Rows.Count).End(xlUp).Row 
Offset(1, 0)  ? 

Je fais ici une erreur puisque ça me met erreur de débogage ^^.

Stoper l'option copier dans une macro.

5 réponses

Discussions similaires