Bonjour,
Je fais remplir un questionnaire sous excel d'une douzaine de feuilles, qui fait appel à de nombreux boutons directement sur les feuilles (OptionButton, CommandButton, Zone de texte.....).
Tout va bien si on ouvre pas de fenêtre internet, par contre, si on ouvre "Microsoft Internet Explorer", et que l'on revient sur le fichier Excel, la taille des boutons grossie et les boutons se décalent, rendant le questionnaire particulièrement moche !
Rien de très compliqué question programme, juste des zônes et des feuilles qui aparaissent ou non en fontion des réponses.
Exemple
Quelqu'un a-t-il déjà eu ce problème ?
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 Private Sub Cmb1Page10_Click() Feuil01.Activate End Sub Private Sub OptDispositifYes3_Click() If OptDispositifYes3.Value = True Then ActiveSheet.Unprotect OptRobien3.Visible = True OptBessonAncien3.Visible = True OptOther3.Visible = True TxbDispositif3.Visible = True Rows("37:38").EntireRow.Hidden = False Rows("79:87").EntireRow.Hidden = False Rows("88:94").EntireRow.Hidden = False OptRobien3.Top = Feuil42.Range("a37").Top OptRobien3.Value = False OptBessonAncien3.Top = Feuil42.Range("a37").Top OptBessonAncien3.Value = False OptOther3.Top = Feuil42.Range("a37").Top OptOther3.Value = False TxbDispositif3.Top = Feuil42.Range("a37").Top TxbDispositif3.Visible = False ActiveSheet.Protect End If End Sub Private Sub OptDispositifNo3_Click() If OptDispositifNo3.Value = True Then ActiveSheet.Unprotect OptRobien3.Visible = False OptBessonAncien3.Visible = False OptOther3.Visible = False TxbDispositif3.Visible = False Rows("37:38").EntireRow.Hidden = True Rows("79:87").EntireRow.Hidden = False Rows("88:94").EntireRow.Hidden = True ActiveSheet.Protect End If End Sub
merci
(Windows XP Professional)
(Excel 2002)
Breva64
Partager