CheckBox et OptionButton

Version imprimable

12/06/2008, 08h52
GTbenj

CheckBox et OptionButton

Salut à tous, voilà je crée un userform qui comprendre des checkbox et des optionbutton, et je voudrais que en fonction du choix, cela coche une case dans un tableau.

J'ai regardé pas mal de docs, mais je ne vois jamais comment faire le lien à faire entre le UF et le tableau
12/06/2008, 10h47
Overcrash

je ne suis pas expert mais je pense que tu devrais suivre l'algo suivant :

tu recupere les données de l'UserForm
Tu teste les donneés recuperer

Si test ok alors
mettre X dans la case H1
Sinon
ne rien faire ou mette un X dans la case H2

C'est de ça que tu parle ?

salut, j'ai trouvé une partie de ma réponse sur le site
http://ericrenaud.fr/dlg.htm
Code:

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 Private Sub OK_Click() Dim Langue1 As String Dim Langue2 As String Dim Langue3 As String If CheckBox1.Value = False Then Langue1 = "Non" Else Langue1 = "Oui" End If If CheckBox2.Value = False Then Langue2 = "Non" Else Langue2 = "Oui" End If If CheckBox3 = False Then Langue3 = "Non" Else Langue3 = "Oui" End If CasesACocher.Hide Range("A3").Value = Langue1 Range("B3").Value = Langue2 Range("C3").Value = Langue3 Range("A1").Select End Sub
seulement j'ai trouvé que pour les checkbox (et pas pour les optionbutton), et que, de plus, je veux que les croix rempli dans l'UF , s'affichent dans le tableau, Mais en passant à chaque fois à la ligne :help:

12/06/2008, 12h08
fring

Bonjour,

Cela manque de précision pour pouvoir apporter une réponse adéquate.

Cette X doit s'inscrire où et en fonction de quoi ?
Donne un exemple concret de ce que tu as au départ, de ce que tu fais et de ce que tu obtiens à l'arrivée.

Bonjour pour tester tes OptionButton, moi j'utilise ca :

Si tu travail avec des groupes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
Private Sub CommandButton1_Click()
    Dim Ctrl As Control
 
    'Boucle sur tous les contrôles
    For Each Ctrl In Me.Controls
        'Vérifie qu'il s'agit d'un OptionButton
        If TypeOf Ctrl Is MSForms.OptionButton Then
            'Véfifie si l'OptionButton fait partie d'un groupe nommé "GR1"
             If Ctrl.GroupName = "GR1" Then
                'Affiche le Caption de l'optionButton qui a la valeur True
                If Ctrl.Value = True Then
                    MsgBox Ctrl.Caption
                    'Sort de la boucle (Il ne peut y a voir qu'une
                    'réponse à True)
                    Exit For
                End If
            End If
        End If
    Next
End Sub

Si tu travail avec des frimes

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
    Dim Ctrl As Control
 
    For Each Ctrl In Frame1.Controls
        If Ctrl.Object.Value = True Then
            MsgBox Ctrl.Object.Caption
            Exit For
        End If
    Next Ctrl
End Sub

Comme on a pas plus de detail ...

pour répondre à fring, dans mon UF, j'ai des checkbox avec des pictogrammes en face ( pour savoir si c'est irritant, inflammable...), et il faut qu'en cochant, cela mette un X correspondant dans la cellule dans le tableau (afin d'imiter le fait de cocher)
j'ai donc réussi à faire cela, mais quand je rentre les infos, cela remplace les anciennes, en clair ça reprend la même ligne, alors que je veux que ça passer 18 lignes:aie:

Code:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
'bouton enregistrer'
Private Sub CommandButton1_Click()
 
'coder les checkbox pictogrammes avec les feuil2 et 3'
Dim Tx As String
Dim T As String
Dim Xn As String
Dim Xi As String
Dim C As String
Dim E As String
Dim O As String
Dim Fx As String
Dim F As String
Dim N As String
 
If CheckBox26.Value = False Then
    Tx = ""
Else
    Tx = "X"
End If
If CheckBox27.Value = False Then
    T = ""
Else
    T = "X"
End If
If CheckBox28 = False Then
    Xn = ""
Else
     Xn = "X"
End If
If CheckBox29.Value = False Then
    Xi = ""
Else
    Xi = "X"
End If
If CheckBox30.Value = False Then
    C = ""
Else
    C = "X"
End If
If CheckBox31.Value = False Then
    E = ""
Else
    E = "X"
End If
If CheckBox32.Value = False Then
    O = ""
Else
    O = "X"
End If
If CheckBox33.Value = False Then
    Fx = ""
Else
    Fx = "X"
End If
If CheckBox34.Value = False Then
    F = ""
Else
    F = "X"
End If
If CheckBox35.Value = False Then
    N = ""
Else
    N = "X"
End If
 
Feuil3.Range("E13").Value = Tx
Feuil2.Range("W4").Value = Tx
Feuil3.Range("F13").Value = T
Feuil2.Range("X4").Value = T
Feuil3.Range("G13").Value = Xn
Feuil2.Range("Y4").Value = Xn
Feuil3.Range("H13").Value = Xi
Feuil2.Range("Z4").Value = Xi
Feuil3.Range("I13").Value = C
Feuil2.Range("AA4").Value = C
Feuil3.Range("J13").Value = E
Feuil2.Range("AB4").Value = E
Feuil3.Range("K13").Value = O
Feuil2.Range("AC4").Value = O
Feuil3.Range("L13").Value = Fx
Feuil2.Range("AD4").Value = Fx
Feuil3.Range("M13").Value = F
Feuil2.Range("AE4").Value = F
Feuil3.Range("N13").Value = N
Feuil2.Range("AF4").Value = N
 
Me.Hide
End Sub

voilà, c'est un peu compliqué car il y a beaucoup d'autres infos aussi, et que je cherche remplir l'info non pas à la ligne suivante mais 18 lignes plus bas:marteau:

12/06/2008, 15h08
GTbenj

Mat tech, j'ai essayé ta formule (avec les groupe), mais le choix sélectionné s'affiche dans une fenêtre,
or ce n'est pas ça que je veux,
c'est qu'en fonction de ce qui est sélectionné, cela note quelque chose dans une cellule,
et toujours avec la même problématique, que si je refais l'expérience, ça va marquer cette fois ci dans la ligne en dessous dans le tableau.:arf:

merci quand même;), tu as peut être la solution à mon problème:idea:
12/06/2008, 15h22
mat-tech
Oui ok, moi j'envoie l'affichage vers un MsgBox, pour ton cas tu envoie la valeur vers la celule de ton chois ...

A la place de
Code:

1 2 MsgBox Ctrl.Caption
Code:

1 2 Feuil2.Range("B1").Value = Ctrl.caption
Par exemple ...
12/06/2008, 15h43
GTbenj

effectivement c'est ça merci

sauf que je voudrais pouvoir définir le texte à noter, et mettre si Optionbutton1 ---} B1
si Optionbutton2---} B2

peut-être le sais tu, sinon je ferais avec ta solution, elle marche nickel
merci:king:

Bonsoir,

pour une utilisation répétitive, dans l'UserForm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub 
Dim Ligne1 As Integer, Ligne2 As Integer
UserForm_Initialize()
... 
  Ligne1 = 13
  Ligne2 = 4
  ...
End Sub
 
Private Sub CommandButton1_Click()
Dim T(10) As String
Dim I As Byte
  For I = 1 To 10
    T(I) = IIf(Controls("CheckBox" & I + 25).Value = False, "", "X")
    Feuil3.Cells(Ligne1, I + 4) = T(I)
    Feuil2.Cells(Ligne2, I + 22) = T(I)
  Next
  Ligne1 = Ligne1 + 1
  Ligne2 = Ligne2 + 1
  Me.Hide
End Sub