Discussion :

[Henri1830]

Bonjour !

Je crée un XLTM qui est une check list. L'utilisateur est censé cocher ce qu'il a fait pour voir si toutes les actions de sa procédure ont été exécutées.

J'ai donc utilisé des contrôles ActiveX "case d'option" (optionbutton) Oui/non ou Option 1, option 2, option 3.
Pour tout dire, c'est la première fois que j'utilise cette fonction.
J'ai donné un nom différent à chaque case d'option (ex: StatutA, StatutB, StatutS)
J'ai donné un nom identique à mon groupe (ex: Statut dans la propriété "GroupName" des 3 cases d'option)

Dans le formulaire, s'il s'agit d'un nouveau client, (réponse Oui) une série de questions doivent apparaître et elles doivent être masquées si ce n'est pas le cas (réponse Non).
J'utilise donc le code suivant :

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
 
Private Sub OptionButton1_Click()
    With ActiveSheet
        .Shapes("OptionButton3").Visible = True
        .Shapes("OptionButton4").Visible = True
        .Shapes("OptionButton5").Visible = True
        .Shapes("OptionButton6").Visible = True
    End With
    Rows("9:11").EntireRow.Hidden = False
 
End Sub
 
Private Sub OptionButton2_Click()
    With ActiveSheet
        .Shapes("OptionButton3").Visible = False
        .Shapes("OptionButton4").Visible = False
        .Shapes("OptionButton5").Visible = False
        .Shapes("OptionButton6").Visible = False
    End With
    Rows("9:11").EntireRow.Hidden = True
 
End Sub

Je me trouve confronté à une curiosité :
J'ai cliqué sur oui et non pour tester mon code. Apparemment tout fonctionne, les lignes et les cases d'option apparaissent ou disparaissent selon les cas.
C'est ensuite, que le problème se pose : les cases d'option 5 et 6 ne fonctionnent pas (aucun point noir ne s'affiche) mais en plus, elles modifient leur propriété "Top" qui passe de 320,25 à 504,75.
Le plus curieux est que les cases sont toujours affichées en 320,75, mais qu'elle s'affiche en plus à l'endroit du Top dans les propriétés, c'est-à-dire le 504,75. Lorsque je relâche le clic gauche, la case d'option en 504,75 disparaît et celle en 320,75 reste affichée à cette place !!! (mais sans point noir)

Ça ne se passe que pour certaines cases d'option.

Si quelqu'un a une idée de ce qui coince, ça m'arrangerait.

Bonne journée à vous.

Henri

[mjpmjp]

bonjour,
les contrôles dans une feuilles ont 3 possibilités par rapport au cellule/ligne/colonne de la feuille

si tu caches des lignes , çà peut modifier la position des contrôles en fonction de la configuration choisie

@+JP

[Henri1830]

Bonjour JP,

Même si ça ne m'arrange pas merci pour la réponse.
Tu as l'air de dire qu'il n'y a pas de solution gérable, j'ai bien compris ?

Bien à toi

Henri

[mjpmjp]

bonjour,

non juste ceci..



@+JP

[Henri1830]

Merci pour l'info, j'ignorais.
Je suis passé de la position "Déplacer sans dimensionner avec les cellules" à "Ne pas déplacer ou dimensionner avec les cellules". Malheureusement, ça crée d'autres problèmes de décalage...


Je vais passer par des userform, il me semble que ce sera plus facile pour gérer.

Encore merci JP !

Henri