Discussion :

[dlight]

Bonjour à tous.

J'ai à nouveau besoin de vous pour comprendre ce qui ne va pas dans mon code.

Lors de la sélection de la feuille transactions, je veux que la direction du curseur soit automatiquement vers la droite puis à la sortie de cette même feuille, la direction retourne à la valeur d'origine à l'ouverture du fichier.

Code :

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

1
2
Private Sub Workbook_Open()
[LeCurseur] = Application.MoveAfterReturnDirection

j'ai donc à l'ouverture le nombre qui correspond à la direction, par exemple -4121 qui est XlDown

Puis lors de la sélection de la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub
 
Private Sub Worksheet_Deactivate()
Dim x As Integer
x = [LeCurseur]
Application.MoveAfterReturnDirection = x
 
End Sub

Jusqu'ici, tout va bien mais si j'utilise les autres commandes déjà en place et qui fonctionnaient avant l'ajout de la direction, j'ai l'erreur 1004 à la ligne de la commande "la méthode pastespecal de la classe range a échoué

Comme la commande est très longe, voici le bout de code immédiatement avant l'erreur 1004:

Code :

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

1
2
3
4
5
6
Sheets("Transactions").Select
    Range("CC10:CC691").Select
    Selection.Copy
    Sheets("Regroupement placements").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

L'erreur est à la ligne 6

Merci à l'avance pour l'explication qui fera en sorte que je puisse par défaut sélectionnmer la direction sans l'erreur 1004.


Dlight

[gFZT82]

Bonsoir,

Après avoir fait la copie dans la feuille "Transactions", tu sélectionnes la feuille "Regroupement placements". Tu provoques alors l’évènement Worksheet_Deactivate() de ta feuille "Transactions" et l’instruction Application.MoveAfterReturnDirection = x désactive le presse papier.
L’opération de collage ne peut plus être effectuée.
Une solution : tu évites les Select

Code :

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

1
2
3
    Sheets("Transactions").Range("CC10:CC691").Copy
    Sheets("Regroupement placements").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Cordialement.

[dlight]

Bonsoir !


Merci à vous gFZT82. Cela est très logique. Voilà ce qui arrive lorsque on travail un fichier avec du code en provenance de l'enregistreur de macro alors que je n'avais pas les connaissances pour vba.

Merci encore une fois


Dlight