Discussion :

[graphikris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
End Sub

Code 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[riaolle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.EnableEvents = False
'....
Application.EnableEvents = True

[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é.

[graphikris]

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 ???

[graphikris]

Bonjour et merci,

Le second code résout mon souci.