Arrêt des codes VBA lorsque je coupe , copie et colle.

[isa44]

Bonsoir , j'ai un gros classeur qui lorsque je veux couper , copier et coller est bloqué par la VBA. Je suis obligée d'arrêter l'exécution de la VBA pour pouvoir effectuer ces actions.

Comment intégrer un code au classeur pour pouvoir couper, copier et coller ?

Merci pour vos solutions

 

[Pierrot93]

Re : Arrêt des codes VBA lorsque je coupe , copie et colle.

Bonjour à tous,

peut être ceci :

If Application.CutCopyMode > 1 Then Application.Calculation = xlCalculationManual

A remettre sans doute à "xlCalculationAutomatic" à un moment ou à un autre...

bonne journée
@+

 

[isa44]

Re : Arrêt des codes VBA lorsque je coupe , copie et colle.

Merci Staple1600 ,

ça avance , mais après une copie ça ne revient pas sur "Application.Calculation = xlAutomatic"


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode > 1 Then Application.Calculation = xlCalculationManual

' après l'exécution de la ligne supérieure , l'encadrement de la cellule copiée reste en pointillés ce qui empêche la ligne suivante'

If Application.CutCopyMode < 1 Then Application.Calculation = xlAutomatic



End Sub

 

[Staple1600]

Re : Arrêt des codes VBA lorsque je coupe , copie et colle.

Re


isa44
Pourrait-on voir l'intégralité du code VBA que tu utilises dans ta procédure Worksheet_SelectionChange ?

EDITION: Bing! Collision+2 😉

 

[Pierrot93]

Re : Arrêt des codes VBA lorsque je coupe , copie et colle.

Re,

essaye de placer ceci :

Application.CutCopyMode = False

supprimera les "pointillés", enfin si j'ai bien compris....

 

[pierrejean]

Re : Arrêt des codes VBA lorsque je coupe , copie et colle.

Re

Persistant dans mon idée , je te propose l'assistance d'un usf qui s'ouvrira lors de la selection
Sequence: tu selectionne puis clique sur pour coller , tu colles et cliques sur apres collage