Calculate empeche le coller

Bonjour,

La fonction CALCULATE empeche le " Coller " dans une macro.

Explication :

Dans ma feuille de calcul j'ai le code suivant qui permet par le biais des MEFC de mettre la ligne en blanc (code 2) :

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub

---

Code 2 :

Code:

---

=ET(COLONNE()=CELLULE("colonne");LIGNE()<=CELLULE("ligne"))

---

Ensuite j'ai un module dans lequel j'ai ce début de code qui bug dès qu'il arrive à la fonction PASTE (ligne 13) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Windows("BdD 2017.xlsm").Activate Sheets("Suivi documentaire").Select ActiveSheet.Unprotect Range("Tab_Doc[[#Headers],[Processus]]").Select Selection.AutoFilter Rows("1:1").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("4:4").Select Selection.Copy Rows("1:1").Select ActiveSheet.Paste

---

Si je supprime le code de ma feuille (fonction CALCULATE) ça fonctionne.

Comment faire pour garder la fonction CALCULATE et autoriser le PASTE ?

Cordialement

Bonjour,
Tu peux déjà essayer en enlevant tous les select/selection. Je ne promets pas que le problème va se résoudre, mais c'est un premier pas vers un code plus sûr :

Code:

---

1 2 3 4 5 6 7 8

With Windows("BdD 2017.xlsm").Sheets("Suivi documentaire") .Unprotect .Range("Tab_Doc[[#Headers],[Processus]]").AutoFilter .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Rows("4:4").Copy destination:=.Range("A1") End With

---

Si ça ne se résout pas, tu peux désactiver les évènements pendant l'exécution du code, puis les réactiver avec :

Code:

---

1 2 3

Application.EnableEvents = False '.... Application.EnableEvents = True

---

Bonjour,

En Automatique, Excel ne calcule les feuilles que sur l'évènement Change, mettre en manuel et calculer sur SelectionChange est une gageure !

Edit : Et utiliser des dysfonctionnements d'Excel, c'est prendre le risque que le bug soit corrigé.

Bonjour et merci,

Le second code résout mon souci.:lol:

Citation:

---

Envoyé par Patrice740

Bonjour,

En Automatique, Excel ne calcule les feuilles que sur l'évènement Change, mettre en manuel et calculer sur SelectionChange est une gageure !

Edit : Et utiliser des dysfonctionnements d'Excel, c'est prendre le risque que le bug soit corrigé.

---

Que faut il donc faire ???