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

 

[Compte Supprimé 979]

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

Bonsoir Isa44

Je pense que ton problème vient du fait que tu dois avoir du code dans un évènement

Private Sub Worksheet_Change(ByVal Target As Range)

Si tel est le cas, tu peux inclure au début de ta sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count >1 then Exit Sub

A+

 

[isa44]

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

Bonjour , dans le code j'ai calculate qui inhibe la possibilité de coller:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Permet de couper , copier et coller
If Target.Count > 1 Then Exit Sub
' Calculate empêche le collage !!!
Calculate
End Sub

Comment le bloquer le temps de coller ?

 

[Pierrot93]

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

Bonjour Isa, Bruno🙂

Aarf, pas sûr d'avoir tout compris moi... supprime cette procédure, non...

bonne journée
@+

 

[isa44]

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

Bonjour Pierrot 93 ,
En fait si une copie est lancée , il faudrait attendre le collage avant d'exécuter le " Calculate "

 

[Pierrot93]

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

Re,

essaye peut être en placant le code dans l'événement "change" de la feuille plutôt que dans l'événement "SelectionChange"...;

 

[pierrejean]

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

Bonjour Isa ,Bruno ,Pierrot

Suggestion (un peu plus 'propre' qu'interrompre Vba mais tout aussi contraignant )

Sub pourcoller()
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
End Sub

Sub aprescollage()
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
activesheet.Calculate
End Sub

 

[isa44]

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

J'ai disposé les codes comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
pourcoller

aprescollage


End Sub

Je n'arrive pas au calculate sur la feuille

 

[pierrejean]

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

Re

J'ai bien dit que c'etait contraignant !!
Il faut :
Avant de copier/coller executer :
pourcoller
Et apres avoir collé executer:
aprescollage

 

[Valentin]

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

Bonjour à tous,

Ce post m'intéresse également car je suis confronté au même soucis 🙂

Une idée vient de me traverser l'esprit à la lecture de la proposition de pierrejean : Afin d'éviter le "coté contraignant", on peut mettre un raccourci sur ctrl+c et ctrl+v ? En ajoutant au code "de quoi copier la selection et la coller" ?

 

[Pierrot93]

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

Re,
bonjour PierreJean🙂

regarde peut être ceci, peut être une autre piste

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode < 1 Then Calculate
End Sub

bon après midi
@+

 

[isa44]

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

Bonne et EXCELlante année à tous et toute .

J'ai tourné le problème dans tous les sens sans solution.
Alors je me pose la question s'il serait possible de faire une macro pour mettre en arrêt le VBA ?

 

[patoq]

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

Bonjour Pierrot 93 ,
En fait si une copie est lancée , il faudrait attendre le collage avant d'exécuter le " Calculate "

Un truc tout bête ,mettre une tempo sur le calculate

Sub LaMacro_V03()
'tempo 1 seconde'
Application.Wait (Now + TimeValue("0:00:01"))
End Sub

 

[isa44]

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

Bonjour je n'arrive pas à le faire fonctionner.

Est ce qu'il serait possible de compléter ce code ?

If Application.CutCopyMode > 1 Then "ne pas calculer"

 

[Staple1600]

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

Bonjour


A vue de nez et non testé

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

EDITION: Bonjour Pierrot93 😉 (Bing! Collision+1)