Discussion :

[felixismad]

Bonjour,
alors voila mon problème.

J'utilise une marcro pour mettre moon classeur en pleine écran automatiquement et supprimer quelques fonctionnalités de excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'If ActiveSheet.Name = "secu" Then Sheets("Acceuil").Activate
 
If Application.DisplayFullScreen = False Then
MsgBox "Pour une utilisation optimal de l'application, veuillez rester en pleine écran"
Call PleinEcran
End If
 
End Sub
Private Sub Workbook_Open()
 
Application.DisplayAlerts = False
 
PleinEcran
 
Application.DisplayAlerts = True
 
End Sub
 
Private Sub Workbook_Activate()
If Application.DisplayFullScreen = False Then
Call PleinEcran
End If
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    SupprimPleinEcran
End Sub
 
Private Sub Workbook_Deactivate()
    SupprimPleinEcran
End Sub
 
 
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    PleinEcran
End Sub
 
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
   SupprimPleinEcran
End Sub
 
Public Sub PleinEcran()
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayFormulas = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayHeadings = False
End Sub
 
Public Sub SupprimPleinEcran()
 
   Application.DisplayScrollBars = True
   Application.DisplayFullScreen = False
   ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayWorkbookTabs = True
    ActiveWindow.DisplayHeadings = True
End Sub
'
'Sub Affiche_couleurs()
'
'
'End Sub
'
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
If Application.DisplayFullScreen = False Then
MsgBox "Pour une utilisation optimal de l'application, veuillez rester en pleine écran"
Call PleinEcran
End If
 
End Sub

Ce code fonctionne très bien mise à part un petit effet secondaire.
En fait, il faut que je copie et colle des données d'un autre classeur vers ce classeur.
Je vais donc dans l'autre classeur, je copie mais que je reviens dans mon classeur avec la macro.
La selection et donc le "copié" n'est plus actif. Je ne peux donc pas coller.

Une idée de l'origine de ce problème ? et une idée de comment se débarasser de ce problème sans ruiner mon code ?

bonne soirée e merci d'avance,

[QuestVba]

Hello,

Je cherche mais en copiant ton code chez moi, pas de problème pour le copier-coller. Si je trouve une piste, a+

[Marc-L]

Bonjour.

Je vais donc dans l'autre classeur, je copie mais que je reviens dans mon classeur avec la macro.
La selection et donc le "copié" n'est plus actif. Je ne peux donc pas coller.

Une idée de l'origine de ce problème ? et une idée de comment se débarasser de ce problème sans ruiner mon code ?

La sélection est inutile, elle est même déconseillée ‼

Rien qu'en consultant l'aide intégrée VBA concernant la méthode Copy associée à un objet Range …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …