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

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

merci quand même, tu as peut être la solution à mon problème

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

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

1
2
 
MsgBox Ctrl.Caption

Code :

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

1
2
 
Feuil2.Range("B1").Value = Ctrl.caption

Par exemple ...

[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

[OrDonc]

Bonsoir,

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

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