Discussion :

[lio62]

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]

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]

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]

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]

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]

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