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