Discussion :

[morfy93]

Bonjour à tous,

J 'ai créé un formulaire avec des cases à cocher et un libellé à côté . Ces libellés correspondent à des titres de colonnes(Nom1;Nom2; Nom3 voir illustration ci-dessous).
J'aimerai donc, lorsque je coche sur l'une de ces cases(imaginons Nom1) de mon formulaire, que cela s'enregistre dans la cellule de ma feuille excel correspondant à Nom1. Autrement dit que cela fasse un "+1" et montre 4.

A ................... B
1 Intitulé ......Nombre
2 Nom1 ...........3
3 Nom2 ...........5
4 Nom3 ...........7

Merci d'avance

[fred65200]

bonjour morfy93

une idée

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
Option Explicit
Dim i As Integer
Private Sub CommandButton1_Click()
For i = 1 To 3
'+1 si la case est cochée
   If Controls("CheckBox" & i).Value Then Cells(i + 1, 2) = Cells(i + 1, 2) + 1 ' ou Abs(Controls("CheckBox" & i).Value * 1)
Next
Unload Me
End Sub
 
Private Sub UserForm_Initialize()
'Remplissage des labels avec les valeurs de cellules ici A2:C2 à adapter
For i = 1 To 3
  Controls("Label" & i).Caption = Cells(i + 1, 1).Value
Next i
End Sub

cordialement

[morfy93]

C'est exactement ça. Merci beaucoup Fred65200!