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+