Discussion :

[Pompaero]

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

[Daranc]

essayes voir ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CmdOk_Click()
Dim dp
Dim ForSp(1 To 3)
For Each ctrl In UsfRens.FrForSp.Controls  'Formateur A1, A2, A3
    dp = dp + ctrl.Value
Next ctrl
i = 1
For Each ctrl In UsfRens.FrForSp.Controls
    If ctrl.Value = True Then ForSp(i) = Trim(ctrl.Caption)
    i = i + 1
Next ctrl
num = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Range("AN" & num & ":Ap" & num).Value = ForSp
End Su

[Pompaero]

Bonjour Daranc

Il fallait y penser le (1 to 3), c'est tellement simple quand on sais!! .
En tout cas merci pour ta reponse et en plus ca marche comme je le voulais, . super content.

Juste une petite explication, je comprend le (1 to 3), i = 1 et i = 1 + 1 mais à quoi correspond ":Ap" ?

Super forum pour evoluer.
a te lire
cordialement
pompaero

[Daranc]

le "Ap"
dans

Code :

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

Range("AN" & num & ":Ap" & num).Value = ForSp

c'est tout simplement les limite de la plage ou tu va poser le petit tableau ForSp(1 to 3)
ce dernier est défini comme un tableau en mémoire; excel prends les tableaux " en ligne"
un tableau a plusieurs valeurs sur une feuille est en colonne en memoire il est en ligne
exemple 800 ligne et trois type de champs A B et C seront traité en mémoire comme
A 1,2,3,4,3....799;800
B 1,2,3,4,3....799;800
C 1,2,3,4,3....799;800
donc un tableau créer en mémoire pour une seule ligne est de la forme
tablo(X)
et il se pose tel quel
si il y avait eu plusieurs ligne il aurait fallut employé une formule de feuille pour le transposer

Dans ton cas nous avons trois valeurs donc le tableau va couvrir la plage de la colonne AN à AP si tu es sur la ligne 200 le

Code :

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

range("AN200:AP200").value= tablo

est donné par la construction

Code :

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

("AN" & num & ":Ap" & num)

un peu longue l'explication ?