Plein ecran vba et presse papier

Résolu
TANK7070 Messages postés 4 Date d'inscription samedi 27 mai 2023 Statut Membre Dernière intervention 28 mai 2023 - 27 mai 2023 à 15:45
yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 - 29 mai 2023 à 09:28

Bonjour,

pour mon classeur j'ai mis le code suivant:

Private Sub Workbook_Activate()
    Application.DisplayFullScreen = True 'plein écran
    ActiveWindow.DisplayHeadings = False 'colonnes et lignes
    ActiveWindow.DisplayGridlines = False 'quadrillage
    Application.DisplayFormulaBar = False ' barre de formule
    ActiveWindow.DisplayWorkbookTabs = False 'onglets
End Sub

est cela donne l'effet escompté, cependant ça réinitialise le presse papier à la sélection du classeur, alors impossible de y coller les données copiées des autres classeurs


Windows / Opera 98.0.0.0

A voir également:

1 réponse

yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 1 477
27 mai 2023 à 20:38

bonjour,

à première vue, je ne vois pas le lien entre ce code et l'effet sur le presse-papier.

as-tu essayé avec un code vide?

0
TANK7070 Messages postés 4 Date d'inscription samedi 27 mai 2023 Statut Membre Dernière intervention 28 mai 2023
27 mai 2023 à 22:23

oui j'ai essayé, même avec un tout nouveau classeur, c'est comme ça que j'ai pu identifier le problème, et moi non plus je ne vois pas le lien

0
yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 1 477 > TANK7070 Messages postés 4 Date d'inscription samedi 27 mai 2023 Statut Membre Dernière intervention 28 mai 2023
28 mai 2023 à 12:13

explique précisément la suite des opérations.

0
TANK7070 Messages postés 4 Date d'inscription samedi 27 mai 2023 Statut Membre Dernière intervention 28 mai 2023 > yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024
28 mai 2023 à 12:24

c'est pourtant simple, apparemment l'événement Workbook_Activate() avec les instructions de plein écran font réinitialiser le presse papier si les données copiées proviennent d'un autres classeur excel

0
yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024 1 477 > TANK7070 Messages postés 4 Date d'inscription samedi 27 mai 2023 Statut Membre Dernière intervention 28 mai 2023
28 mai 2023 à 19:27

Même sans l'évenement, n'est-il pas bien connu que les données copiées doivent restées "activées" pour pouvoir être collées?

0
TANK7070 Messages postés 4 Date d'inscription samedi 27 mai 2023 Statut Membre Dernière intervention 28 mai 2023 > yg_be Messages postés 22732 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 avril 2024
28 mai 2023 à 20:53

Bah allez savoir le pourquoi du comment, d'ailleurs mon problème est résolu par blocage d'évènement :

Private Sub Workbook_Activate()

Application.EnableEvents = False
    Application.DisplayFullScreen = True 'plein écran
    ActiveWindow.DisplayHeadings = False 'colonnes et lignes
    ActiveWindow.DisplayGridlines = False 'quadrillage
    Application.DisplayFormulaBar = False ' barre de formule
    ActiveWindow.DisplayWorkbookTabs = False 'onglets

End Sub

merci pour votre aide

0