Désactiver sélection copié

[Lu K]

Bonjour à tous,

J'utilise le code : Selection.Insert Shift:=xlDown, après avoir copié une ligne.

Mon problème est qu'après avoir copié et insérer cette ligne, le presse papier reste actif, et si j'appui sur la touche "enter" il me re-colle ma ligne. Il y a t-il une solution pour désactivé la selection ?

D'avance merci pour vos réponse.

 

[mromain]

Re : Désactiver sélection copié

Bonjour Lu K,


Essaye en rajoutant à la suite :

Application.CutCopyMode = [COLOR=BLUE]False[/COLOR]

a+

 

[Odesta]

Re : Désactiver sélection copié

Bonjour

Application.CutCopyMode = False

Astuce pour le retrouver :

enregistrer une macro, faire copier et faire echap

Bien cordialement

Olivier

 

[Lu K]

Re : Désactiver sélection copié

Bonjour mromain, odesta et le forum.

J'avais déja essayé le code Application.CutCopyMode = False sans succés.

Voici quand je copie:
With ActiveCell
Rows(ActiveCell.Row).Select
Selection.Copy
End With

Et dans un autre sub quand je colle :
If ActiveCell.Offset(0, 6) >= 1 And ActiveCell.Offset(-2, 6) >= 1 Then
Rows(ActiveCell.Row).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Offset(0, 14).Select
ActiveCell.FormulaR1C1 = Datedebut
ActiveCell.Offset(0, -5).Select
end if

Je sais pas si cela peut aider ?