bonsoir à tous
jai écris ce code pour ouvrir usfaffichage du classeur1 depuis le classeur2
les 2 classeurs sont ouverts
mais ce me mets que l'objet n'est pas géré etc.......
quelle est la syntaxe exacte pour ça
merci
bonsoir à tous
jai écris ce code pour ouvrir usfaffichage du classeur1 depuis le classeur2
les 2 classeurs sont ouverts
mais ce me mets que l'objet n'est pas géré etc.......
quelle est la syntaxe exacte pour ça
merci
bonsoir à tous et merci ça fonctionne
je ne connaissais pas ce "application run"
maintenant toujours sur le même principe
j'ai 2 boutons (labels en fait) qui permettent de basculer de plein écran à écran normal l'affichage des feuilles, dans l'usf du classeur 1
j'aimerais que ces boutons commandent aussi le classeur 2
Code:
Private Sub Label35_Click()
Application.DisplayFullScreen = True 'plein écran
Label35.Visible = False
Label36.Visible = True
End Sub
Private Sub Label36_Click()
Application.DisplayFullScreen = False 'affichage normal
Label36.Visible = False
Label35.Visible = True
End Sub
faut-il utiliser le même système de code à base de module?
merci
Re pascal21,
Bonjour Hasco, BrunoM45,
peut-être ainsi:
X
Private Sub Label35_Click() With ActiveSheets'feuille active
Application.DisplayFullScreen = True 'plein écran
Label35.Visible = False
Label36.Visible = True End With
End Sub
Private Sub Label36_Click() With ActiveSheet'feuille active
Application.DisplayFullScreen = False 'affichage normal
Label36.Visible = False
Label35.Visible = True End with
End Sub