Discussion :

[progheure]

Bonjour, j'ai ceci dans mon thiworkbook:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False 'Clear clipboard
    End With
End Sub

Je voudrais que ce code soit annulé dans le code d'un userform
Est ce possible?
Meric à vous

[patricktoulon]

Bonjour
a l'initialyse de l'userform peut etre tout simplement

Code :

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

1
2
3
4
With Application
        .CellDragAndDrop = true
        .CutCopyMode = true'Clear clipboard
    End With

[SfJ5Rpw8]

...je voudrais que ce code soit annulé dans le code d'un userform
Est ce possible?
Meric à vous

Bonjour,
en quoi ce code te gêne-t-il dans ton UserForm ?

[progheure]

J'ai essayé ce que tu as dit patrick ca ne fonctionne pas.

Ca me bloque parce que les utilisateurs ne doivent pas faire de copier coller et ca vide le presse papier en changeant de cellule donc quand je change de cellule je peux pas coller

[SfJ5Rpw8]

Oui mais que vient faire l'userform ici ? as tu accès à tes cellules lorsque l'userform est ouvert ?

[progheure]

L'userform me permet d'afficher toutes les feuilles masquées puis de le déverrouiller.

Je voudrais ensuite pouvoir copier coller librement mais dès que je change de cellule le presse papier se vide.

[SfJ5Rpw8]

tu rajoute une condition dans ton Workbook_SheetSelectionChange .. qui conditionne l'exécution de ton code en fonction de l'état de ta protection ..


Quel est le code utilisé pour la protection/ déprotection ?

[Philippe Tulliez]

Bonjour,

L'userform me permet d'afficher toutes les feuilles masquées puis de le déverrouiller.
Je voudrais ensuite pouvoir copier coller librement mais dès que je change de cellule le presse papier se vide.

Ce n'est pas très clair.
Si tu fais un Copier/Coller avec une instruction VBA, il n'y a pas de problème. Bien entendu sans passer par un Select qui est de toute manière à proscrire dans une procédure VBA.

Code :

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

Range("A9:F19").Copy Range("K4")