Garder l'état d'un OptionButton dans un UserForm

**scoubi77** · 29/08/2014, 23h31

Bonjour à toutes et à tous,

Afin de garder l'état visuel de ce qui a été choisi avant, j'ai écrit un code me permettant de garder la valeur du choix précédent dans mon UserForm.
Pour cela je vais chercher la valeur oui ou non.
Mon soucis est que en fait cette valeur ne s'incrémente pas dans les Cellules BD1 et BD2 et donc du fait forcement, la sélection effectué au paravent n'est pas gardé en mémoire !

Par contre la copie d'une feuille à l'autre que je lui indique dans la suite s'effectue sans aucun problème.

J'ai beau lire et relire mon code je ne trouve pas ou j'ai loupé quelque chose.
Si quelqu'un peut m'aider je l'en remercie par avance

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
 Sub UserForm5_Initialize() 'Valeurs initiales des cases à cocher
    If Range("BD2") = "oui" Then
        OptionButton1.Value = True
    End If
 
    If Range("BD1") = "oui" Then
        OptionButton2.Value = True
    End If
End Sub
 Sub OptionButton1_Click() 'N°1
    If OptionButton1.Value = True Then 'Si coché ...
        Sheets("masque").Range("BD2") = "oui"
    Else 'Si non coché ...
        Sheets("masque").Range("BD2") = "non"
    End If
End Sub
 Sub OptionButton2_Click() 'N°2
    If OptionButton2.Value = True Then 'Si coché ...
        Sheets("masque").Range("BD1") = "oui"
    Else 'Si non coché ...
        Sheets("masque").Range("BD1") = "non"
    End If
End Sub
 Sub CommandButton1_Click() 'validation de la selection du format horaire
  If OptionButton1.Value = True Then
Sheets("masque").Range("A2:DA2").Copy Destination:=Sheets(1).Range("D3:DD3")
 
Else
  End If
    Unload Me
 
    If OptionButton2.Value = True Then
Sheets("masque").Range("A1:DA1").Copy Destination:=Sheets(1).Range("D3:DD3")
 
Else
   End If
Unload Me
End Sub
 
Private Sub CommandButton2_Click() ' annulation de la selection du format horaire
Unload Me
End Sub

Très cordialement
Scoubi

**SfJ5Rpw8** · 29/08/2014, 23h38

bonjour,

ben déjà à certains endroit tu précise la feuille de calcul devant range à d'autre non ....mieux vaux TOUJOURS préciser la feuille concerné devant un objet range pour éviter d'avoir un problème ..(aujourd'hui ou plus tard..)

Code :

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

 If ThisWorkbook.Sheets("masque").Range("BD2") = "oui" Then

mais déjà tu aurais pu contrôler :

- les valeurs "oui" ou "non" sont-elles écrites dans ta feuille ?
- si tu modifie "manuellement" les valeurs "oui" ou "non" cella est pris en compte par ton userform ?

histoire de savoir si c'est ton écriture ou ta lecture qui cause problème ..

**scoubi77** · 29/08/2014, 23h43

Bonsoir et merci pour ta réponse,

Effectivement j'ai bien vérifié avant de poster, j'ai bien écrit non et non respectueusement dans les Cellules correspondantes au préalable.
Si je coche une case dans l'userform la valeur oui ou non n'est pas changée dans la Cellule correspondante.
Si je change manuellement la valeur l'UserForm n'affiche aucune Sélection

**SfJ5Rpw8** · 29/08/2014, 23h50

As tu rajouté feuille et classeur devant tes objets Range ???

Pour ce qui est des événements d'userform, il ne faut pas les renommer :

Code :

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

 Sub UserForm5_Initialize()

enlève le 5 !

pour éviter les erreurs le mieux c'est de ne jamais saisir les noms de procédures événementielles , mais tu les choisi simplement dans les deux combobox au dessus de ta page de code .

**scoubi77** · 29/08/2014, 23h55

Je viens de renommer et enlever le UserForm5, voici mon code modifié selon tes instructions :

Par contre le fait de ne pas nommer l'userform n'est-il pas gênant vis à vis des quatres autres ?

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
Private Sub UserForm_Initialize() 'Valeurs initiales des cases à cocher
    If Range("BD2") = "oui" Then
        OptionButton1.Value = True
    End If
 
    If Range("BD1") = "oui" Then
        OptionButton2.Value = True
    End If
End Sub
Private Sub OptionButton1_Click() 'N°1
    If OptionButton1.Value = True Then 'Si coché ...
        ThisWorkbook.Sheets("masque").Range("BD2") = "oui"
    Else 'Si non coché ...
        ThisWorkbook.Sheets("masque").Range("BD2") = "non"
    End If
End Sub
 Private Sub OptionButton2_Click() 'N°2
    If OptionButton2.Value = True Then 'Si coché ...
        ThisWorkbook.Sheets("masque").Range("BD1") = "oui"
    Else 'Si non coché ...
        ThisWorkbook.Sheets("masque").Range("BD1") = "non"
    End If
End Sub
 Private Sub CommandButton1_Click() 'validation de la selection du format horaire
    'Application.ScreenUpdating = False
  If OptionButton1.Value = True Then
ThisWorkbook.Sheets("masque").Range("A2:DA2").Copy Destination:=ThisWorkbook.Sheets(1).Range("D3:DD3")
 
Else
  End If
    Unload Me
 
    If OptionButton2.Value = True Then
ThisWorkbook.Sheets("masque").Range("A1:DA1").Copy Destination:=ThisWorkbook.Sheets(1).Range("D3:DD3")
 
Else
   End If
Unload Me
End Sub
 
Private Sub CommandButton2_Click() ' annulation de la selection du format horaire
Unload Me
End Sub

**SfJ5Rpw8** · 29/08/2014, 23h57

tu as bien mis ce code dans la page de code de l'userform ??? chaque userform à sa page de code...

**scoubi77** · 30/08/2014, 00h01

Affirmatif, j'affiche le code en cliquant sur le bouton ok de l'userform (5 )

**SfJ5Rpw8** · 30/08/2014, 00h09

et vu que ces des options boutons .. tu n'as besoin que d'une seule case pour mémoriser l'état ... et tu dois mettre à jour cette case (cellule) sur les 2 clics option bouton...

**scoubi77** · 30/08/2014, 00h11

C'est à dire, je ne te comprends pas ?
J'ai deux option boutons et deux Cellules !

**Philippe Tulliez** · 30/08/2014, 09h35

Bonjour,

C'est à dire, je ne te comprends pas ?
J'ai deux option boutons et deux Cellules !

Un OptionButton à deux états True ou False donc une seule cellule est suffisante pour lui faire prendre l'état Vrai ou Faux (Oui ou son contraire) sinon il faut prendre un autre contrôle CheckBox
Et plutôt que d'utiliser un If comme dans ce code

Code :

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

1
2
3
 If Range("A2") = "oui" Then
  OptionButton1.Value = True
 End If

Utilise

Code :

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

 OptionButton1.Value = Worksheets("Feuil1").Range("A2") = "oui"

et comme on est jamais certain que l'utilisateur a écrit le texte (pour ton cas "oui") en minuscule, il est préférable d'écrire

Code :

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

 OptionButton1.Value = LCase(Worksheets("Feuil1").Range("A2")) = "oui"

et de plus pour éviter les espaces intempestifs avant ou après la chaîne de caractères

Code :

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

 OptionButton1.Value = Trim(LCase(Worksheets("Feuil1").Range("A2"))) = "oui"

**scoubi77** · 30/08/2014, 10h00

Bonjour et merci pour ta réponse,

Ce n'est pas l'utilisateur qui écrit oui ou non,
Je voudrais conserver l'état de sélection dans mon userform qui a
Deux option bouton.
Donc je me suis dit que si j'écrivais oui ou non je pouvais aller interroger cette Cellule pour récupérer le dernier état afin de l'afficher à l'ouverture suivant de l'userform.
Mais apparemment j'ai tout faux.
Je cherche à conserver l'état de sélection pour que l'utilisateur puisse voir ce qui avait été sélectionné avant son intervention.
J'espère avoir été plus claire sur mon problème.
Te remerciant

**Philippe Tulliez** · 30/08/2014, 10h07

Bonjour,

Ce n'est pas l'utilisateur qui écrit oui ou non,

J'utiliserais alors la valeur VRAI ou FAUX qui est une valeur native et sans ambiguïté d'excel.

Je cherche à conserver l'état de sélection pour que l'utilisateur puisse voir ce qui avait été sélectionné avant son intervention.

Comme écrit plus haut si c'est un OptionButton, une seule cellule doit suffire (par exemple Est-un homme Oui/Non si c'est non, c'est donc une femme (en tous les cas pour l'instant) donc une seule cellule pourra donner un TRUE ou FALSE.
Sinon si le choix est multiple, on choisi CheckBox
Mais bien entendu tu peux prendre une autre voie, chacun est libre

**SfJ5Rpw8** · 30/08/2014, 11h02

bonjour,

tu peu aussi faire sans aucun code ...

tu supprime ton code ..

puis tu modifie la propriété ControlSource de chacun de tes option boutons et tu y associe une cellule de ton fichier :

Code :

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

masque!bd1

**scoubi77** · 30/08/2014, 12h36

Re bonjour à vous deux,

J'ai donc cherché à faire plus simple en écrivant ceci.
sur le fonctionnement ça marche impec, par contre si je ferme l'userform et que je le réouvre la selection précédente n'est plus sélectée !
Ce que je cherche à faire.
Je tourne en rond !!!

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
  Private Sub CommandButton1_Click() 'validation de la selection du format horaire
    'Application.ScreenUpdating = False
  If OptionButton1.Value = True Then
ThisWorkbook.Sheets("masque").Range("A2:DA2").Copy Destination:=ThisWorkbook.Sheets(1).Range("D3:DD3")
 
Else
  End If
    Unload Me
 
    If OptionButton2.Value = True Then
ThisWorkbook.Sheets("masque").Range("A1:DA1").Copy Destination:=ThisWorkbook.Sheets(1).Range("D3:DD3")
 
Else
   End If
Unload Me
End Sub

**Philippe Tulliez** · 30/08/2014, 12h46

Bonjour,
Je ne comprends pas la logique de ta procédure par rapport à tes deux OptionButton.
Normalement on exécute une action si c'est VRAI et une autre si c'est FAUX même si on ne fait rien et toi tu testes deux contrôles différents au sein d'une même structure décisionnelle.

**scoubi77** · 30/08/2014, 13h12

Je t’explique.

J'ai un userform
avec possibilité de copier des Cellules sur une ligne:

Le premier bouton permet de sélecter cette copie :

Code :

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

ThisWorkbook.Sheets("masque").Range("A2:DA2").Copy Destination:=ThisWorkbook.Sheets(1).Range("D3:DD3")

et le deuxième permet de sélecter cette copie :

Code :

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

hisWorkbook.Sheets("masque").Range("A1:DA1").Copy Destination:=ThisWorkbook.Sheets(1).Range("D3:DD3")

Et j'ai un commande bouton qui valide et exécute la copie.
Afin que l'opérateur sache qu'elle procédure est en cours je voudrais qu'il puisse la voir en ouvrant l'userform avant de changer cette dernière !
afin de ne pas se tromper et enclencher une deuxième fois la même si se n'est pas son souhait
Tu me comprends ?

**Philippe Tulliez** · 30/08/2014, 13h27

Bonjour,
Oui, cela j'ai compris. Je sais lire du code.
Ce que je ne comprends pas c'est ta logique.
Est-ce soit l'une ou l'autre copie qui peut être réalisée ? Si oui alors un seul OptionButton est nécessaire ou même un ToggleButton dans le cas contraire c'est un CheckBox qu'il faut utiliser.

Invité · 30/08/2014, 13h33

Salut,

Pour les états, sauf grosse bétise de ma part, ça devrai être suffisant.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize() 'Valeurs initiales des cases à cocher
    OptionButton1.Value = Feuil1.Range("B1")
    OptionButton2.Value = Feuil1.Range("B2")
End Sub
Private Sub UserForm_Terminate()
    Feuil1.Range("B1") = OptionButton1.Value
    Feuil1.Range("B2") = OptionButton2.Value
End Sub