Bonjour

Un p'tit coup de main svp.

Voilà ds un UF j'ai une frame avec 3 chekbox que j'enregistre ds ma bd dans une seule cellule.
Je cherche a séparer les 3 chekbox ds une cellule chacune ds ma bd.!!

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
Private Sub CmdOk_Click()
Dim dp, ForSp
 
For Each ctrl In UsfRens.FrForSp.Controls  'Formateur A1, A2, A3
    dp = dp + ctrl.Value
Next ctrl
 
For Each ctrl In UsfRens.FrForSp.Controls
    If ctrl.Value = True Then ForSp = ForSp & "." & Trim(ctrl.Caption)
Next ctrl
 
num = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
 
Range("AN" & num).Value = ForSp
End Sub
Mon souhait est donc:
chekbox1=colone AN
chekbox2=colone AO
chekbox3=colone AP

Merci par avance

A vous lire
cordialement
pompaero