[VBA-E] checkbox et sub dans useform

**lio62** · 27/02/2007, 18h10

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 :

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

**alsimbad** · 27/02/2007, 20h33

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

Code :

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

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

puis

Code :

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

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

**lio62** · 27/02/2007, 20h58

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+

**ouskel'n'or** · 27/02/2007, 21h28

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

If CheckBox1.Value = True Then

Remplace ça par

Code :

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

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+

**lio62** · 28/02/2007, 08h39

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

) qu'il faut déclarer une variable public
je pourrai la mettre dans dans l'auto open par exemple

Code :

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

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

)

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

)

merci a+

**ouskel'n'or** · 28/02/2007, 09h18

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

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

**lio62** · 28/02/2007, 12h48

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+

**ouskel'n'or** · 28/02/2007, 12h55

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+

**lio62** · 28/02/2007, 21h05

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+

**lio62** · 05/03/2007, 17h24

coucou je suis de retour

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+

**ouskel'n'or** · 05/03/2007, 17h38

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

)
A+

**lio62** · 05/03/2007, 17h44

bon je continue l'exploration

**lio62** · 05/03/2007, 19h22

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

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

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

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

**lio62** · 07/03/2007, 19h22

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 :

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

[VBA-E] checkbox et sub dans useform

Macros et VBA Excel

Discussions similaires

Partager

Partager