[VBA-E] checkbox et sub dans useform

Version imprimable

bonsoir,
dans un userform je voudrai lors d'un simple click qu'il me lance une inputbox dan mon bout de code il le fait pour la checkbox1 mais n'est il pas possible de faire autrement que de faire 3 sub pour lescheckbox.

Mais ce que je préfererai c qu'il ouvre un meme userform pour toutes les checkbox
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub CheckBox1_Click() Dim tableauchck(31) Dim i As Integer, DernièreLigne As Integer DernièreLigne = Range("A1").End(xlDown).Row + 1 ' Première ligne vide If CheckBox1.Value = True Then tableauchck(29) = InputBox("Saisir le NOMBRE ", "NOMBRE") ' ElseIf CheckBox2.Value = True Then ' tableauchck(30) = InputBox("Saisir leNOMBRE ", "NOMBRE") ' ElseIf CheckBox3.Value = True Then 'tableauchck(31) = InputBox("Saisir le NOMBRE ", "NOMBRE") End If For i = 29 To 31 Cells(DernièreLigne, i) = tableauchck(i)
merci a+

salut
j'ai pas excel sur cet ordi pour verifier ce que je dis mais tu peux simplement faire
Code:

1 2 3 sub monimputbox mavariable =InputBox("Saisir le NOMBRE ", "NOMBRE") end sub
puis
Code:

1 2 3 4 5 6 7 Private Sub CheckBox2_Click() Dim i As Integer, DernièreLigne As Integer DernièreLigne = Range("A1").End(xlDown).Row + 1 ' Première ligne vide If CheckBox2.Value = True Then monimputbox Cells(DernièreLigne, 1) = mavariable end sub
et tu en ajoute une comme ça par chekbox
voila voila

27/02/2007, 20h58
lio62

bonsoir
et merci alsimbad j'ai testé mais il ne recopie pas les données qui doivent commencer a la colonne 29 pour la check1

merci a+
27/02/2007, 21h28
ouskel'n'or

Citation:

Mais ce que je préfererai c qu'il ouvre un meme userform pour toutes les checkbox

Un userform ou un inputbox ?
Je prends ton code

Citation:

If CheckBox1.Value = True Then

Remplace ça par

Code:

If CheckBox1.Value or CheckBox2.Value or CheckBox3.Value then

Tu testes, je crois me souvenir que la value d'un CheckBox1 est true ou false, auquel cas tu n'as même pas besoin de le préciser
Si c'est Oui ou non, je ne sais pas, tu ajoutes " = True" aux trois checks
A+
28/02/2007, 08h39
lio62

bonjour, Ousk

Je veux qu' a chaque fois que je click sur l'une des chkbox( il y en a 3) il m'ouvre une inputbox que je puisse inscrire un chiffre et le recopier dans les colonnes 29 a 31 de ma bd
et que la somme des 3 colonnes soient également recopiées dans la colonne "F" de ma feuille BD.

Par contre c sur je préfererais un meme userform pour faire cela

je sais (enfin quelqu'un m'a dit:oops: ) qu'il faut déclarer une variable public
je pourrai la mettre dans dans l'auto open par exemple

Code:

public myvalchk as integer

ce ne doit etre que des entiers (je pourrai peut etre mettre byte car si c plus de 255 c des menteurs :D ):lol:

mais après je coince car je ne sais pas quoi mettre dans l'userform en question qui ne comportera qu'une textbox pour faire la liaison.

Un début de piste m'aiderait (mais un grand:oops: :mrgreen: )

merci a+
28/02/2007, 09h18
ouskel'n'or

Citation:

Envoyé par Tu

il m'ouvre une inputbox que je puisse inscrire un chiffre et le recopier dans les colonnes 29 a 31 de ma bd

La même valeur dans les trois colonnes ?
Si oui, tu affectes cette valeur aux 3 colonnes
Mais attention à la saisie. Si ce n'est pas une valeur...
Si tu peux connaître les valeurs possibles que tu dois saisir, plutôt qu'un Inputbox, je lui préfèrerais un userform avec un combo renseigné de ces valeurs. La sélection ne laissant pas lattitude à l'erreur de s'insinuer perfidement dans la saisie :mouarf:
Pourquoi une variable public ? Si tu traites les valeurs dans l'userform, tu n'en as pas besoin. Par contre, si tu les traites dans l'userform appelant, si. Mais regarde Hide, dans l'aide, qui masque un userform sans le décharger... Mais oublie, je complique...
Réfléchis, teste, et fais pour le mieux :mouarf:
28/02/2007, 12h48
lio62

non se ne seront pas les memes valeurs c'est une erreur de ma partchaque ckbox sera renseignait ou pas du tout ou une seule .

Mais comment je peux faire la liaison entre l'userform appelant et appelé

si je mets un useform (et jy tiens)!!!!!

car comment savoir si c la check1, 2 ou 3 ?

ya peut etre une commande que j'ai trouvé un jour du genre "saisie"(nom de l'userform appelant)

saisie.checkbox1

merci a+
28/02/2007, 12h55
ouskel'n'or

Tu fais comme tu l'as suggéré, une variable publique déclarée dans Userform1, quand tu "load" userform2, si tu veux masquer Userform1 tu mets Userform1.hide, comme ça tu ne perdras aucune des valeurs contenues dans ses contrôles, et tu pourras saisir tes données dans userform2.
Maintenant, et si c'est possible, je traiterais les données saisies dans U2, dans U2 plutôt qu'avoir à les rapatrier dans U1 via des variables publiques. Mais là, c'est toi qui vois
A+
28/02/2007, 21h05
lio62

ok merci

je pars me reposer les neurones demain avec un bouquin informatique que j'ai trouvé sur internet

a lundi bon week end

merci pour tout a+
05/03/2007, 17h24
lio62

coucou je suis de retour :D

bon j'ai décla ré ma varaible dans mon userf "saisie"

public varchk as integer

mais comment faire pour qu'il sache que c la chekbox 1 2 ou 3

merci a+
05/03/2007, 17h38
ouskel'n'or

varchk n'est pas un integer, même pas encore un contrôle, pour le moment (!!!) c'est encore un string "varchk" auquel tu vas ajouter un index... Si je me souviens bien... (je n'ai pas relu mais un nom pareil, ça s'oublie pas :mouarf: )
A+
05/03/2007, 17h44
lio62

bon je continue l'exploration :oops:

bon j'ai fait ca dans l'userform7 mais il recopie les données uniquement dans la colonne 29

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
 
Private Sub CommandButton1_Click()
 Dim i As Integer, DernièreLigne As Integer
 
    Sheets("bd").Activate
 
 
    Dim tableauchck(29 To 31)
     DernièreLigne = Range("A1").End(xlDown).Row + 1 ' Première ligne vide
 
    For Each lecontrole In saisie.Controls
 
    Select Case lecontrole.Name
 
   Case "CheckBox1"
    tableauchck(29) = UserForm7.TextBox1
    Unload UserForm7
    UserForm7.Hide
    saisie.Show
 
 
      Case "CheckBox2"
    tableauchck(30) = UserForm7.TextBox1
    Unload UserForm7
    UserForm7.Hide
    saisie.Show
 
     Case "CheckBox3"
    tableauchck(31) = UserForm7.TextBox1
    Unload UserForm7
    UserForm7.Hide
    saisie.Show
 
    For i = 29 To 31
        Cells(DernièreLigne, i) = tableauchck(i)
 
     Next
      End Select
 
Next
 
End Sub

en le lancant de l'userf "saisie"

Code:

1
2
3
4
5
6
 
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
saisie.Hide
       UserForm7.Show
end if

bonsoir
J'ai trouvé cela ca marche mais je voudrais pouvoir afficher si je reclicke sur la checkbox la valeur recopiée et la modifiée si nécessaire

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
 
Private Sub CommandButton1_Click()
Dim noligne As Long
 
Sheets("bd").Select
 noligne = Range("A1").End(xlDown).Row + 1
 
 
If Cells(noligne, 29) = "" Then
If saisie.CheckBox1.Value = True Then Cells(noligne, 29) = TextBox1
 
 
If Cells(noligne, 30) = "" Then
 If saisie.CheckBox2.Value = True Then Cells(noligne, 30) = TextBox1
 
 
If Cells(noligne, 31) = "" Then
 If saisie.CheckBox3.Value = True Then Cells(noligne, 31) = TextBox1
 
 
Unload UserForm7
 
UserForm7.Hide
 
 
saisie.Show

merci a+