Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWith Sheets("toto") .Shapes("titi").Left .Shapes("tata").Visible .Shapes("tutu").Rotation = ' etc... etc... etc... .Activate End With
Public Sub cmd_LUNE_SOLEIL() bSOLEIL = Not bSOLEIL Application.ScreenUpdating = False With Sheets("AZIMUT") .Unprotect If .Shapes("cmdACTUALISER").Visible Then With .Shapes("shpLIVE") .Visible = True If bSOLEIL Then .Top 63 Else .Top 55 End With End If .Protect UserInterfaceOnly:=True End With Call CHOIX_PAGE_AZIMUT End Sub
Peut-être découvriras-tu que ton programme demande le visible...
With .Cells(6, 9) .VerticalAlignment = xlBottom .Font.Color = vbRed End With .Cells(7, 9).VerticalAlignment = xlTop ' etc... etc...