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
Très cordialement
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
Scoubi
Partager