Discussion :

[GTbenj]

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

[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 ?

[GTbenj]

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

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
 
 
 
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

[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.

[mat-tech]

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

Si tu travail avec des groupes

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 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 :

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

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 ...

[GTbenj]

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

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
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